version 1.1, 2001/12/04 01:49:03
|
version 1.3, 2002/01/13 00:32:12
|
Line 33 if ($#ARGV<2)
|
Line 33 if ($#ARGV<2)
|
|
|
my($dumpname, $tablename, @names)=@ARGV; |
my($dumpname, $tablename, @names)=@ARGV; |
|
|
open (TABLE, $tablename) or die "0: Can not open ". $tablenamename; |
open (TABLE, $tablename) or die "0: Can not open ". $tablename; |
|
|
open (DUMP, $dumpname) or die "0: Can not open ". $dumpname; |
open (DUMP, $dumpname) or die "0: Can not open ". $dumpname; |
|
|
Line 83 close (OUTDUMP);
|
Line 83 close (OUTDUMP);
|
sub s |
sub s |
{ |
{ |
my ($s1,$s2,$s3,$kvo) = @_; |
my ($s1,$s2,$s3,$kvo) = @_; |
$unpacked=unpack("S",$s2); |
$unpacked=unpack("S",$s2)|(($s1 & 0xF0) << 12); |
my $id=$outid{$unpacked}; |
my $id=$outid{$unpacked}; |
if (!$id) {$$kvo-=4;return ""} else {return "$s1$s2$s3"} |
if (!$id) {$$kvo-=4;return ""} else {return "$s1$s2$s3"} |
|
|