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

• Prev
• Next
• Perl/サンプル

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

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

関連記事 †

• Perlでファイル内のテキスト情報をgrepする方法
• Perlで文字列の切り出しをする方法・substr
• Perlでパス付きファイル名からファイル名のみ抽出する方法・basename
• Perlで配列のデータをCSV出力する方法・join

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

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

pref.txt

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から始まる文字列を設定しています。

grep.pl

#!/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