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

このWIKIを編集するにはパスワード入力が必要です

認証パスワード