Perlで改行のない巨大な固定長のテキストファイルを処理しよう

固定長のテキストファイルになっているバカでっかいデータを処理しなくちゃいけなくなったのですが、データセットの区切りに改行が入ってなかったんですよ。

というわけで、read 関数を使って処理することにしました。

#!/usr/bin/perl use strict; use warnings; open(my $rh, "<", 'sample.txt') || die "Can't open file: $fname\n"; open(my $wh, ">", "addCRLF.txt"); while(read($rh, my $buf, 256)){ print $wh $buf,"\n"; } close($wh); close($rh);

ファイルのサイズが小さければ、一気に変数に読み込んで substr を回して処理できて楽だったんですけどねぇ。