leons has asked for the wisdom of the Perl Monks concerning the following question:
Hi Monks,
I hope someone can help me with the following question. I have
the following construction in a program I am writing
Which ofcourse is quite tricky, because the $SM evironment-string
might be non-existent.
So ... being unfamiliar with 'BEGIN' I tried something similar to
the following:
Which ofcourse was quite silly, because the BEGIN-block will be
run first. After that I tried a couple of other things, which
were, by the way, even more silly (other words come to mind ;-)
So here's the question ... (......) ... What variables (like
@INC are exported from the BEGIN-block to the main program,
in order to pass information to it, like in the example above
Your help is highly appreciated,
Thanks, Leon
I hope someone can help me with the following question. I have
the following construction in a program I am writing
#!/usr/bin/perl -w use strict; BEGIN{push @INC,"$ENV{'SM'}/../bin";}; require 'errors.pm';
Which ofcourse is quite tricky, because the $SM evironment-string
might be non-existent.
So ... being unfamiliar with 'BEGIN' I tried something similar to
the following:
#!/usr/bin/perl -w my $Err; BEGIN{$Err=1 unless $ENV{'SM'}; push @INC,"$ENV{'SM'}/../bin";}; die "Environment string: \$SM not set\n" if $Err; require 'errors.pm';
Which ofcourse was quite silly, because the BEGIN-block will be
run first. After that I tried a couple of other things, which
were, by the way, even more silly (other words come to mind ;-)
So here's the question ... (......) ... What variables (like
@INC are exported from the BEGIN-block to the main program,
in order to pass information to it, like in the example above
Your help is highly appreciated,
Thanks, Leon
Back to
Seekers of Perl Wisdom