Perlサンプル5 複数のファイルを読み込む

投稿：2019-08-25

内容

起動時の引数に複数のファイル名を指定して、全部読み込みます。

コード

#!/usr/bin/env perl

use v5.26;
use utf8;
use strict;
use warnings;

use Encode::Argv;
use Encode::Locale;

use open IO => ":utf8 :crlf";
binmode STDIN, ":encoding(console_in)";
binmode STDOUT, ":encoding(console_out)";
binmode STDERR, ":encoding(console_out)";

$| = 1;

# ファイル名の文字コードをファイルシステムの文字コードにエンコード
$_ = Encode::encode locale_fs => $_ for @ARGV;

my $line = 0;
while(<<>>) {
	# 各ファイルの先頭にファイル名
	say "-- @{[Encode::decode locale_fs => $ARGV]} --" if 1 == $.;

	chomp;
	$line++;
	say "行 $. / $line, '$_'";
} continue {
	# ファイルの最後で行番号をリセット
	$. = 0 if eof;
}

ファイルを用意

２つのテキストファイルを作ります。文字コードはUTF-8、改行コードはどちらでも読めるコードにしてありますので、どちらでも構いません。

たこルカは俺の嫁
家には４人いますΩ

ルカ姐さんも俺の嫁
家には
小さいルカ姐さんが３人
大きいルカ姐さんが４人
います

実行結果

引数をperl perlsample_005.pl perlsample_005_たこルカ.txt perlsample_005_ルカ姐さん.txtとした場合の結果です。

-- perlsample_005_たこルカ.txt --
行 1 / 1, 'たこルカは俺の嫁'
行 2 / 2, '家には４人いますΩ'
-- perlsample_005_ルカ姐さん.txt --
行 1 / 3, 'ルカ姐さんも俺の嫁'
行 2 / 4, '家には'
行 3 / 5, '小さいルカ姐さんが３人'
行 4 / 6, '大きいルカ姐さんが４人'
行 5 / 7, 'います'

解説

use open IO => ":utf8 :crlf"

Perlが自動的にopenするので、:crlfをデフォルトに追加します。

while(<<>>)

指定されたファイルを次々と開き、１行ずつのループを回します。この書き方は、ファイル境界がありません。ただループを回すと全ファイルを連結したかのように読み込みますので、ファイル境界を把握したい場合は工夫が要ります。似た書き方のwhile(<>)は２引数のopenですから、シェル文字を含むファイル名があれば誤動作するのでお勧めしません。
「I/O 演算子」
「空ファイルハンドルは 2 引数の "open" in perlfunc を使った特別な文字列」
「これを perl dangerous.pl 'rm -rfv *|' として呼び出すと、実際にはパイプを開き、rm コマンドを実行して、 rm の出力をパイプから読みます。」
perlop - Perl の演算子と優先順位 - perldoc.jp

$.

１から始まる行番号が入っていて１行読むと１増えます（そりゃそうだ）。複数のファイルを読んだ際にリセットされないので全ファイルの通し番号になります。そこで、このサンプルではファイル境界を判定してリセットします。
「最後にアクセスされたファイルハンドルの現在の行番号。」
「$. はファイルハンドルがクローズされるとリセットされますが、オープンしているファイルハンドルが close() されることなく再オープンされた場合にはリセットされません。」
Perlの組み込み変数 $. の翻訳 - perldoc.jp

continue

「これは C における for ループの 3 番目の部分と同様です。従って、これは next 文 (これは C の continue 文と似ています) を使ってループが繰り返されるときでもループ変数を増やしたいときに使えます。」
Perlの組み込み関数 continue の翻訳 - perldoc.jp

eof

ファイルを最後まで読み込んだかをチェックしています。最後の場合は行番号をリセット、次のファイルの１行目がファイル境界と判定できるようにします。
「次に FILEHANDLE 上で読み込みを行なったときに、EOF が返されるときか、または FILEHANDLE がオープンされていないと、1 を返します。」
「引数を省略した eof は、最後に読み込みを行なったファイルを使います。」
Perlの組み込み関数 eof の翻訳 - perldoc.jp