Shell Programming and Scripting

let v_my_DT=$v_my_DT+1

#!/usr/bin/ksh

LASTDAY=`cal | sed '/^$/d' | tail -1 | head -1 | awk '{print $NF}'`
echo $LASTDAY

CURR_DATE=`date +%d`
echo $CURR_DATE

if [[ "${CURR_DATE}" -eq "${LASTDAY}" ]]; then
print "Today is the last day of the month"
#do your stuff
else
print "Today is NOT the last day of the month"
fi

$ 
$ cat datediff.pl
#!/usr/bin/perl  
use Date::Calc;  

$date1 = $ARGV[0];
$date2 = $ARGV[1];

# @dt = (year,month,day)
@dt1 = unpack("A4 A2 A2",$date1);
@dt2 = unpack("A4 A2 A2",$date2);

$dd = Date::Calc::Delta_Days($dt1[0],$dt1[1],$dt1[2],$dt2[0],$dt2[1],$dt2[2]);
print "Diff in days = $dd\n";                                                 
if ($dd > 0){                                                                 
  @sd = @dt1;                                                                 
  @ed = @dt2;                                                                 
} elsif ($dd < 0) {                                                           
  @sd = @dt2;                                                                 
  @ed = @dt1;                                                                 
} else {                                                                      
  @sd = @dt1;                                                                 
  @ed = @dt1;                                                                 
}                                                                             

# print 'em
printf("%-14s%d/%02d/%02d","Start Date =>",$sd[0],$sd[1],$sd[2]);
foreach $i (1..abs($dd)) {                                       
  @x = Date::Calc::Add_Delta_Days($sd[0],$sd[1],$sd[2],$i);      
  printf("\n%10s%4s%d/%02d/%02d",$i," => ",$x[0],$x[1],$x[2]);   
}                                                                
print " <== End Date\n";

$
$ perl datediff.pl 20091225 20100105
Diff in days = 11
Start Date => 2009/12/25
         1 => 2009/12/26
         2 => 2009/12/27
         3 => 2009/12/28
         4 => 2009/12/29
         5 => 2009/12/30
         6 => 2009/12/31
         7 => 2010/01/01
         8 => 2010/01/02
         9 => 2010/01/03
        10 => 2010/01/04
        11 => 2010/01/05 <== End Date
$
$ perl datediff.pl 20100104 20091227
Diff in days = -8
Start Date => 2009/12/27
         1 => 2009/12/28
         2 => 2009/12/29
         3 => 2009/12/30
         4 => 2009/12/31
         5 => 2010/01/01
         6 => 2010/01/02
         7 => 2010/01/03
         8 => 2010/01/04 <== End Date
$
$ perl datediff.pl 20100104 20100104
Diff in days = 0
Start Date => 2010/01/04 <== End Date
$
$

import datetime
mydate = "20090506"
year,mth,day = int(mydate[:4]),int(mydate[4:6]),int(mydate[6:])
diff = datetime.timedelta(days=1)
thedate = datetime.date(year,mth,day)
print thedate + diff

 # ./test.py
2009-05-07