Perl分かってない - Lism.in * blog - nekoya (id:studio-m)

#!/usr/bin/perl use strict; use warnings; my @list = ('apple', 'banana', 'orange'); my @list2 = @list; map { s/a/A/g } @list; print join("\n", @list), "\n\n"; # Apple - bAnAnA - orAnge print join("\n", map { s/a/A/g } @list2), "\n"; # 1 - 3 - 1 後者の動作が理解出来てない。きっとすごく基本的なことなんだけど。 print join("\n", map { "[$_]" } @list2), "\n"; だと、それぞれを[]でくくった配列が表示されるんだけど、正規表現でほげるとダメ。1行で書けないのかな。書く方法はあると思うんだが… 以下、追記。 id

[hiboma]

米 // おぉ wwww　ドクターペッパーwww どもです!!