Shell Programming and Scripting

$
$
$ perl -MDateTime -le '$d = DateTime->now;
                       $start = $d->clone;
                       $d1 = $d->add(months=>1);
                       $end = DateTime->last_day_of_month(year=>$d1->year, month=>$d1->month);
                       print "The date today          = ", $start->ymd("");
                       print "Last date of next month = ", $end->ymd("");
                       print "Number of days left     = ", $start->delta_days($end)->delta_days;
                      '
The date today          = 20100930
Last date of next month = 20101031
Number of days left     = 31
$
$

#!/bin/bash

#Get last date
dt=$(($(date +%-m) + 2))
yr=$(date +%Y)
if [ $dt -gt 12 ]; then
        dt=$((1 + ($dt - 12)))
        yr=$(($yr + 1))
fi
value=$(date -d "$yr-$dt-01 -1 day" +%Y%m%d)

echo "Last day of next month is $value"

#Get days between

seconds1=$(date -d $value +%s)
seconds2=$(date +%s)
elapsed=$(($seconds1 - $seconds2))
secondsperday=86400
numdays=$(($elapsed / $secondsperday))
echo "Number of days between is $numdays"