Perl/サンプル/ファイルから1行ずつ読み込む方法 の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• Perl/サンプル/ファイルから1行ずつ読み込む方法 へ行く。

#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)