|
|
|
| Don't ask to ask, just ask | |
| PerlMonks |
(YAWTDI) Regex to match 20 chars of some digits followed by some spacesby Zaxo (Archbishop) |
| on Dec 19, 2003 at 08:05 UTC ( [id://315764]=note: print w/replies, xml ) | Need Help?? |
|
No extraction of data this time, just a little check on $record, print substr( $record, 0, 20) =~ /^\d+ *$/ ? 'OK' : 'NOK'; I like to keep the regexen as simple as possible. After Compline,
In Section
Seekers of Perl Wisdom
|
|
||||||||||||||||||||||