1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| BEGIN { FS=";";
diffdates = 0;
periode3m = mktime("1970 04 02 12 00 00");
today = systime();
cpt = 0;
}
{
print $1 " " $2 " " substr($3,7,4) " " substr($3,4,2) " " substr($3,1,2) " " "00 00 00" " " $4 " " $5 " " $6 ;
datfic = mktime (substr($3,7,4) " " substr($3,4,2) " " substr($3,1,2)" " "00 00 00");
diffdates = today - datfic;
print "today : " today " ;" "date_fichier : "datfic " ;" "difference entre date systeme et date fichier : " diffdates;
if (diffdates <= 7776000)
{print $0 >> "result_purgelog.csv";
}
else
{ cpt ++
print $0 >> "rejet.txt"};
}
END {print "nombre d'articles supprimes : " cpt}; |
Partager