Help for this page
my %hash = map ( $_ => 1 ), @array;
(my %hash = map( $_, 1 )), @array;
my %hash = map +( $_ => 1 ), @array;
print +( $x ? $y : $z ), "\n";
(print( $x ? $y : $z )), "\n";
my @foo = map { 1, 2 } 3, 4;
my @foo = map { ; 1, 2 } 3, 4; print "@foo\n"; __END__ 1 2 1 2
my @foo = map +{ 1, 2 }, 3, 4;
my @foo = map { 1, 2 }, 3, 4; print "@foo\n"; __END__ HASH(0x814cbb8) HASH(0x814cd5c)
www.com | www.net | www.org
No recent polls found