Help for this page

Select Code to Download


  1. or download this
    our $var = 'a';
{ my $var = 'x'; print "$var\n"; }  # x
print "$var\n";                     # a
  2. or download this
    my $var = 'a';
{ my $var = 'x'; print "$var\n"; }  # x
print "$var\n";                     # a
  3. or download this
    our $var = 'a';
sub f { print "$var\n"; }
{ local $var = 'x'; f(); }  # x
print "$var\n";             # a
  4. or download this
    our $var = 'a';
sub f { print "$var\n"; }
{ local *var; *var = 'x'; f(); }  # x
print "$var\n";                   # a
  5. or download this
    my $var = 'a';
sub f { print "$var\n"; }
{ ?????; $var = 'x'; f(); }  # x
print "$var\n";              # a