Perl/サンプル/Perlでファイル内のテキスト情報をgrepする方法
の編集
Top
/
Perl
/
サンプル
/
Perlでファイル内のテキスト情報をgrepする方法
[
トップ
] [
編集
|
差分
|
バックアップ
|
添付
|
リロード
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
-- 雛形とするページ --
(no template pages)
#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)
タイムスタンプを変更しない
#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)
テキスト整形のルールを表示する
添付ファイル:
grep.pl
352件
[
詳細
]
pref.txt
855件
[
詳細
]