このエントリーをはてなブックマークに追加


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

スポンサーリンク


添付ファイル: filepref.txt 1666件 [詳細] filereadline.pl 2164件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2015-03-20 (金) 22:31:39