Help for this page

Select Code to Download


  1. or download this
    $ perl -e'BEGIN{@ns{keys %::} = ()}; $foo = "bar";@names = grep {!exis
+ts $ns{$_}} keys %::; print "@names",$/'
foo names
$
  2. or download this
    print "foo has: ", $_, $"
        for (grep {*foo{$_} qw/SCALAR ARRAY HASH CODE GLOB IO/;
  3. or download this
    $ perl -e'BEGIN{@ns{keys %::} = ()}; $foo = "bar";@names = grep {!exis
+ts $ns{$_}} keys %::; print ${*foo{SCALAR}} ,$/'
bar
$