[PERL] la fonction stat

Bonjour à tous.

Voilà mon souci.
J'utilise la fonction stat pour sortir quelques propriétés sur des fichiers et notamment la date de la dernière modification du fichier (à défaut d'avoir trouver la date de création du fichier ....)

Ainsi, si je fait:

Code:

---

1 2	@infos=stat($fichier);

---

$infos[9] me donne le temps de la dernièr emodification depuis epoch.

or je voudrais formater ce $infos[9] en une date et une heure du type jj/mm/aaaa hh:mm

Comment faire, je n'y parviens pas.

Merci d'avance pour vos suggestions.

Bonjour

Un truc du genre :

Code:

---

1 2	print localtime($infos[9]);

---

Non ?

Oui, j'ai pensé à faire ça.

J'ai la fonction suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

sub ConvertEpochToDate(@_) { my $time=$_[0]; my $type=$_[1]; my $resdate; (my $sec,my $min,my $hour,my $mday,my $mon,my $year,my $wday,my $yday,my $isdst) = localtime($time); my $num=length ($year); my $year=substr ($year,1,$num);   if ($sec < 10) { $sec = "0$sec"; } if ($min < 10) { $min = "0$min"; } if ($hour < 10) { $hour = "0$hour"; } if ($mon < 10) { $mon = "0$mon"; } if ($mday < 10) { $mday = "0$mday"; } $month = ($mon + 1); if ($month < 10) { $month = "0$month"; } switch($type) { case 'cdate'{$resdate = "$mday$month$year";} case 'ldate'{$resdate = "$mday$month$year\_$hour$min$sec";} case 'hour'{$resdate = "$hour:$min";} case 'anglais'{$resdate = "$month\/$mday\/20$year$ at $hour\:$min";} case 'français'{my @months = ("Janvier","Fevrier","Mars","Avril","Mai","Juin","Juillet","Août","Septembre","Octobre","Novembre","Decembre");$resdate = "$mday $months[$mon] 20$year $hour\:$min\:$sec";}   else {die "\nerror GetDate(): type de date non reconnu\n";} }   return $resdate; }

---

Mais ça ne ressort rien de bon. En appelant la fonction comme ça :

Code:

---

1 2 3

my @stats=stat($FileName); $hour=&TX2::Tools::ConvertEpochToDate($stats[9],'hour');

---

$hour contient la valeur:

Code:

---

1 2

01:00

---

:cry: :cry: :oops:

Ton code parait ok !!!

Chez moi :

Code:

---

1 2 3 4 5

my @stats = stat("/tmp/dump.tmp"); $time = $stats[9]; (my $sec,my $min,my $hour,my $mday,my $mon,my $year,my $wday,my $yday,my $isdst) = localtime($time); print $hour."\n";

---

marche très bien :

Code:

---

1 2 3 4 5

#./test.pl 11 # ls -la /tmp/dump.tmp -rw-r--r-- 1 root root 36720 2005-10-25 11:41 /tmp/dump.tmp

---

Tu es sur que ton fichier scanné par stat n'a pas été modifié à 01:00 heure :)

Non j'obtiens toujours le même résulat, même sur des fichiers qui ont été modifiés il y a deux jours....
Je vai scontinuer à chercher....

Et bien autant pour moi !! Je ne suis qu'un idiot !!!!
J'avais oublié de préciser le chemin de mon fichier !!!!!!

ça fonctionne maintenant.

Merci pour ton aide.

Et bonne journée !