Select Code to Download

$string = "1";
$integer = 1;

print ~$string;  # Prints an extended character
print ~$integer; # Prints 4294967294

sub is_integer
{
...
print "'1'      ", is_integer('1'),     "\n";   # 0 ok
print "chr(205) ", is_integer(chr(205)),"\n";   # 1 not ok