Help for this page
# 1. non-destructive my $var = $_[0]; # first element of @_ ... # 2. destructive my $var = shift; # first element gets removed + from @_ my ($foo, $bar) = map { shift } 1,2; # two elements get removed f +rom @_
sub foo { my $foo = $_[0]; my $quux = baz(@_) return $foo ^= $quux; }
www.com | www.net | www.org
No recent polls found