Discussion :

[dubis]

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

[Mr6]

Salut !

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

@+
Mr6

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    # lines we can ignore ???
    if ( scalar( @Fld ) < 4 ) { # ignore these
        next line;
    }

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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