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).

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
Voici mon script, mais fonctionne, mais j'ai le message d'erreur suivant :
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);