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;
../...