Récupérer la date complète de la création d’un fichier sous Unix

Version imprimable

13/04/2011, 13h50
Invité

Récupérer la date complète de la création d’un fichier sous Unix

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.
13/04/2011, 13h58
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.
13/04/2011, 14h00
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:

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.
21/04/2011, 12h13
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.
26/04/2011, 10h52
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.
29/04/2011, 15h40
Invité

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

Bonjour,

Une possibilité :

Code:

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.