prints#!/usr/bin/perl -l use strict; use warnings; my $regexp = qr/^[^A-Z0-9]+$/; print 'abc' =~ $regexp; print 'ABC' =~ $regexp; print 'ab0' =~ $regexp; print '^|+' =~ $regexp; print '' =~ $regexp;
1 (0) (0) 1 (0)
In reply to Re^2: String Validation
by shigetsu
in thread String Validation
by Trihedralguy
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |