#navi(../)
* Perlでファイル内のテキスト情報をgrepする方法 [#pecad6c3]
Perlのgrepを利用しファイル内のテキスト情報をgrepするサンプルコードと動作結果を以下に記します。

#contents
#htmlinsertpcsp(ll-top.html,ll-sp.html)

* 関連記事 [#c8591e54]
-[[Perlでファイル内のテキスト情報をgrepする方法>Perl/サンプル/Perlでファイル内のテキスト情報をgrepする方法]]
-[[Perlで文字列の切り出しをする方法・substr>Perl/サンプル/文字列の切り出しをする方法・substr]]
-[[Perlでパス付きファイル名からファイル名のみ抽出する方法・basename>Perl/サンプル/パス付きファイル名からファイル名のみ抽出する方法・basename]]
-[[Perlで配列のデータをCSV出力する方法・join>Perl/サンプル/配列のデータをCSV出力する方法・join]]

* 使用したテキストファイル [#n96fab90]
以下の情報のテキストファイルを使用しました。
#ref(pref.txt)
 hokkaido
 aomori
 iwate
 miyagi
 akita
 yamagata
 fukushima
 ibaraki
 tochigi
 gunma
 saitama
 chiba
 tokyo
 kanagawa
 niigata
 toyama
 ishikawa
 fukui
 yamanashi
 nagano

* Perlでgrepを行うサンプルコード [#a8ddfa42]
本サンプルコードは、ファイルを読み込み配列に投入しています。~
ファイルのテキスト情報を投入した配列を使用しgrepを行っています。~
尚、grepの検索パターンはaから始まる文字列を設定しています。
#ref(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をするサンプルコードの実行結果 [#t558d963]
 $ chmod +x grep.pl
 $ ./grep.pl pref.txt
 aomori
 akita

#htmlinsertpcsp(ll-btm.html,ll-sp.html)
トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS