Bonjour,
J'ai un fichier dans lequel je souhaité récupérer toutes les lignes qui comportent le mot démarrage. Pour chaque ligne, je les mets dans un tableau et je récupére le champs 3 ( lucie, loulou).
Voici mon script, mais fonctionne, mais j'ai le message d'erreur suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 T3|20100910-08:09:29|lucie|démarrage|2570|0|0 T2|20100910-08:09:29|franck|arrêt|2570|0|0 T1|20100910-08:09:29|tintin|arrêt|2570|0|0 T1|20100910-08:09:29|loulou|démarage|2570|0|0
Scalar value @TableauLigne[2] better written as $TableauLigne[2] at C:\testprog.pl line 18.
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 use strict; use warnings; my $LeFicRecent="C:/LOG/20100910__log.txt" ; my $research_NumT="Démarrage"; my @TableauLigne; open (FIC1, "<$LeFicRecent") || die "Ouverture impossible du fichier $LeFicRecent: $!"; binmode FIC1, ":encoding(utf8)"; while ($Ligne = <FIC1> ) { if (grep { $Ligne =~ m/$_/g } $research_NumT) { print "<<$Ligne>>" ; @TableauLigne=split(/\|/,$Ligne); print "@TableauLigne[2]\n"; } } close (FIC1);
Partager