Discussion :

[ibtisss]

Bonjour,
Je suis débutante en perl, j'ai besoin d'enregistrer un texte d'un fichier en supprimant la première ligne d'abord, ensuite les espaces et les retours en ligne.
Je sais faire la deuxième étape (code cidessous), mais pas la première! Comment faire?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
open(FD, $input_file)  or die "Error in opening the input file : $!";
 	while( <FD> ) {
        s/#.*//;           
        next if /^(\s)*$/; 
 
        chomp;             
 
        push @sequence, $_;    
    }

[/code]

[Invité]

Salut,

Une solution serait de récupérer le contenu dans un tableau, et "shifter" ce dernier.

Code :

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

1
2
my @lines = <FD>;
shift @lines;

Puis traiter les espaces et retour de ligne pour chaque élément du tableau restant. C'est pas optimal (j'avoue), mais ça devrait marcher

[ibtisss]

C'est bon j'ai trouvé!!

Code :

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

1
2
 
if($.==1){s/.*\n//;}