URL: https://linuxfr.org/forums/programmation-perl/posts/mon-script-saute-des-lignes Title: Mon script saute des lignes Authors: dubis Date: 2009年12月15日T22:24:37+01:00 Tags: Score: -2 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 line: while ( ) { £spaces£ £/spaces£chop; £spaces£ £/spaces£@Fld = split( ' ', $_, 9999 ); £spaces£ £/spaces£ £spaces£ £/spaces£# lines we can ignore ??? £spaces£ £/spaces£if ( scalar( @Fld ) < 4 ) { # ignore these £spaces£ £/spaces£next line; £spaces£ £/spaces£} £spaces£ £/spaces£ £spaces£ £/spaces£# extract time from input line £spaces£ £/spaces£$timestamp = $Fld[1]; £spaces£ £/spaces£# keep track of the last time found £spaces£ £/spaces£$timestampN = $timestamp; £spaces£ £/spaces£# convert time to seconds £spaces£ £/spaces£ £spaces£ £/spaces£# extract IN, OUT, or TIMESTAMP from input line £spaces£ £/spaces£$inout = $Fld[3]; £spaces£ £/spaces£$s = ':', $inout =~ s/$s//g;