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

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

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 549件 [詳細] filepref.txt 1033件 [詳細]

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2025-03-12 (水) 11:37:58