Манипуляции с массивом Perl

Question

Есть ли в perl единственная строка, которая делает что-то подобное?

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

percent = 50%

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

То есть я даю массив и указываю проценты. И это должно дать мне новый массив с заданным процентом от исходных значений массива.

должен позаботиться о нечетных числах и дать мне потолок или пол этого значения.

Я знаю, как это сделать вручную. Просто интересно, есть ли в Perl что-то удивительное в магазине?

Спасибо.

Answer 1

карта позволит вам преобразовать каждый элемент в списке.

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

Answer 2

Как вы просили одну строку Perl, которая делает магию, вот она:

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

это дает

50 100 150 200 250

Answer 3

Когда вы хотите преобразовать список, map - хорошая ставка.Вот пример:

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

print "@new";

Вывод:

50 100 150 200 250