Perlのgrepで配列のフィルタリング

Perlのgrepは、シェルスクリプトのgrepとほぼ同等の威力を持ってます。DBやファイルから取ってきた値を配列に突っ込んで、処理するのはPerlは大得意です。
ちょっとサンプルコードを載せてみる。


##### 環境構成 * Perl 5.10 * Mac OS X <br> ##### grepしてみる 文字列の配列(リストコンテキスト)と数値の配列でgrepしてみる。 <pre class="brush: perl"> use 5.010; use strict; use warnings; use Data::Dumper; my @prefectures = qw(大阪府 京都府 北海道 東京都); my @greped_prefectures = grep /^.*府$/, @prefectures; say Dumper @greped_prefectures; my @numbers = qw(1 2 4 8 16 24); my @greped_numbers = grep $_ % 4 == 0, @numbers; say Dumper @greped_numbers; </pre> my @greped_prefectures = grep /^.*府$/, @prefectures;で、最後に府がつく配列を返す。 my @greped_numbers = grep $_ % 4 == 0, @numbers;で、４で割り切れる数値の配列を返す。 <pre class="brush: perl"> $VAR1 = '大阪府'; $VAR2 = '京都府'; $VAR1 = 4; $VAR2 = 8; $VAR3 = 16; $VAR4 = 24; </pre> <br> とても便利ですね〜。 <br> ##### 最近読んだ本