Discussion :

[cantoprod]

Bonjour,

je suis débutante en perl et je cherche un script qui recherche une chaine de caractère, par exemple "TOTO" dans le fichier log le plus récent situé dans un répertoire windows précis.

Pourriez-vous, svp, m'aider sur le sujet?

merci !
Clémentine

[Schmorgluck]

Je te suggère de jeter un oeil à la section de la FAQ consacrée à la gestion des fichiers en perl, tu devrais y trouver les réponses à l'essentiel de test interrogations.
Tu devrais alors être capable de faire une tentative, et de nous poser des questions plus précises si tu as encore des problèmes.

[cantoprod]

avec le chemin de la log en dur, cela passe.
avec la fonction "plus_recent", pas vraiment.
Si qqun a une idée

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
use warnings;
use strict;
use File::Find;
 
my ($recent,$nom,$rep);
my $line;
 
$rep = 'D:\\';
 
# cherche le plus recent
 
sub plus_recent {
        return unless -f;
        return if defined $recent and $recent > (stat($_))[9];
        $recent = (stat(_))[9];
        $nom = $File::Find::name;
}
 
find(\&plus_recent,$rep);
 
print $nom;
 
#open (LOG,"<D:\\log.log") || die ("Erreur d'ouverture de TOTO") ;
 
open(LOG,"$nom")  ;
my @LogFilePosition=<LOG>;
close(LOG);
 
foreach $line (@LogFilePosition) {
 
    if ($line =~ /CHAINERECHERCHEE/) {
 
        print "C'est démarré !!";
 
    }
 
}

[Schmorgluck]

Je ne vois pas le problème, chez moi ça marche. Mais je ne suis pas sous Windows et j'ai dû remplacer le chemin du répertoire par un chemin valide de mon arborescence Linux. Peut-être le problème vient-il de là. Es-tu sûre que 'D:\\' est une façon valide d'indiquer un chemin à perl sous Windows ?

En attendant, deux petites remarques :
1) Je constate que tu as utilisé le handle spécial _ dans ton sous-programme plus_recent, ce qui est judicieux. Cependant, tu ne l'utilises que pour ton deuxième appel à stat. Tu pourrais aussi l'utiliser pour le premier, car le test -f a déjà généré les infos nécessaires pour que stat fonctionne avec _.
2) Pour ce que tu veux faire, je ne suis pas certain qu'il soit très pertinent d'utiliser File::Find : tu n'as pas besoin d'une exploration en profondeur de l'arborescence, juste des fichiers ordinaires d'un unique répertoire. À moins que j'aie mal compris.

[Jasmine80]

Je suis sous Windows, et voici comment j'indique mes chemins :

Code :

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

my $file = "P:/Perl/scripts/Files/acc.txt";

J'utilise des slash, mais je pense que des doubles slash fonctionnent également. Essaie avec "D:/".