Shell Programming and Scripting

$ cat time.pl
#!/usr/bin/perl

use strict;
use warnings;

use Time::Local;
use POSIX qw/strftime/;

my ($tstr,$time,@tval);

$tstr = "09/10/2005";

@tval = ( $tstr =~ m|(\d{2})/(\d{2})/(\d{4})| );

$time = timelocal( 0, 0, 0, $tval[1], $tval[0] - 1, $tval[2] );
print strftime( "%m/%d/%Y", localtime( $time + 24 * 3600 ) ), "\n";



$tstr = "02/28/2004";

@tval = ( $tstr =~ m|(\d{2})/(\d{2})/(\d{4})| );

$time = timelocal( 0, 0, 0, $tval[1], $tval[0] - 1, $tval[2] );
print strftime( "%m/%d/%Y", localtime( $time + 24 * 3600 ) ), "\n";
$ perl time.pl
09/11/2005
02/29/2004

$
$ echo "09/10/2005" | perl -M"Date::Calc" -lne '@x=split(/\//,$_);
  @y=Date::Calc::Add_Delta_YMD($x[2],$x[0],$x[1],0,0,1); printf("%02d/%02d/%4d\n", $y[1],$y[2],$y[0])'
09/11/2005
$
$
$ echo "02/28/2008" | perl -M"Date::Calc" -lne '@x=split(/\//,$_);
  @y=Date::Calc::Add_Delta_YMD($x[2],$x[0],$x[1],0,0,1); printf("%02d/%02d/%4d\n", $y[1],$y[2],$y[0])'
02/29/2008
$
$ echo "12/31/2009" | perl -M"Date::Calc" -lne '@x=split(/\//,$_);
  @y=Date::Calc::Add_Delta_YMD($x[2],$x[0],$x[1],0,0,1); printf("%02d/%02d/%4d\n", $y[1],$y[2],$y[0])'
01/01/2010
$
$ echo "02/28/1900" | perl -M"Date::Calc" -lne '@x=split(/\//,$_);
  @y=Date::Calc::Add_Delta_YMD($x[2],$x[0],$x[1],0,0,1); printf("%02d/%02d/%4d\n", $y[1],$y[2],$y[0])'
03/01/1900
$
$