l i n u x - u s e r s - g r o u p - o f - d a v i s
L U G O D
 
Next Meeting:
November 4: Social gathering
Next Installfest:
TBD
Latest News:
Oct. 24: LUGOD election season has begun!
Page last updated:
2001 Dec 30 17:06

The following is an archive of a post made to our 'vox-tech mailing list' by one of its subscribers.

Report this post as spam:

(Enter your email address)
Re: [vox-tech] howto: perl modules and global variables
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [vox-tech] howto: perl modules and global variables



On Thu, 14 Jun 2001, Peter Jay Salzman wrote:

> dear all,
> 
> i'm trying to figure out how a perl module accesses a global variable.
> below i show listings for the module (Hello.pm) and the program
> (testmodule.pl).  testmodule defines a global variable which i'd like
> to know how to access from within Hello.pm.
> 
> anyone know how to do this?

This seems like a bad idea, but in the spirit of "there is more than one
way to do it" you could try...

> 
> thanks!
> pete
> 
> 
> 
> Hello.pm:
> 
> 	 package Hello;
> 	 require Exporter;          # } These set up an import
> 	 @ISA = qw(Exporter);       # } method, called implicitly
> 	 @EXPORT = qw( say_hello ); # } by use().
> 	 
> 	 sub say_hello {
> 	    print "Hello, world!\n";
> 	    print $globalvariable . "\n";

 print "${::globalvariable}\n";

> 	 }
> 	 return 1;
> 
> 
> 
> testmodule.pl:
> 
> 	#!/usr/bin/perl -w
> 	use diagnostics;
> 	use Hello;
> 	
> 	my $globalvariable = "hello world";

 $globalvariable = "hello world";

> 	
> 	print "using scope specifier:\n";
> 	Hello::say_hello();
> 	
> 	print "now without scope specifier:\n";
> 	say_hello();
> 

---------------------------------------------------------------------------
Jeff Newmiller                        The     .....       .....  Go Live...
DCN:<jdnewmil@dcn.davis.ca.us>        Basics: ##.#.       ##.#.  Live Go...
                                      Live:   OO#.. Dead: OO#..  Playing
Research Engineer (Solar/Batteries            O.O#.       #.O#.  with
/Software/Embedded Controllers)               .OO#.       .OO#.  rocks...2k
---------------------------------------------------------------------------


LinkedIn
LUGOD Group on LinkedIn
Sign up for LUGOD event announcements
Your email address:
facebook
LUGOD Group on Facebook
'Like' LUGOD on Facebook:

Hosting provided by:
Sunset Systems
Sunset Systems offers preconfigured Linux systems, remote system administration and custom software development.

LUGOD: Linux Users' Group of Davis
PO Box 2082, Davis, CA 95617
Contact Us

LUGOD is a 501(c)7 non-profit organization
based in Davis, California
and serving the Sacramento area.
"Linux" is a trademark of Linus Torvalds.

Sponsored in part by:
EDGE Tech Corp.
For donating some give-aways for our meetings.