Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Creating "Lexical" Symbol Table Aliases (a la "use vars") From The Same Package

by OneTrueDabe (Novice)
on May 08, 2014 at 16:50 UTC ( #1085478=perlquestion: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
       use strict 'vars';
    
    ...
       Variable "@foo" is not imported at foo.pl line 10.
       Global symbol "@foo" requires explicit package name at foo.pl line 
    +10.
       foo.pl had compilation errors.
    
  2. or download this
       use strict 'vars';
    
    ...
    
       package main;
          print "Foo: (@foo)\n";
    
  3. or download this
       use strict 'vars';
    
    ...
    
       package pkg;
          print "Foo: (@foo)\n";
    
  4. or download this
       use strict 'vars';
    
       package pkg;
          BEGIN { *pkg::foo = \@pkg::foo }
          print "Foo: (@foo)\n";
    
  5. or download this
        package pkg;
        sub BEGIN {
            *foo = \@foo;
        }
    
  6. or download this
       use strict 'vars';
    
    ...
       __OUTPUT__
    
       Foo: ()
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1085478]
Front-paged by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (8)
As of 2014-12-25 12:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (160 votes), past polls