このエントリーをはてなブックマークに追加


Perlでファイル内のテキスト情報をgrepする方法

Perlのgrepを利用しファイル内のテキスト情報をgrepするサンプルコードと動作結果を以下に記します。


スポンサーリンク

関連記事

使用したテキストファイル

以下の情報のテキストファイルを使用しました。

hokkaido
aomori
iwate
miyagi
akita
yamagata
fukushima
ibaraki
tochigi
gunma
saitama
chiba
tokyo
kanagawa
niigata
toyama
ishikawa
fukui
yamanashi
nagano

Perlでgrepを行うサンプルコード

本サンプルコードは、ファイルを読み込み配列に投入しています。
ファイルのテキスト情報を投入した配列を使用し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;

Perlでgrepをするサンプルコードの実行結果

$ chmod +x grep.pl
$ ./grep.pl pref.txt
aomori
akita

スポンサーリンク


添付ファイル: filegrep.pl 334件 [詳細] filepref.txt 840件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2015-03-20 (金) 22:31:41