アーティクル

#69 Article 447 Posted at 1994/07/13 02:16:29 by Mick'n (MAP1406) [PERL]

Subject: MACバイナリを取り除く

MAC で作られたデータなどの場合、先頭に 128 バイトほど、他の機種では
  必要の無いデータがくっついてたりします。そこで先頭の128バイトを取り
  除くスクリプトを作りました。

#! /usr/bin/perl
open(FH, $ARGV[0]) || die "usage: cutmacbin <filename>\n";
$len = (stat(FH))[7];
die "Error: length of '$ARGV[0]' is less than 128.\n" if ($len < 128);
seek(FH, 128, 0) || die "Error: $!\n";
read(FH, $buf, $len - 128);
print $buf;


  別途 perl が必要です。
  perl script input-file > outputfile として使ってください。
  (DOS などでも大丈夫かしら)

  Mick'n (MAP1406)