programming-examples/perl/Subroutine/Difference between my and local.pl

17 lines
503 B
Perl
Raw Normal View History

2019-11-15 12:59:38 +01:00
$friend="friend"; # Global variables
$pal="Tom";
print "$friend and $pal are global.\n";
sub guests {
my $friend="Pat"; # Lexically scoped variable
local $pal="Chris"; # Dynamically scoped variable
print "$friend and $pal are welcome guests.\n";
&who_is_it;
}
sub who_is_it {
print "global, $friend, here.\n";
print "pal is now $pal.\n"; # Dynamically scoped
}
&guests;
print "Global friends are back: $friend and $pal.\n";