Shell Programming and Scripting

a.sh

tictock()
 {
perl -e '
$increment = 86400;
 @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
 @weekDays = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
$now=localtime(1247155200);

($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime(1247155200);
 $year = 1900 + $yearOffset;

 for($i=1, $thisyear = $yearOffset; $thisyear==$yearOffset, $i<=18 ; $i++)
  {
 #printf ("%02d%02d%4d ",  $month+1,$dayOfMonth,$year);
 printf ("%4d%02d%02d ",  $year,$month+1,$dayOfMonth);
   ($sec,$min,$hour,$dayOfMonth,$month,$yearOffset,$dayOfWeek, $dayOfYear, $daylightSavings)=localtime(1247155200 + ($increment
   * $i))
     }'
     }

    set -A arr $(tictock )
    let i=0
    #while [[ $i -lt ${#arr[*]} ]]
    while [[ $i -lt ${#arr[*]} ]]
    do
     print ${arr[i]}
     i=$(( i + 1))
done

o/p

20090224
20090225
20090226
20090227
20090228
20090301
20090302
20090303
20090304
20090305
20090306
20090307
20090308
20090309
20090310
20090311
20090312
20090313

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

if ($#ARGV < 0 or $ARGV[0] < 0) {
  print "Usage: perl dateloop.pl <epoch_seconds>\n";
  exit;
}
@week = qw( Sunday Monday Tuesday Wednesday Thursday Friday Saturday );
$es = $ARGV[0];
@startdate = localtime($es);

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = @startdate;
printf("Start date : %2d/%02d/%04d %2d:%02d:%02d\n",$mon+1,$mday,$year+1900,$hour,$min,$sec);
print "Day of week: ",$week[$wday],"\n";
print "Day of year: ",$yday+1,"\n";
print "Daylight savings ", $isdst ? "ON" : "OFF","\n";

for ($i = 0; $i < 18; $i++)
{
    ($sec, $min, $hour, $mday, $mon, $year) = @startdate;
    printf("%2d/%02d/%04d\n",  $mon + 1, $mday,  $year + 1900 );
    $incr += 86400;
    @startdate = localtime($es + $incr);
}

$ 
$ perl dtloop.pl
Usage: perl dateloop.pl <epoch_seconds>
$ 
$ perl dtloop.pl -9
Usage: perl dateloop.pl <epoch_seconds>
$ 
$ perl dtloop.pl 1047755290
Start date :  3/15/2003 14:08:10
Day of week: Saturday
Day of year: 74
Daylight savings OFF
 3/15/2003
 3/16/2003
 3/17/2003
 3/18/2003
 3/19/2003
 3/20/2003
 3/21/2003
 3/22/2003
 3/23/2003
 3/24/2003
 3/25/2003
 3/26/2003
 3/27/2003
 3/28/2003
 3/29/2003
 3/30/2003
 3/31/2003
 4/01/2003
$ 
$