Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: Passing around symbol table aliases

by ikegami (Pope)
on Sep 07, 2011 at 02:58 UTC ( #924510=note: print w/ replies, xml ) Need Help??


in reply to Passing around symbol table aliases

#### Globals.pm package Globals; use Exporter; *tn = \%Track::by_name; *ti = \%Track::by_index; *bn = \%Bus::by_name; our @ISA = 'Exporter'; our @EXPORT_OK = qw( %tn %ti %bn ); #### ChainSetup.pm package ChainSetup; use Globals qw( %tn %ti %bn ); print $tn{Master}->name;


Comment on Re: Passing around symbol table aliases
Download Code
Re^2: Passing around symbol table aliases
by gnosti (Friar) on Sep 07, 2011 at 04:00 UTC
    That does it. Thanks!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://924510]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2014-08-21 23:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (144 votes), past polls