Discussion :

[vince2005]

comment recupérer chaque ligne de mon fichier commencant par -

Code :

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

1
2
3
4
5
6
 
open (FIC, "<$FileComponent") || die "Ouverture impossible du fichier" ;
while ($Ligne = <FIC> )
 
 
close (FIC)

merci pour votre aide

[aikinhdo]

bonjour,

Peut etre un truc comme ca.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
my @lignes = () ; 
 
open (FIC, "<$FileComponent") || die "Ouverture impossible du fichier" ;
 
while (<FIC>)
{
     push @lignes, $_ if ( $_ =~/^-/ ) ;
}
 
close (FIC)