in reply to Script to validate date fails

Basic debugging checklist, Tip #9: Demystify regular expressions by installing and using the CPAN module YAPE::Regex::Explain 
The regular expression:

(?-imsx:[1-31]-[1-12]-[1-99])

matches as follows:
  
NODE                     EXPLANATION
----------------------------------------------------------------------
(?-imsx:                 group, but do not capture (case-sensitive)
                         (with ^ and $ matching normally) (with . not
                         matching \n) (matching whitespace and #
                         normally):
----------------------------------------------------------------------
  [1-31]                   any character of: '1' to '3', '1'
----------------------------------------------------------------------
  -                        '-'
----------------------------------------------------------------------
  [1-12]                   any character of: '1' to '1', '2'
----------------------------------------------------------------------
  -                        '-'
----------------------------------------------------------------------
  [1-99]                   any character of: '1' to '9', '9'
----------------------------------------------------------------------
)                        end of grouping
----------------------------------------------------------------------

[download]

BTW, "validate valid date" has a nice ring to it :)

Replies are listed 'Best First'.
Re^2: Script to validate date fails
by madhum21 (Initiate) on Feb 17, 2012 at 13:10 UTC

    Thanks all. Thanks for all the help

[reply]
Re^2: Script to validate date fails
by tobyink (Canon) on Feb 17, 2012 at 13:25 UTC

    BTW, "validate valid date" has a nice ring to it :)

    Good point. If we only need to validate valid dates, then the following should work:

    print("Enter the date in dd-mm-yy format: ");
while(<STDIN>)
{
  print("You have entered valid data\n");
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom