version 1.4, 2002/01/13 00:32:12
|
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!!!!!!!!! |
#!!!! Ne doizmeneno!!!!!!!!! |
my $a=shift; |
my $a=shift; |
my $unpacked=unpack("L",$a); |
my $unpacked=unpack("L",$a); |
my $field=$unpacked && 0xF; |
my $field=$unpacked && 0xF; |
$unpacked=$id{(($unpacked & 0xF0) << 12) + $unpacked & 0xFFFF}; |
$unpacked=$id{(($unpacked & 0xF0) << 12) + $unpacked & 0xFFFF}; |
my $packed=$field | $unpacked & 0xF0) << 12) + $unpacked & 0xFFFF); |
# my $packed=$field | $unpacked & 0xF0) << 12) + $unpacked & 0xFFFF); |
$packed; |
$packed; |
} |
} |