UNIX for Dummies Questions & Answers

f_HandleDate()
{

  #Split the date into Year month and Date. Format YYYYMMDD.
       year=`echo $NEXTRUNDATE | cut -c1-4` 
       month=`echo $NEXTRUNDATE | cut -c5-6`
       date=`echo $NEXTRUNDATE | cut -c7-8`

  #Use standard as maximum 31 days for all the months. eg., Feb month will also be considered as 31 days but not an issue here.     
       if [ "$date" -gt 31 ]
       then   
              month=`expr $month + 1`  #If date > 31 then increase month by 1.

              if [ "$month" -gt 12 ]
              then
                     month=1                 # If month  > 12 then reset value to 1.
                     year=`expr $year + 1`      # Increment year value by 1.
              fi

              if [ "$month" -lt 10 ]
              then
                     month=`echo "0"$month`  #if month < 10 then prefix 0. eg., 8 will be changed to 08
              fi

               NEXTRUNDATE=`echo $year$month"01"` # Form the new date
         #echo "New value $NEXTRUNDATE"
       fi

#!/usr/bin/perl -w
# Name   : isValidDate
# Purpose: To validate given date 
# Input  : Date(YYYYMMDD)
# Output : display "Invalid Date" if invalid, "Valid Date" if valid 
#
    my $inputdate =$ARGV[0];
    return "Invalid Date" unless length($inputdate)==8;
    return "Invalid Date" unless (Date::DateCalc::check_date(substr($inputdate,0,4),
                                                    substr($inputdate,4,2),
                                                    substr($inputdate,6)));
    return "Valid Date";

$ perl dateValidate.pl 20101222
Valid Date
$ perl dateValidate.pl 20101235
Invalid Date