![[PukiWiki]](image/logo.png "[PukiWiki]"){kind=logo}
Perlのgrepを利用しファイル内のテキスト情報をgrepするサンプルコードと動作結果を以下に記します。
htmlinsert(): The given local file does not exist or is not readable.
以下の情報のテキストファイルを使用しました。
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
