Манипуляции с массивами объединяются без разделения

Question

@browser = ("NS", "IE", "Opera");

my $add_str = "Browser:";

$count = 0; 
foreach  (@browser) { 
 my $br = $_;
 $browser[$count] =  "$add_str:$br";
 $count++ ;

}

есть ли другой способ сделать это?лучший способ ?

Answer 1

Вы можете использовать карту .

@browser = ("NS", "IE", "Opera");

my $add_str = "Browser";
@browser = map { "${add_str}:$_"; } @browser;

Answer 2

В Perl 5 цикл for псевдоним каждого элемента, так что вы можете просто сказать

#!/usr/bin/perl

use strict;
use warnings;

my @browsers = qw/NS IE Opera/;

my $add_str = "Browser:";

for my $browser (@browsers) {
    $browser = "$add_str:$browser";
}

print join(", ", @browsers), "\n";