Date de dernière modification d'un fichier

**Olivier Regnier** · 24/09/2008, 18h46

Bonjour

Je souhaite afficher sur ma page web la date de dernière modification d'un fichier sous la forme suivante:

Code :

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

$oregnier: index.shtml,v 1.2 24/09/2008 18:49:57 olivier $

J'ai un script CGI, lastmod.cgi:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl -w
# Requiert: Support CGI/Perl.
 
use strict; use warnings;
 
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
 
use coreutils;
coreutils::lastmod();
 
$CGI::POST_MAX=1024*100;
$CGI::DISABLE_UPLOADS=1;
 
my $cgi=new CGI;
 
print $cgi->header(-charset=>'iso-8859-1');
print $cgi->em((small('$oregnier: '.$coreutils::file_name.',v 1.2 '.$coreutils::file_date.' olivier $')))."\n";

La paquet coreutils.pm:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
package coreutils;
 
use strict;
use POSIX 'strftime';
 
sub lastmod()
{
    our $file_name=$0;
    our @change_date=stat($file_name);
    our $file_date=strftime("%d/%m/%Y %H:%M:%S",localtime($change_date[9]));
}
 
1;

et enfin le fichier index.shtml:

Code :

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

1
2
3
4
5
6
7
<html>
<head>
</head>
<body>
<!--#exec cgi="/cgi-bin/lastmod.cgi" -->
</body>
</html>

Au lieu de m'afficher ceci:

Code :

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

$oregnier: index.shtml,v 1.2 24/09/2008 18:49:57 olivier $

Il m'affiche cela:

Code :

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

$oregnier: lastmod.cgi,v 1.2 24/09/2008 18:49:57 olivier $

Pouvez-vous me donner un coup de main s'il vous plaît ? Merki

**Jedai** · 25/09/2008, 00h14

Et qu'est-ce qu'il y a de mystérieux là-dedans ? Ton script n'a aucun moyen de savoir ce qui l'a appelé, et $0 ne va sûrement pas indiquer un fichier shtml comme ça d'un coup... $0 est juste le nom du script Perl en train de tourner.

Si tu veux vraiment que ton script sache ce qui l'a appelé, le plus simple est encore de le passer en paramètre.

--
Jedaï

Date de dernière modification d'un fichier

Web Perl

Discussions similaires

Partager

Partager