Mega Code Archive

 

Categories / Perl / System Functions

 

Using Map function

@numbers = ( 1 .. 10 ); print "\@numbers: @numbers\n\n"; # multiply every number by 2 foreach ( @numbers ) {    push( @doubledNumbers, $_ * 2 ); } print "Double each number:\n",       "foreach: @doubledNumbers\n"; @doubledNumbers2 = map( $_ * 2, @numbers ); print "map:     @doubledNumbers2\n";