Select Code to Download

print unpack 'S', pack 'S', 65537;;
1
...

print unpack 'Q', pack 'Q', 2**64+1;;
18446744073709551615

print unpack 'C', pack 'C', 2**8+1;;
Character in 'C' format wrapped in pack at (eval 17) line 1, <STDIN> l
+ine 9.
1

$s = chr( 257 );;

print do{ use bytes; length $s, unpack 'C*', $s };;
2 196 129

print $s, length $s;;
Wide character in print at (eval 19) line 1, <STDIN> line 11.
&#9472;ü 1