Perl/サンプル/ファイルから1行ずつ読み込む方法
の編集
Top
/
Perl
/
サンプル
/
ファイルから1行ずつ読み込む方法
[
トップ
] [
編集
|
差分
|
履歴
|
添付
|
リロード
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
-- 雛形とするページ --
(no template pages)
#navi(../) * Perでファイルから1行ずつ読み込む方法 [#l82715e1] 本資料は、テキストファイルから1行ずつ読み込むPerlサンプルコードを紹介しています。 #contents #htmlinsert(ll_ads_top.html) * 関連記事 [#u356052e] -[[ファイルから1行ずつ読み込む方法>Perl/サンプル/ファイルから1行ずつ読み込む方法]] -[[Perlでファイル・ディレクトリの有無を確認する>Perl/サンプル/ファイル・ディレクトリの有無を確認する]] -[[Perlでディレクトリを作成する・mkdir・mkpath>Perl/サンプル/ディレクトリを作成する・mkdir・mkpath]] -[[Perlでパーミッションを変更する・chmod>Perl/サンプル/パーミッションを変更する・chmod]] * ファイルから1行ずつ読み込むPerlサンプルコード [#eaf722ba] Perlサンプルコードおよび使用したテキストファイルを以下に記します。 ** 使用したテキストファイル [#w182f4d7] Perlサンプルコードで使用したテキストファイルは以下の通りです。 #ref(pref.txt) $ cat pref.txt hokkaido aomori iwate miyagi akita yamagata fukushima ibaraki tochigi gunma saitama chiba tokyo kanagawa niigata toyama ishikawa fukui yamanashi nagano ** Perlサンプルコード [#ea3e1a16] #ref(readline.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"); while (my $l = <$fh>) { print $l; } close($fh); ** ファイルから1行ずつ読み込むPerlサンプルコードの実行結果 [#t0ab7e1f] $ chmod +x readline.pl $ ./readline.pl pref.txt hokkaido aomori iwate miyagi akita yamagata fukushima ibaraki tochigi gunma saitama chiba tokyo kanagawa niigata toyama ishikawa fukui yamanashi nagano #htmlinsert(ll_ads_btm.html)
タイムスタンプを変更しない
#navi(../) * Perでファイルから1行ずつ読み込む方法 [#l82715e1] 本資料は、テキストファイルから1行ずつ読み込むPerlサンプルコードを紹介しています。 #contents #htmlinsert(ll_ads_top.html) * 関連記事 [#u356052e] -[[ファイルから1行ずつ読み込む方法>Perl/サンプル/ファイルから1行ずつ読み込む方法]] -[[Perlでファイル・ディレクトリの有無を確認する>Perl/サンプル/ファイル・ディレクトリの有無を確認する]] -[[Perlでディレクトリを作成する・mkdir・mkpath>Perl/サンプル/ディレクトリを作成する・mkdir・mkpath]] -[[Perlでパーミッションを変更する・chmod>Perl/サンプル/パーミッションを変更する・chmod]] * ファイルから1行ずつ読み込むPerlサンプルコード [#eaf722ba] Perlサンプルコードおよび使用したテキストファイルを以下に記します。 ** 使用したテキストファイル [#w182f4d7] Perlサンプルコードで使用したテキストファイルは以下の通りです。 #ref(pref.txt) $ cat pref.txt hokkaido aomori iwate miyagi akita yamagata fukushima ibaraki tochigi gunma saitama chiba tokyo kanagawa niigata toyama ishikawa fukui yamanashi nagano ** Perlサンプルコード [#ea3e1a16] #ref(readline.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"); while (my $l = <$fh>) { print $l; } close($fh); ** ファイルから1行ずつ読み込むPerlサンプルコードの実行結果 [#t0ab7e1f] $ chmod +x readline.pl $ ./readline.pl pref.txt hokkaido aomori iwate miyagi akita yamagata fukushima ibaraki tochigi gunma saitama chiba tokyo kanagawa niigata toyama ishikawa fukui yamanashi nagano #htmlinsert(ll_ads_btm.html)
テキスト整形のルールを表示する
添付ファイル:
pref.txt
1737件
[
詳細
]
readline.pl
2231件
[
詳細
]
![[PukiWiki]](image/logo.png "[PukiWiki]"){kind=logo}
