Help for this page

Select Code to Download


  1. or download this
    D:\>perl -MData::Dumper -e "sub x{1 for 1..5};@y=x();print 'ha' if def
+ined @y"
ha
  2. or download this
    $ perl -MData::Dumper -e 'sub x{1 for 1..5};@y=x();print Dumper(\@y)'
$VAR1 = [
          ''
        ];
  3. or download this
    $ perl -wle 'sub x{};@y=x(); print "array" if @y'
(nothing)
...
array
$ perl -wle 'sub x{a => 1};%y=x();print "hash" if %y'
hash