Bonjour, je cherche à créer une fonction, avec comme paramètre un nom de fichier et qui retournerait une date de dernière modification sous forme AAAAMM ex 20076 ou 200710 J'ai juste besoin de l'année et du mois. Pour l'instant j'ai écrit ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#retourne date fichier passé en paramètre
sub valide {
my @afaire=@_;
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)= stat("$afa
ire");
($sec,$min,$heure,$jourM,$mois,$an,$jourS,$jourA)=localtime($mtime);
$an+=1900;
$mois++;
$affi="$an"."$mois";
#print ("dernier accès :$affi\n");
return $affi;
}
ceci fonctionne quand je l'utilise dans un script (sans écrire sub valide ...) mais dès que je tente de m'en servir comme fonction, ça me retourne dans tous les cas 19701 (1970 et 1). Origine du temps Unix. Je ne vois pas où est le problème, je me suis mis à perl hier après midi.

Merci pour votre aide.