Discussion :

[titomiss]

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.

[Jedai]

1. Tu devrais mettre des balises [ CODE ] autour de tes exemples de code, utilise le bouton # de l'interface de présentation du forum.
   
2. Peux-tu installer des modules sur ton ordinateur ?
   
3. @afaire et $afaire ne sont pas la même variable, ce sont deux variables complètement différentes...
   
4. Tu utilises plein de variables inutiles, et comme tu ne les déclares pas, je te soupçonne de ne pas utiliser le pragma "strict". Va lire ce sujet en priorité, il contient un certain nombre de conseil qui t'aideront à programmer correctement en Perl (par exemple avec le pragma "strict", Perl t'aurait prévenu du problème potentiel avec $afaire).
   
5. Tu obtiens 20066 en juin, ne préfèrerais-tu pas 200606 ? Je te recode la fonction dans cette optique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
#retourne date fichier passé en paramètre
sub get_mdate {
  # shift <=> shift @_, enlève le premier élément de @_ et le renvoie
  my $filename = shift;
  my $mtime = (stat($filename))[9];
  my ($mois, $an) = (localtime($mtime))[4,5];
  $an += 1900;
  $mois++;
  return (sprintf "%04d%02d", $an, $mois);
}

--
Jedaï

[titomiss]

Merci pour cette réponse la fonction tourne maitenant. Celle que tu m'as livrée est encore meilleure.

A bientôt