Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re: Help!! Premature ending of script headers?

by Anonymous Monk
on Oct 13, 2011 at 22:43 UTC ( #931386=note: print w/ replies, xml ) Need Help??

in reply to Help!! Premature ending of script headers?

it still won't work. :(

Like CGI Help Guide and Troubleshooting Perl CGI scripts say:

Check the logs!!! or keep your own ( see CGI::Carp::carpout )

Read this if you want to cut your development time in half!

use CGI or die;, Ovids CGI Course, CGI Programming 101,

Try this on for size :)

#!/usr/bin/perl -- use strict; use warnings; use CGI (); use Data::Dumper (); #zum debuggen Main( @ARGV ); exit( 0 ); sub Main { return DebugCGI(); } sub DebugCGI { my $cgi = CGI->new; print $cgi->header(); # Write HTTP header print $cgi->start_html, $cgi->b( rand time, ' ', scalar gmtime ), '<table border="1" width="%100"><tr><td>', $cgi->Dump, '</td>', '<td><div style="white-space: pre-wrap; overflow: scroll;">', $cgi->escapeHTML( DD($cgi) ), '</div></td></tr></table>', CGI->new( \%ENV )->Dump, $cgi->end_html; } sub DD { scalar Data::Dumper->new( \@_ )->Indent(1)->Useqq(1)->Dump; }

Comment on Re: Help!! Premature ending of script headers?
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://931386]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (5)
As of 2015-10-14 04:25 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (320 votes), past polls