Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
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;

Replies are listed 'Best First'.
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 rifling through the Monastery: (8)
As of 2016-06-25 00:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My preferred method of making French fries (chips) is in a ...











    Results (322 votes). Check out past polls.