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

Quote:

Originally Posted by eWish

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

Quote:

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

Quote:

Originally Posted by KevinADC

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:

Expand|Select|Wrap|Line Numbers

  
use strict;

our $somevariable = "It is Constant";

I have another perl file "test.pl"

Expand|Select|Wrap|Line Numbers

  
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

Expand|Select|Wrap|Line Numbers

 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.

Expand|Select|Wrap|Line Numbers

 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.

How to declare global variables.

re: How to declare global variables.

re: How to declare global variables.

re: How to declare global variables.

re: How to declare global variables.

re: How to declare global variables.

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about