Discussion :

[Olivier Regnier]

Bonjour

Je voudrais savoir s'il existe une fonction qui permet d'afficher la date de dernière modification d'un fichier ?

Merci

[djibril]

oui biensur. Dans notre belle FAQ .
http://perl.developpez.com/faq/perl/...r-les-fichiers

Code :

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

1
2
3
4
5
 
my $fichier = "/home/Olivier_Regnie/toto.txt";
my @info_fichier = stat($fichier);
 
print "date dernier modification : $info_fichier[9]\n";

voilà

[Olivier Regnier]

La Faq, oui

Cela affiche le nombre de secondes écoulées entre 01/01/1970 à la date de dernière modification. Ok, je comprends. Il me reste maintenant à convertir ce nombre afin d'obtenir un résultat compréhensible comme par exemple, 2007/11/01 02:06:55. Je vais regarder si je trouve des infos à ce sujet.

Merci Dijb

[djibril]

sinon pour gerer les secondes et dates, j'ai fais quelques bouts de scripts dans la FAQ (section astuces et divers)

[Olivier Regnier]

Bien donc j'ai réalisé ceci (le code est incomplet):

Code :

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

1
2
3
4
5
6
7
8
9
10
 
#!/usr/bin/perl -w
 
use POSIX qw(strftime);
 
$file = '/home/olivier/test.cgi';
@lastmodified = stat($file); 
$lastmodified[9]=strftime"%Y/%m/%d %H:%M:%S",localtime;
 
print $cgi->pre('$Id: error.cgi,v 1.1 '.$lastmodified[9].' Olivier Exp $');

La date s'affiche sous la forme de:

Code :

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

$Id: test.cgi,v 1.1 2007/11/08 13:40:23 Olivier Exp $

Mais lorsque je refraichis la page les secondes défilent

Qui peut m'expliquer mon erreur s'il vous plaît ?

Merci

[djibril]

bon en faite, que souhaites tu faire?

[Olivier Regnier]

Je souhaite afficher la date de modification et pas l'heure actuelle