Mega Code Archive

 

Categories / Perl / Language Basics

 

Contents of the symbol table for the main package

#!/bin/perl use strict "vars"; use warnings; our ( @friends, @dogs, $key, $value );     my($name,$pal,$money); $name="Tom"; @friends=qw(A B C ); @dogs = qw(a b c); local $main::dude="Tom";     my $pal = "another name";           while(($key, $value) = each (%main::)){     print "$key:\t$value\n"; }