[langage] Pb de code...

Version imprimable

Coucou :lol:

Je souhaite supprimer toutes les lignes de mon fichier commencant par #.......
J'ai fait le script suivant qui me supprime bien cette ligne à chaque fois qu'elle est présente mais qui me met une ligne vide a la place. Comment je peux faire pour que je n'ai pas cette ligne vide qui apparaisse :?:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 #!/usr/bin/perl -w $fichier1="xaa"; $fichier2="Fichier_Unigene"; open (MOD, "$fichier1"); open (NEW, ">$fichier2"); while ($ligne=<MOD>) { chomp $ligne; if ($ligne =~ /^\# .*/x) {next;} else {print NEW"$ligne\n";} } close (MOD); close (NEW);
Merci d'avance
:D Perlgirl :D

Essaie ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl -w
 
$fichier1="xaa";
$fichier2="Fichier_Unigene";
 
open (MOD, "$fichier1");
open (NEW, ">$fichier2");
 
while ($ligne=<MOD>) {
    chomp $ligne;
    if ($ligne !~ /^\#/x) {
           print NEW "$ligne\n";
    }
 
 }
 
close (MOD);
close (NEW);

Si ça marche pas, met des traces pour voir ce que tu matches ou pas.

Code:

1
2
3
4
5
6
 
my @bar = <MOD>;
my @foo = grep(!/^#/, @bar);
foreach my $line (@foo) {
print NEW "$line\n";
}

Pas tester mais ca doit marcher

Citation:
Envoyé par Jeh
Essaie ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 #!/usr/bin/perl -w $fichier1="xaa"; $fichier2="Fichier_Unigene"; open (MOD, "$fichier1"); open (NEW, ">$fichier2"); while ($ligne=<MOD>) { chomp $ligne; if ($ligne !~ /^\#/x) { print NEW "$ligne\n"; } } close (MOD); close (NEW);
Si ça marche pas, met des traces pour voir ce que tu matches ou pas.
Je suis dslée de revenir que maintenant sur ce pb...en tous cas je viens d'essayer ce script et ca ne matche pas du tout la ligne commencant par le # :cry: et là est mon soucis...

:D Perlgirl :D

02/07/2004, 16h57
Choupi
Ne voyant pas d'erreur comme ca j'ai testé le script.

Mon fichier xaa:
Code:

1 2 3 pas de diese # un commentaire pas de diese 2
Le fichier de sortie:
Code:

1 2 pas de diese pas de diese 2
Je ne comprend pas ton probleme. Si ca ne marche pas envoi moi ton fichier xaa pour que je reteste... Doit y avoir une erreur qq part....
02/07/2004, 17h04
perlgirl

Je viens de retester et ca conserve la ligne commencant par le #...
Je veux bien t'envoyer mon fichier mais comment??car le fichier est trop gros pour que je fasse un copier coller ici

:D Perlgirl :D

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl -w
 
$fichier1="seqtigr.txt";
$fichier2="Fichier_Unigene";
 
open (MOD, "$fichier1");
open (NEW, ">$fichier2");                                                                       
while ($ligne=<MOD>) {
    chomp $ligne;
    $ligne =~ s/\s//g;
    if ($ligne !~ /^\#/x) {
           print NEW "$ligne\n";
    }                                                                    
 }                                                                       
close (MOD);
close (NEW);

Donc lié au format de fichier.