Ho uno script chiamato date_add.sh scritto in k_shell

Il mio script di shell requisito è che si accetta una data da parte degli utenti, nel formato AAAA-MM-DD e poi mostra tutti i giorni più tardi 15 giorni availaible durante l'anno in corso

se la data è accettato da un utente 2008/10/13, poi l'o / p sholud essere
2008-10-28
2008-11-12
2008-11-27
2008-12-12
2008-12-27
-------------------------------------------------- ---------------------

Come inserire questa logica in un ciclo? Inoltre, come convertire Epoch giorno in formato AAAA-MM-DD

Current_day \u003d `perl -e 'print int (time/86400 );'`-------------------- 16145

ma il comando non è al di sotto di lavoro

perl -e '@ d \u003d localtime ((stat (turni)) [9]); printf "%-4d% 02d-% 02d \ n", $ d [5] 1900, $ d [4] 1, $ d [3] 'Current_day

sotto il mio script. In realtà nel mio script nel prendere la data corrente e quindi l'aggiunta di 15 giorni ad essa.
-------------------------------------------------- ------------------------

#! / bin / ksh

Current_day \u003d `perl -e 'print int (tempo);' `
echo $ Current_day

count \u003d 0
count \u003d `expr $ Current_day + 1296000»
echo $ count

perl -le 'print scalar localtime (' "$ count "');'

perl -e '@ d \u003d localtime ((stat (turni)) [9]); printf "%-4d% 02d-% 02d \ n", $ d [5] 1900, $ d [4] 1, $ d [3] '' "$ count" '
-------------------------------------------------- ------------------------

l'ultimo comando che converte il valore di $ in formato AAAA-MM-DD non funziona. plz help me in questo?

stat lavora su file, non secondo epoca.

ok. così come convertire il valore al di sotto del comando nel formay YYYY-MM-DD così i dovrebbe ottenere il O / P come 2008/10/28

perl -le 'print scalar localtime (' "$ count "');'

#!/bin/ksh
tictock()
{ 
perl -e '
 $now = time;
 $increment = 1296000;
    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($now);
 $year += 1900;
 
 for($i=0, $thisyear = $year ; $thisyear==$year ; $i++)
 {
    printf ("%4d-%02d-%02d ", $year, $mon, $mday);
 	$incr=($increment * $i) + $now;
    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime($incr);
    $year += 1900;
    $mon += 1;
  
 }
 '
}

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