Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl 
my $a = "123{12\n";
print "ACK non-digit!\n" if ($a =~ /[[:^digit:]]/);
print "ACK \\D!\n" if ($a =~ /\D/);

Select or download this
```
  DB<1> $s = 123

...
0  1
1  2
2  3
```