Help for this page

Select Code to Download

Select or download this

C:>perl -e "my $var = '0x8';if ($var =~ /^[1-9]\d*$/) {print 'num' } e
+lse {print 'not a num';}"
not a num

Select or download this

C:>perl -e "my $var = 0x8;if ($var =~ /^[1-9]\d*$/) {print 'num' } els
+e {print 'not a num';}"
num