At 04:30 AM 8/10/01 +0530, sachidanand haldankar wrote:
>Hi Peter,
>
> with the regex u sent I am still able to enter invalid date
>
>31/25/2001....
>
>my perl code is,
>
>$var1 = <STDIN>;
>$var1 =~ m#^(\d\d)/(\d\d)/(\d{4})$# && $1<31 && $2<12;
>print $&;
>Can u please correct the error,
There's nothing wrong with the code, it's your understanding of what it
means. Observe:
% cat /tmp/foo
#!/usr/bin/perl -w
use strict;
my $var1 = shift;
if ($var1 =~ m#^(\d\d)/(\d\d)/(\d{4})$# && $1<31 && $2<12) {
print "$var1 is a valid date\n";
}
else {
print "$var1 is not a valid date\n";
}
%$ /tmp/foo 31/25/2001
31/25/2001 is not a valid date
% /tmp/foo 30/11/2001
30/11/2001 is a valid date
You need to understand about logical operators like && (perldoc perlop) and
use of conditional statements like if () {} (perldoc perlsyn), both of
which are much more fundamental and important than $&.
>Thanks,
>Anand
>
>
>>From: Peter Scott <[EMAIL PROTECTED]>
>>To: "sachidanand haldankar" <[EMAIL PROTECTED]>
>>CC: [EMAIL PROTECTED]
>>Subject: Re: Date Validation Regex
>>Date: Thu, 09 Aug 2001 15:30:28 -0700
>>
>>At 03:59 AM 8/10/01 +0530, you wrote:
>>>Hi Peter,
>>>
>>> I have made the changes already. Thanks a lot but its hurtning. Just
>>>started with Regxes. I assure u, Here after u will get some thing
>>>apprciabely ok. Can u suggest better site for regexes
>>
>>Get Jeff Friedl's book 'Mastering Regular Expressions" from
>>O'Reilly. Also, "perldoc perlretut" gives you a tutorial if you have Perl
>>5.6.1.
>>
>>>Thanks,
>>>Anand
>>>
>>>
>>>>From: Peter Scott <[EMAIL PROTECTED]>
>>>>To: <[EMAIL PROTECTED]>,<[EMAIL PROTECTED]>
>>>>Subject: Re: Date Validation Regex
>>>>Date: Thu, 09 Aug 2001 15:22:21 -0700
>>>>
>>>>At 03:16 PM 8/9/01 -0700, I wrote:
>>>>>At 05:43 PM 8/9/01 -0500, [EMAIL PROTECTED] wrote:
>>>>>>Hi ,
>>>>>>
>>>>>> Can anybody help me to write regex for date validation. The
>>>>>>validation criterion will be as below,
>>>>>>
>>>>>>with date in format dd/mm/yyyy &
>>>>>>
>>>>>>dd - should be less than 31
>>>>>
>>>>>Really? You're starting from 0?
>>>>>
>>>>>>mm - should be less than 12
>>>>>
>>>>>Ditto.
>>>>>
>>>>>>yyyy - no validation
>>>>>
>>>>>Not everything should be done with a single regex, even though anything
>>>>>can be. Here:
>>>>>
>>>>> $date =~ m#^(\d\d)/(\d\d)/(\d{4})$/ && $1 < 31 && $2 < 12
>>>>
>>>>Rats, hit Send too soon. The delimiter is #, not /:
>>>>
>>>> $date =~ m#^(\d\d)/(\d\d)/(\d{4})$# && $1 < 31 && $2 < 12;
>>>> # Now use date in ($1, $2, $3)
>>>>--
>>>>Peter Scott
>>>>Pacific Systems Design Technologies
>>>>http://www.perldebugged.com
>>>
>>>
>>>_________________________________________________________________
>>>Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp
>>
>>--
>>Peter Scott
>>Pacific Systems Design Technologies
>>http://www.perldebugged.com
>
>
>_________________________________________________________________
>Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp
>
--
Peter Scott
Pacific Systems Design Technologies
http://www.perldebugged.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
