How to declare global variables.

[shrek123]

hi,

I am designing some code to communicate beetween two machines.
I want to declare variable (constants) into some seperate perl file and use them into all the perl scripts. I am confused how can I do this.
Do I need to create .pm file ? if yes please explain how can I create .pm file from .pl file.

Thanks in advance.

[eWish]

perldoc -Constant

HTH

[shrek123]

perldoc -Constant

HTH

I am not clear, how can I use some constant defined in some package in more then one perl script.

Also I am not clear how can I create a package with constant declaration.

Could you please expain it via some example.

Thanks

[KevinADC]

Constants belong to the package they are defined in. To refer to a constant defined in another package, specify the full package name, as in Some::Package::CONSTANT.

quoted from the CONSTANT manpage

[shrek123]

quoted from the CONSTANT manpage

Still I am not confident enough to code this. Here is what I wanna do:

I have a perl file "lib.pl" and it contain:

 
use strict;
our $somevariable = "It is Constant";
 

I have another perl file "test.pl"

 
use strict;
my $x = $somevariable ; 
print $x; # It should print It is Constant.
 
 

Please help me in getting the concept clear.

Thanks.

[eWish]

Here is one way you can do this.

Config.pm

package My::Config;
use base Exporter; 
 
our @EXPORT = qw(%config_vars);
our @EXPORT_OK = qw(%config_vars);
 
our %config_vars = (some_var    =>    'Hello',
                    another_var =>     'World'
                );
 
 
1;

In your script add these two lines to your code to access the Config.pm file.

use lib '/path/to/file/lib/';
use My::Config;

Then you can use $config_vars{'some_var'} and $config_vars{'another_var'} in your script where you want to.

Or you can use require. Which I showed an example in another thread.