Il y a beaucoup de contrôle de temps sur
Perl, des modules aussi.
Voici juste un petit script qui vous donne à approximativement
le temps système de l'origine
(1970-01-01 à 00h ce qui n'est pas obligatoirement vrai
pour tout les systèmes) jusqu'en 2070 en secondes. Ceci est
juste pour
ce donner un idée de l'ordre des grandeur.
Ce script est très âgé, ne sert à rien ...
carrément obsolète.
Voir plutôt mon module
Datefrench.pm pour afficher une heure et
une date en français (pour maintenant et pour dater les
fichiers) qui peut être appelé de tous vos scripts.
Trouvez le code ici et le man ici.
alain Adelmar
#!/usr/bin/perl -w
# liste des secondes par rapport au années depuis le debut
1970
# tableau de grandeur du temps _ alain adelmar 25 Janvier 2001.
$file = "temps_1970-2070_sec.log";
@mois = qw(
Janv
Févr
Mars
Avri
Mai
Juin
Juil
Aout
Sept
Octo
Nove
Dece
);
$z = 2592000;
$a = 1970;
@matiere = <F>;
for ($x = 0; $x <= 3110400000; $x = $x + $z) {
$m = $mois[$i];
$line = "$m $a\t$x\n";
push @matiere, $line;
print "$line";
if ("$m" eq "Dece") {
$i = 0;
$a++;
$x = $x + 430000; #rattrapage car sur un an
perd 5 jours
}
else {
$i++;
}
}
open(F, ">$file") or die "putain ca coince pboverture $!";
print F @matiere;
close F || die "remerde pb_fermeture $!";
END;