j'ai un script écrit en date_add.sh k_shell

Mon script shell condition qu'elle accepte une date à partir de l'utilisateur dans le format AAAA-MM-JJ, puis il montre tous les 15 jours plus tard, jour availaible de l'année en cours

si la date de l'utilisateur est accepté 2008-10-13, puis l'o / p sholud être
2008-10-28
2008-11-12
2008-11-27
2008-12-12
2008-12-27
-------------------------------------------------- ---------------------

Comment mettre cette logique dans une boucle? Aussi la façon de convertir Epoch jour en format AAAA-MM-JJ

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

mais la commande ci-dessous ne fonctionne pas

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

en-dessous de mon script. En fait, dans mon script im prenant la date du jour et puis l'ajout de 15 jours pour elle.
-------------------------------------------------- ------------------------

#! / bin / ksh

Current_day \u003d `perl -e 'print int (time);' `
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 (shift)) [9]); printf "% 4d-% 02d-% 02d \ n", $ d [5] 1900, $ d [4] 1, $ d [3] " '" $ count "
-------------------------------------------------- ------------------------

la dernière commande, qui transforme la valeur en $ count format AAAA-MM-DD ne fonctionne pas. svp aidez-moi à cet égard?

stat travaille sur des fichiers, pas époque secondes.

d'accord. de façon à convertir la valeur de la commande ci-dessous dans la formay AAAA-MM-JJ, donc je vous l'o / p comme 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