Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl 
my $a = "123{12\n";
...
print "\npast cazz ISdigit posix\n";

print "ACK \\D!\n" if ($a =~ /\D/);

Select or download this

print "ACK digit! per ww-ISdigit-posix\n" if ($a =~ /[[^:isdigit:]]/);
+  #changed; dbl brkts