Mon script saute des lignes

Version imprimable

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:

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

16/12/2009, 08h03
Mr6

Salut !

chomp au lieu de chop serait peut-etre plus sûr.

@+
Mr6
16/12/2009, 10h09
dubis
Merci Mr6, mais pas de changement avec chomp D'ailleurs quels sont les différence fondamentales.

Il n'y en n'a pas non plus si je commente les lignes suivantes :
Code:

1 2 3 4 # lines we can ignore ??? if ( scalar( @Fld ) < 4 ) { # ignore these next line; }
16/12/2009, 11h09
Mr6
chop supprime le dernier caractère, chomp uniquement celui de fin de ligne. C'est surtout par précaution, car que se passe-t-il si la dernière ligne du fichier ne se termine pas par une fin de ligne ? le dernier mot est tronqué.

1ère vérif à faire :
Code:

1 2 3 4 5 6 7 8 9 10 while ( <INCLUDE1_FILE> ) { chomp; print; .... .... .... print.... ;#inserer un print au coeur du traitement voulu, pour voir ce qu'on recupère .... }
L'intérêt serait de voir si toutes les lignes du fichiers sont traitées (donc on devrait les voir en double par exemple, ou ligne avant/ligne après traitement).

@+
Mr6