配列の全ての要素を加工する

配列の全ての要素を加工するには、mapを使います。

---

use utf8;
binmode STDIN, "utf8";
binmode STDOUT, "utf8";

my @foo = qw(ari hituji inko cat dog);

@hoge = map { my $hogehoge = $_."さん" } @foo;

my $i = 0;
foreach my $item(@hoge) {
    print "[$i]:$item\n";
    $i++;
}

---

結果は以下のようになります。

---

[0]:ariさん
[1]:hitujiさん
[2]:inkoさん
[3]:catさん
[4]:dogさん

---