- or download this
my $r = "set in file scope";
...
}
print "after BLOCK value of \$r is: $r\n";
- or download this
at beginning of BLOCK value of $r is: set in file scope
in conditional statement value of $r is: set in file scope
at end of BLOCK value of $r is: set in if condition
after BLOCK value of $r is: set in file scope
- or download this
my $r = "set in file scope";
...
}
print "after BLOCK value of \$r is: $r\n";
- or download this
at beginning of BLOCK value of $r is: set in file scope
at end of BLOCK value of $r is: set in BLOCK's scope but formerly: set
+ in file scope
after BLOCK value of $r is: set in file scope
- or download this
my $r = "set in file scope";
...
print "\$original is: $original\n";
}
- or download this
$r is: set in BLOCK scope
$original is: set in file scope
- or download this
$x = 'x';
@x = qw(x x x);
...
print "$x,@x : $y,@y : $z,@z\n";
}
- or download this
x,x x x : y,y y y : z,z z z
x,x x x : x,x x x : z,z z z
x,x x x : x,x x x : x,z z z
lx,lx lx lx : lx,lx lx lx : x,z z z