Bonjour,
Avec pas beaucoup d'expérience en perl , je me suis aperçu que mon script sautait des lignes de mon fichier à traiter.
Comment y remédier?
Il commence comme ceci
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 line: while ( <INCLUDE1_FILE> ) { chop; @Fld = split( ' ', $_, 9999 ); # lines we can ignore ??? if ( scalar( @Fld ) < 4 ) { # ignore these next line; } # extract time from input line $timestamp = $Fld[1]; # keep track of the last time found $timestampN = $timestamp; # convert time to seconds # extract IN, OUT, or TIMESTAMP from input line $inout = $Fld[3]; $s = ':', $inout =~ s/$s//g; ../...
Partager