Perl TSV to BIN
メモ
- バイナリで読み書きするときは open 直後に binmode を実行する。
- 書き込むときは pack で形式を指定する。記号の意味については「"perl" "pack"」で検索。
- 読み込むときは unpack で形式を指定する。(たぶん)
ソース
use open ':std';
# TSV To BIN
open(I, "< Data.txt");
open(O, "> Data.dat");
binmode O;
while (my $line = <I>) {
chomp($line);
my $buffer = pack("LLLL", split("\t", $_));
print O $buffer;
}
close(I);
close(O);
1;
- 最終更新:2013-05-22 17:58:30