At 12:33 AM 8/10/01 -0500, Teresa Raymond wrote:
>Yes, it does. I believe, that this code only makes sure that only digits
>are used, that there are 2 digits for the day slot, 2 digits for the month
>slot, 4 digits for the year slot, that the day will not exceed 31, and the
>month will not exceed 12 (someone please correct me if I am not reading
>this regex correctly).
Well, the original posted criteria (with my responses) were:
> >>>>>> 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
And yes, that's not enough for complete date verification, but I figured we
have to let people start somewhere.
>If you want to test more specifically, you'll have to put in params for
>each month since each month varies from 28 to 31 days (and you'll have to
>account for leap year too).
>
>
>>But, can this code to test if 31/6/2001 is valid or not?
>>
>>we know there are totally 30 day in June.
>>
>>Thanks.
>>----- Original Message -----
>>From: "Peter Scott" <[EMAIL PROTECTED]>
>>To: "sachidanand haldankar" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
>>Sent: Thursday, August 09, 2001 10:00 PM
>>Subject: Re: Date Validation Regex
>>
>>
>> > 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]
>> >
>>
>>
>>--
>>To unsubscribe, e-mail: [EMAIL PROTECTED]
>>For additional commands, e-mail: [EMAIL PROTECTED]
>
>
>--
>To unsubscribe, e-mail: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
>
--
Peter Scott
Pacific Systems Design Technologies
http://www.perldebugged.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
