![[PukiWiki]](image/logo.png "[PukiWiki]"){kind=logo}
本資料は、テキストファイルから1行ずつ読み込むPerlサンプルコードを紹介しています。
Perlサンプルコードおよび使用したテキストファイルを以下に記します。
Perlサンプルコードで使用したテキストファイルは以下の通りです。
$ cat pref.txt hokkaido aomori iwate miyagi akita yamagata fukushima ibaraki tochigi gunma saitama chiba tokyo kanagawa niigata toyama ishikawa fukui yamanashi nagano
#!/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);
$ 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
