Mega Code Archive

 

Categories / Perl / Language Basics

 

Default package is main

@town = qw(A C T); $friend="Tom"; print "\$friend is $friend\n"; package boy;           $name="Mary"; print "In boy \$name is $name.\n"; $main::friend="Jack"; print "In boy \@town is @::town\n"; package main;          print "In main: \$name is $name\n"; print "In main: \$name is $boy::name\n"; print "In main: \$friend is $friend.\n";