Perl array manipulation

Question

Is there a single line in perl which does some magic like this.

Array = [100,200,300,400,500];

percent = 50%

new_Array = [50,100,150,200,250];

That is, I give an array and specify a percent. And it should give me a new array with the given percent of original array values.

should take care of odd numbers and give me either ceiling or floor of that value.

I know how to do it manually. Just wondering if perl has something surprising in store?

Thank you.

Answer 1

map will allow you to transform every item in a list.

my $percent = 50;
my @original = qw/100 200 300 400 500/;
my @manipulated = map { $_ * $percent / 100 } @original;

Answer 2

Whenever you want to transform a list, map is a good bet. Here's an example:

my @list = ( 100, 200, 300, 400, 500 );
my @new  = map { int( $_ * 0.5 ) } @list;

print "@new";

Output:

50 100 150 200 250

Answer 3

As you asked for a single line of perl that does the magic, here it is:

print join " ", map { int( $_ * 0.5) } (qw(100 200 300 400 500));

this gives

50 100 150 200 250