Help for this page
my @row = map $_->value, @$arr;
for my $arr ( @results ) { ... ... } return; }
sub foo { if ( $_[ 0 ] % 3 } { ... print join( ':', map foo( $_ ), 1..5 ), "\n"; __END__ 1:2:4:5
print join( ':', map scalar foo( $_ ), 1..5 ), "\n"; __END__ 1:2::4:5
print join( ' ', grep sub { wantarray ? 0 : 1 }, 1..3 ), "\n"; __END__ 1 2 3
www.com | www.net | www.org
No recent polls found