【perl】 grep関数を使ってみた

perlでのgrep関数を使ってみた。意外と簡単。
プログラムは以下の通り。

sh-3.00$ cat grep01.pl
#!/usr/bin/perl
@array = ("apple", "application","pineapple","wine","windows");
$count = grep(/app/, @array);
@items = grep(/app/, @array);
print "件数は$count、内容は@items。\n";

appを含むものを引っ掛けてその件数と内容を表示する。

sh-3.00$ perl grep01.pl
件数は3、内容はapple application pineapple。



次に、先頭文字がappのものを引っ掛けてその件数と内容を表示する。

sh-3.00$ cat grep02.pl
#!/usr/bin/perl
@array = ("apple", "application","pineapple","wine","windows");
$count = grep(/^app/, @array);
@items = grep(/^app/, @array);
print "件数は$count、内容は@items。\n";

実行結果は以下の通り。

sh-3.00$ perl grep02.pl
件数は2、内容はapple application。



そして、大文字小文字を区別せずに検索してみる。

sh-3.00$ cat grep03.pl
#!/usr/bin/perl
@array = ("Apple", "aPPlication","piNeapple","wine","windows");
$count = grep(/app/i, @array);
@items = grep(/app/i, @array);
print "件数は$count、内容は@items。\n";

実行結果は以下の通り。

sh-3.00$ perl grep03.pl
件数は3、内容はApple aPPlication piNeapple。