I am quite new to programming and Perl, so please bear with me. I have a requirement to check the format of a field before a record can be saved. The format of the field needs to be double digit value separated by a . (period) like "00.00.00". This I managed to do using the following:
use strict; use warnings; my $field; print "This program will verify field value.\n"; print "Enter field value: "; $field = <STDIN>; chomp ($field); if ( $field =~ /^[0-9]{2}\.[0-9]{2}\.[0-9]{2}$/ ) { print "Value is OK"; } else { print "Value is Wrong. Please enter a double digit value like 00.00.00"; } ########### However, the requirement has changed in that we while we want to allow the "00.00.00" format we do not a 0 (zero) to be a leading value. How can this be accomplished? Please advise. Regards. Amad __________________________________ Do you Yahoo!? Yahoo! Small Business - Try our new resources site! http://smallbusiness.yahoo.com/resources/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>