Discussion :

[perlgirl]

Coucou

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 :

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
#!/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
Perlgirl

[Jeh]

Essaie ça :

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
#!/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.

[Fanch.g]

Code :

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

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

[perlgirl]

Essaie ça :

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
#!/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 # et là est mon soucis...

Perlgirl

[Choupi]

Ne voyant pas d'erreur comme ca j'ai testé le script.

Mon fichier xaa:

Code :

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

1
2
3
pas de diese
# un commentaire
pas de diese 2

Le fichier de sortie:

Code :

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

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

[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

Perlgirl

[Choupi]

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
#!/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.