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).
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]
