![[PukiWiki]](image/logo.png "[PukiWiki]"){kind=logo}
Perでファイルから1行ずつ読み込む方法 †本資料は、テキストファイルから1行ずつ読み込むPerlサンプルコードを紹介しています。 スポンサーリンク 関連記事 †ファイルから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 Perlサンプルコード †#!/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サンプルコードの実行結果 †$ 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 スポンサーリンク |
