Help for this page

Select Code to Download


  1. or download this
    package Foo;

...
    $d = [];
    printf "  After %s [%s]\n", $d, join(",", @$d);
});
  2. or download this
    C:\Scripts>perl scope.pl
Top before ARRAY(0x183f218) [a,b]
  Before ARRAY(0x183f218) [a,b]
  After ARRAY(0x183f248) []
Top After ARRAY(0x183f218) [a,b]
  3. or download this
    C:\Scripts>perl -v

...

Binary build 635 provided by ActiveState Corp. http://www.ActiveState.
+com
Built 15:34:21 Feb  4 2003