Using require

kidd has asked for the wisdom of the Perl Monks concerning the following question:

I started using strict not so long ago, and now Im in front of a problem. When I create my scripts I like to make a config.pl so it would be the only thing a user changes(settings, option, that kind of things)...

So yesterday I made the first script this way, only that this time I used strict and -w...

I created my config.pl and added the require line, I test it and oopss...I don't seem to be using the variables inside config...

Could someone give me some light and tell me why it isnt working that way...here is some example...

Let's say I have my "config.pl" with a variable:

#!/usr/bin/perl -w

use strict;

my $option = 1;
[download]

And my main code is like this:

#!/usr/bin/perl -w

use strict;

require "config.pl"

print "Option = 1" if $option != 0;
[download]

For some reason $option is not "imported" from config.pl and I can't explain why...thanks

Comment on Using require Select or Download Code

Replies are listed 'Best First'.
Re: Using require by Abigail-II (Bishop) on Jul 10, 2002 at 16:56 UTC
`$option` is a lexical variable inside `config.pl`. A file is a lexical scope. Make `$option` a package variable. Abigail	[reply] [d/l] [select]
Re: Re: Using require by kidd (Curate) on Jul 10, 2002 at 16:58 UTC
How do I create $option a package?	[reply]
Re: Using require by Abigail-II (Bishop) on Jul 10, 2002 at 17:03 UTC
By not creating it a lexical variable. Leave the `my` off. Of course, you either have to get rid of the strictness, use `use vars`, or use a fully qualified name. Abigail	[reply] [d/l] [select]
Re: Re: Using require by kidd (Curate) on Jul 10, 2002 at 17:13 UTC
Re: Using require by Abigail-II (Bishop) on Jul 10, 2002 at 17:18 UTC
Re: Using require by perrin (Chancellor) on Jul 10, 2002 at 17:16 UTC
`package MyConfig; use strict; use vars qw($option); $option = 1;` [download] Then, elsewhere: `use MyConfig; print "Option = 1" if $MyConfig::option != 0;` [download]	[reply] [d/l] [select]
Re: Re: Using require by kidd (Curate) on Jul 10, 2002 at 17:32 UTC
Thanks Abigail and thanks Perrin a lot...I created config.pl a package, and it worked great... It's good to learn something new...I read the documentation on `use vars` and now I know what is that Im doing wrong....THANKS	[reply] [d/l]
Re: Using require by zentara (Cardinal) on Jul 11, 2002 at 17:07 UTC
Use 'our'. Let's say I have my "config" with a variable: our $option = 1; 1; #must end with true return `And my main code is like this: #!/usr/bin/perl -w use strict; our $option require "./config.pl" print "Option = 1" if $option != 0;` [download]	[reply] [d/l]