配列の各要素を正規表現で置換する - メモっておこうか

perl map 置換とかで検索するとこんな感じのコードが出てくる my @before = ('foo', 'bar', 'baz'); my @after = map {$_ =~ s/b/B/; $_} @before; これでもうまくいくんだけど、少々つっこみを 見た目の問題なんだけど、パターンマッチ演算子(=~)は省略すると $_ が使われるのでこの場合は省略できる $_ は各要素のエイリアスなので @before の値も変更されてしまう 元の値がいらなければ my @before = ('foo', 'bar', 'baz'); s/b/B/ for @before; これで良いし 必要なら my @before = ('foo', 'bar', 'baz'); s/b/B/ for my @after = @before; で良い