version 1.3, 2001/11/01 01:44:59
|
version 1.5, 2002/01/14 01:41:08
|
Line 86 foreach my $id (values %id)
|
Line 86 foreach my $id (values %id)
|
|
|
sub s |
sub s |
{ |
{ |
|
#!!!! Ne doizmeneno!!!!!!!!! |
my $a=shift; |
my $a=shift; |
my $unpacked=unpack("S",$a); |
my $unpacked=unpack("L",$a); |
$unpacked=$id{$unpacked}; |
my $field=$unpacked && 0xF; |
my $packed=pack("S",$unpacked); |
$unpacked=$id{(($unpacked & 0xF0) << 12) + $unpacked & 0xFFFF}; |
|
# my $packed=$field | $unpacked & 0xF0) << 12) + $unpacked & 0xFFFF); |
$packed; |
$packed; |
} |
} |