in reply to Re^2: Help choosing the most efficient, dependable condition(al)
in thread Help choosing the most efficient, dependable condition(al)

Not if send another header, namely "Vary". See the code update in Re: Help choosing the most efficient, dependable condition(al)

There's a lot to be gained by using a Web framework (you are familiar with CGI.pm, try Plack::Request/Plack::Response), where one doesn't have to care about newlines at all - the software handles the correct formatting for me. Short example: plackup -MPlack::Request -e'sub { my $req = Plack::Request->new(shift); return $req->new_response(200, [Content_Type => "text/html", Vary => "Accept"], [])->finalize }'

Doing the formatting manually and needing to get it correct is the real overhead. The work time of a programmer is expensive.

Replies are listed 'Best First'.
Re^4: Help choosing the most efficient, dependable condition(al)
by taint (Chaplain) on Nov 14, 2013 at 00:23 UTC
    In my humble defense daxim.

    When I use your revised edition, Perl throws: 

    malformed header from script. Bad header=<?xml version="1.0" encoding=
+": vary-test.cgi

    [download]
    But, if I simply add an additional \n to each of the content-type lines: 
        print "Content-Type: application/xhtml+xml; charset=UTF-8\n\n";
} else {
    print "Content-Type: text/html; charset=UTF-8\n\n";

    [download]
    no errors thrown.

    I've been meaning to have a look at plackup. I've seen alot of people using it.

    Thanks for mentioning it.

    --Chris

    #!/usr/bin/perl -Tw
use Perl::Always or die;
my $perl_version = (5.12.5);
print $perl_version;
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom