http://qs1969.pair.com?node_id=111953


in reply to 1 vs "1"

A limited method, but one that could be built on is to use +0. Using an eval like the example below will return 0 if fed a string containing no numeric characters or the number 0 so, something like this could be a start:

foreach my $var ('0', '-112.04', 'qwerty') { $var2 = eval '$var+0'; if($var eq '0' or $var2) { print "Is an number\n"; } else { print "May not be an number\n"; } }

$japh->{'Caillte'} = $me;