c has asked for the wisdom of the Perl Monks concerning the following question:
genconf.pl
#!/usr/bin/perl -w use strict; my $domain = "lunarmedia.net"; do 'genheader'; do 'genlimit'; do 'genfooter';
###
genheader
print "<VirtualHost $domain>\n";
the genconf.pl file executes and runs the three external scripts. each of the external scripts just prints out a line of text. however, as you can see in genheader, a portion of the text requires some sort of knowledge about a variable set within the main script.
the only way i figured i could get around this is to try something like:
genconf.pl
#!/usr/bin/perl -w use strict; require genheader; require genlimit; require genfooter; my $domain = "lunarmedia.net"; &genHeader($domain); &genLimit; &genFooter;
###
genheader
sub genHeader { my $domain = shift; print "<VirtualHost $domain>\n"; }
but i dont believe that i am really understanding require because the magic just isnt happening with this code either. i think using the require or even a 'use' statement for a future module possibility(?) may be the way i want to go, however, i am not certain what i am missing in my required file to make it work. could someone enlighten me?
humbly -c