ビット演算時の注意

Perlでのbit演算をしようとしているときに、変数がどうしても文字列扱いされてしまい非常に苦労したが、hex()を使えば、確実に数値として扱われる。

print 0xFF ^ CB;
255

print 0xFF ^ pack("H*",CB);
255

$a="CB"; print 0xFF ^ pack("H*",$a);
255

print 0xFF ^ hex(CB);
52

$a="CB"; print 0xFF ^ hex($a);
52