Discussion :

[Invité]

Bonjour tout le monde,

J’espère que je ne me trompe pas d’endroit pour poster mon problème.
Je souhaiterai récupérer la date de création et /ou dernière modification d’un fichier sous Unix.
Malheureusement d’après mes recherches les commandes natives à Unix ne donnent pas l’année de création et./ou modification des fichiers ou répertoires ( sauf peut être les fichiers qui ont l’age de plus de 6 mois ).
Je me demande si cela n’est pas possible en passant par le Perl et combinant avec le Shell.

Par avance Merci.

Jasmine.

[Dimitry.e]

Il n'est pas possible d'obtenir la date de création d'un fichier sous Unix / Linux.
Seulement la date de la dernière modification.

[lilian_h]

Bonjour,

Ce n'est pas que les commandes Unix ne donnent pas l'année de création, c'est que si le fichier à moins de 6 mois, Unix affiche l'heure, sinon la date.

Pour obtenir une date complète, tu peux utiliser la commande stat, ou alors écrire un script perl qui te le retourne (ça marche aussi, c'est ce que j'ai fais)

Voilà mon code pour obtenir la date de modification
:

Code :

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

1
2
 
perl -e 'use POSIX qw(strftime);print strftime("%Y:%m:%d:%H%M", localtime( (stat($ARGV[0]))[9] )), "\n";' $FILE

PS : Bon je sais que ce n'est pas très propre, mais ça fonctionne. Ceci te renvoie la date de modification.

Lilian.

[Invité]

Merci ça marche impicable.
maintenant je souhaite appliquer le même principe sur un ensemble de fichier( récursive) et de répertoires, est il possible?
Merci encore.

[lilian_h]

Bonjour,

Oui c'est possible,

Vous pouvez écrire un script prenant en argument une liste de fichiers, et appeler cette commande pour chacun des fichiers de la liste.

Lilian.

[Invité]

Merci Lilian,
et comment mettre en oeuvre sa ?
je connais absolument rien en perl.

[lilian_h]

Bonjour,

Une possibilité :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
#!/usr/bin/perl -w
use strict;
use warnings;
use POSIX qw(strftime);
 
foreach my $FILE (@ARGV) 
{
    printf "$FILE : ";
    print strftime("%Y:%m:%d:%H%M", localtime( (stat($FILE))[9] )), "\n";
}

Lilian.