HELP -->date les fichiers d'un repertoire en perl ?

"Nathalie" <nathalie@mtice.fr> wrote in message
news:c5oj4q$2ju4$1@biggoron.nerim.net...

Bonjour , je suis débutante en perl et j'ai besoin de realiser un script
qui listerai les fichiers dun repertoire datant plus de 7 jours , est ce
que quelqun peut m'orienter sil vous plais

merci

Nathalie

Bonjour,

La commande -M informe du nombre de jours depuis la dernière modification
(pas la date de création)
Par contre, je n'ai pas trouvé la commande pour la date de création.

-------
if (-M "fichier" >= 7) {
#le fichier n'a pas été modifié depuis 7 jours au moins
};
-------


Julien

Bonjour,

Bonjour , je suis débutante en perl et j'ai besoin de realiser un script
qui listerai les fichiers dun repertoire datant plus de 7 jours , est ce
que quelqun peut m'orienter sil vous plais

$chemin = '/chemin/vers/ton/repertoire/';
$heure = time - 7*24*60*60;

opendir(DIR,$chemin);
# Ouvre le repertoire en lecture
while ($fichier=readdir(DIR))
{
# Lit tout les fichiers contenus dans le repertoire
print $fichier if (stat($chemin . $fichier)->ctime >= $heure);
# Affiche le fichier si le fichier a été créé il y'a moins de 7 jours
}
closedir(DIR);
# Ferme le repertoire

Je n'ai pas testé ce script, mais le principe et les fonctions à
utiliser sont là.

merci

De rien

Cordialement,
Max

Nathalie

Nathalie <nathalie@mtice.fr> écrit:

Bonjour , je suis débutante en perl et j'ai besoin de realiser un script
qui listerai les fichiers dun repertoire datant plus de 7 jours , est ce
que quelqun peut m'orienter sil vous plais

perl -le 'print for grep {-M>7} <*>'

Nathalie <nathalie@mtice.fr> écrit:

Bonjour , je suis débutante en perl et j'ai besoin de realiser un script
qui listerai les fichiers dun repertoire datant plus de 7 jours , est ce
que quelqun peut m'orienter sil vous plais

perl -le 'print for grep {-M>7} <*>'

merci pour toute vos reponses :)

Laurent Wacrenier wrote:

Nathalie <nathalie@mtice.fr> écrit:

Bonjour , je suis débutante en perl et j'ai besoin de realiser un script
qui listerai les fichiers dun repertoire datant plus de 7 jours , est ce
que quelqun peut m'orienter sil vous plais

perl -le 'print for grep {-M>7} <*>'