![[PukiWiki]](image/logo.png "[PukiWiki]"){kind=logo}
Perlのgrepを利用しファイル内のテキスト情報をgrepするサンプルコードと動作結果を以下に記します。
以下の情報のテキストファイルを使用しました。
hokkaido aomori iwate miyagi akita yamagata fukushima ibaraki tochigi gunma saitama chiba tokyo kanagawa niigata toyama ishikawa fukui yamanashi nagano
本サンプルコードは、ファイルを読み込み配列に投入しています。
ファイルのテキスト情報を投入した配列を使用しgrepを行っています。
尚、grepの検索パターンはaから始まる文字列を設定しています。
#!/usr/bin/perl
use strict;
use warnings;
my $file = shift;
die "Usage: $0 <file>\n" unless $file;
open(my $fh, '<', $file) or die ("Error: $!\n");
my @target = <$fh>;
close($fh);
my @match = grep(/^a/, @target);
print @match;
$ chmod +x grep.pl $ ./grep.pl pref.txt aomori akita
