tags:

views:

59

answers:

2
+2  Q: 

Is there anything wrong with using requires after output starts printing?

Example:

my $page = $args{'p'};
exit 1 if $page =~ /[^\d\w]/;

print "Content-Type: text/html\n\n";

print "<html><head></head><body>";

require "$page.pl";

somefunc();

print "</body></html>";

Is there anything wrong with using the require after the output has started or should all requires be at the top of the script?

+3  A: 

No, there's no need for all requires to be at the top. Though, if the require fails, your HTML would be halfway sent already. :-P

Chris Jester-Young  2010-02-01 18:07:07
+4  A: 
mobrule  2010-02-01 18:10:06
Indeed, one of the first steps in refactoring old monolithic cgi scripts (with inlined HTML, no functions etc) is to divide functionality into separate files and using `require`.
Ether  2010-02-01 18:19:37

related questions

Regex to replace Boolean with bool
How do I lock a file in Perl?
How do you use XML::Parser with Style => 'Objects'
Parsing XML Elements & Attributes with Perl
Regex to match all HTML tags except <p> and </p>
Best way to extract data from a FileMaker Pro database in a script?
What's the fastest way to determine a full URL from a relative URL (given a base URL).
Why can't I connect to my CAS server with Perl's AuthCAS?
Why can't I fetch wikipedia pages with LWP::Simple?
How do I perform a Perl substitution on a string while keeping the original?
How do I read in the contents of a directory in Perl?
How can Perl's system() print the command that it's running?
How can I test STDIN without blocking in Perl?
How do I tell if a variable has a numeric value in Perl?
Why doesn't my Perl map return anything?
How can I determine the type of a blessed reference in Perl?
Parsing attributes with regex in Perl
How do you retrieve selected text using Regex in C#?
Why does the Perl conditional operator not do what I expect?
Class::DBI-like library for php?
How do you create objects in Perl?
How do I remove duplicate items from an array in Perl?
Is The Perl Journal available online?
Can you force either a scalar or array ref to be an array in Perl?
What's the safest way to iterate through the keys of a Perl hash?