Help for this page

Select Code to Download


  1. or download this
    use strict;

...
print "Just after end of scope\n";
print "\$a is ", defined($a) ? $a : 'undef', $/;
print "\$b is ", defined($b) ? $b : 'undef', $/;
  2. or download this
    [root@myserver tmp]# cat -n !$
cat -n ./per_begin.pl1
...
[root@myserver tmp]# ./!$
././per_begin.pl1
Can't localize lexical variable $x at ././per_begin.pl1 line 14.