你是怎样验证的 ?my $message = pack("x100");print ord ( $_ ) foreach split//, $message;print "$/Length = ", length ($message) . $/;print $/.$/;for my $y ( 0..96 ) {
my $temp = "x${y}I";
my $value = unpack($temp,$message);
print $value , " ", ord ( $value), "; ";}我这里的输出都没问题丫..000000000000000000000000000... |