version 1.8, 2001/12/05 01:29:09
|
version 1.9, 2002/01/13 00:32:12
|
Line 148 sub packword
|
Line 148 sub packword
|
{ |
{ |
my ($fieldnumber,$id,$wordnumber)=@_; |
my ($fieldnumber,$id,$wordnumber)=@_; |
die "packword: fieldnumber is $fieldnumber! -- id=$id, word=$wordnumber\n" if $fieldnumber>6; |
die "packword: fieldnumber is $fieldnumber! -- id=$id, word=$wordnumber\n" if $fieldnumber>6; |
pack("CSC",$fieldnumber,$id,$wordnumber%256) |
$r=pack("CSC",$fieldnumber|(($id >> 16) << 4),$id%65536,$wordnumber%256); |
} |
} |
|
|
sub updateword2question |
sub updateword2question |