Perl-Array-Manipulation

Question

Gibt es eine einzelne Zeile in Perl, die so etwas zaubert?

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

percent = 50% 

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

Das heißt, ich gebe ein Array und einen Prozent angeben. Und es sollte mir ein neues Array mit dem angegebenen Prozent der ursprünglichen Array-Werte geben.

sollte auf ungerade Zahlen achten und geben Sie mir entweder Decke oder Boden dieses Wertes.

Ich weiß, wie man es manuell macht. Ich frage mich, ob Perl etwas Überraschendes bereithält.

Vielen Dank.

Answer 1

Jedes Mal, wenn Sie eine Liste verwandeln, ist map eine gute Wette. Hier ein Beispiel:

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

print "@new"; 

Ausgang:

50 100 150 200 250 

Answer 2

map können Sie alle Elemente in einer Liste transformieren.

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

Answer 3

Wie Sie für eine einzelne Zeile von Perl gefragt, die die Magie tut, hier ist es:

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

das gibt

50 100 150 200 250