grep演算子とmap演算子

Perlでは、配列を操作する機能が沢山あります。
その中でも強力なgrep演算子とmap演算子をご紹介します。

grep演算子は、以下のサンプルのように入力配列『@array』をテスト式『/a$/』で検索し、マッチした結果を返します。
結果は、左辺がスカラー変数『$count』の場合はマッチ数を、配列変数『@results』ならマッチした要素内容を返します。

サンプル

@array = ("aaa", "bbb", "ccc", "ddd", "dda");
$count = grep /a$/, @array;
@results = grep /a$/, @array;
print "\@result = @results  \$count = $count\n";

出力結果

@result = aaa dda  $count = 2

尚、テスト式『/a$/』は実は『$_ =~ /a$/』の省略形で、スカラーコンテキストで評価されます。
また、マッチしたとは、テスト式が真（0以外）を返した時です。

一方、map演算子は、grep演算子と大変よく似ているのですが、
テスト式をリストコンテキストで評価し、変換式になるところが異なります。

サンプル

@map_results = map $_ . "xxx" , @array;
print "\@map_result = @map_results \n";

出力結果

@map_result = aaaxxx bbbxxx cccxxx dddxxx ddaxxx

また、入力配列の一つの要素に対して複数の出力をすることもできます。

サンプル

@map_results = map {$_ . "xxx", $_ ."yyy"} @array;
print "\@map_result = @map_results \n";

出力結果

@map_result = aaaxxx aaayyy bbbxxx bbbyyy cccxxx cccyyy dddxxx dddyyy ddaxxx ddayyy

尚、中括弧でブロック形式にすると入力配列との間に『,』はいりません。