Help for this page

Select Code to Download


  1. or download this
    my ($foo, $bar) = @{shift(@_)}{qw/ -foo -bar /};
  2. or download this
    shift(@_)
  # get an element from the parameter list
...
my ($foo, $bar) = @{ shift(@_) }{ qw/ -foo -bar / };
  # assign the two element list retrieved into $foo and $bar
  3. or download this
    foobar({ -foo => 'FOO', -bar => 'BAR' });

...
    my ($foo, $bar) = @{shift(@_)}{qw/ -foo -bar /};
    print "\$foo => $foo, \$bar => $bar\n";
}