Discussion :

[Invité]

Bonjour tout le monde;
Je souhaite appliqué le code qui suit sur une liste de fichier:

Code :

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

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

Maintennat j'ai plusieurs fichiers et je veux automatiser la tâche, mais je bloque au niveau de la déclaration de liste de variables et comment les appeler par la suite.
- autre question, je souhaiterai comme résultat:
fic1 date_dernère_modification1
fic2 date_dernère_modification2
.
.
.
Par avance, merci.
PS: je suis débutante en perl.

[lilian_h]

Bonjour,

Je viens de te répondre sur ton précédent post:

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.

[Invité]

Merci Lilian,
Mais où je dois declarer mes fichiers ?
à quoi correspond (@ARGV)

[lilian_h]

Désolé, je n'ai pas précisé comment appeler le script.

Code :

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

1
2
 
script.pl fichier1 fichier2 ... fichierN

Lilian.

[lilian_h]

Par exemple:

Code :

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

1
2
3
4
5
 
$ fd.pl .profile fd.pl
.profile : 2011:03:24:1514
fd.pl : 2011:04:29:1602
$

Lilian.

[Invité]

Merci pour tes réponses,
je vais essayé d'être plus claire.

j'ai 50 fichiers dans 50 repertoires différent sous Unix Bien sûre.

je veux écrire un seul script où je peux appliquer ton premier code qui marche parfaitement sur un seul fichier.
exemple de fichiers:
~/dir1/fic1.txt
~/dir2/fic2.txt
~/dir3/fic3.txt

ce que je ne comprends à quoi correspod (@ARGV),
j'ai testé ce code

Code :

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

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

mais il me dit

Code :

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

1
2
 
script.sh[2]: use:  not found

j'ai comme impression qu'il ne reconnait pas les

Code :

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

USE:

MErci encore.

[lilian_h]

Perl connait parfaitement l'instruction "use".

Es-tu sûre que perl se trouve bien à

Code :

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

1
2
 
/usr/bin/perl

La première ligne (le shebang #!...) a son importance, c'est avec cette ligne que le système sait avec quel binaire il faut exécuter le script.

Donc, si perl ne se trouve pas sur /usr/bin/perl, il faut mettre à jour le shebang.

Pour savoir où se trouve perl, tu peux essayer de taper ça:

Code :

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

1
2
 
which perl

Pour ARGV, cette liste représente la liste des arguments passé à l’exécution du script.

Il faut aussi éviter de la redéfinir dans le script.

Lilian.

[djibril]

J'ai renommé votre fil car l'intitulé n'était pas clair. Merci de penser la prochaine fois à mettre des titres clairs et précis.

Pour revenir à votre problème, le but de votre programme est de pouvoir lister plusieurs fichiers présents dans plusieurs répertoires, puis de calculer la date de modification de chacun des fichiers.
Votre programme doit être capable de :

1. Prendre en argument un nom de répertoire ou plusieurs (tout dépend de ce que vous souhaitez
2. de lister ce(s) répertoire(s)
3. de calculer la date de chaque fichier

Pour chacun de ces points, les codes sont déjà disponibles dans la rubrique Perl dans les sources ou FAQ (c'est à ça que ça sert ).

1. Comment récupérer proprement les arguments de la ligne de commande ? (dans les sources)
2. Comment lister les fichiers d'un répertoire ? (dans les sources)
3. Information sur un fichier en Perl (dans la FAQ) : stat
   

Il suffit maintenant de faire un mimac de tout ça pour concevoir un programme Perl propre et fonctionnel, allez, au boulot !!

[Invité]

Merci à tous.
j'ai réussi.
@ djibril: merci pour les liens. et la modification du titre du topic.
@lilian: merci pour ton aide.
Au fait mon script marchait bien. mais au lieu de le lancer avec le Perl, je le lançait avec le Shell. Grrr

Merci encore.
Jasmine.