【ラグナロク】１２／１日　トラブル発生！

>>342 ｺﾞﾒｿ今まで寝てた。ROの無い生活は健康的だね。
で、ツールなんだけど、unix用でつ。perl覚えたて厨でgzipが必要でキタナイやつ
でよければどーぞ。だれかかっこ良く治して（ｗ＞perlのエラいひと
#!/usr/bin/perl
($inf, @other) = @ARGV; system(" gzip -dc $inf > ./RGZTMP"); open(IN,"./RGZTMP") || die;
while(1){
read(IN, $ft, 1); die "END" if($ft eq 'e'); die unless($ft eq 'd' || $ft eq 'f');
read(IN, $of, 1); $of=unpack('C', $of);
read(IN, $dn, $of); chop($n=unpack('a*',$dn)); $n =~ s/\\/\//; printf("name:%s\n", $n);
if($ft eq 'd'){ mkdir($n, 0777); next; }
if($ft eq 'f'){ read(IN, $of, 4); $of=unpack('V', $of);
printf(" size=%d\n", $of); open(OUT,">$n") || die "cant write";
for($i=0; $i < $of; $i++){ read(IN, $c, 1); print OUT $c; }
close OUT; }
unlink "./RGZTMP"; }