Sujet Précédent Sujet Suivant

Supprimer des ligne ds un fichier

jihadzr Messages postés 5 Statut Membre -  
jihadzr Messages postés 5 Statut Membre -
Bonjour,
Voila j'ai un petit souci, je viens tout juste de commencé le perl , et je cherche quel code me permetterait de supprimer certaine ligne d'un fichier. une partie de ce fichier est ci dessous:

D:1:_:THR cnt:mc_mc D:2:_:PRO
D:1:_:THR cnt:mc_sc D:2:_:PRO
D:1:_:THR cnt:sc_sc D:2:_:PRO
D:1:_:THR cnt:sc_sc E:93:_:PRO
D:1:_:THR cnt:sc_sc E:37:_:MET
D:1:_:THR cnt:sc_sc E:49:_:GLN
D:2:_:PRO cnt:mc_mc D:4:_:ASN
D:2:_:PRO cnt:mc_sc D:3:_:GLN
D:2:_:PRO cnt:sc_sc D:7:_:ASP

les ligne ki je vx supprimes sont qui contient la répétition comme D et D pour le 1er line
y a aussi des E E et laissi que les ligne k il ont des différent lettre par exemple ligne 4

merci bcp d avence de votre aide

A voir également:

2 réponses

Réponse 1 / 2
jihadzr Messages postés 5 Statut Membre
 
svp c urgent mercii
0
Réponse 2 / 2
jihadzr Messages postés 5 Statut Membre
 
j essai ca mai il suprime tous les lignes qui contient D et pas le répétition de D pk??

#!/usr/bin/perl -w
open(FILE, "< test.sif" ) or die ("prob a l'ouverture du fichier" );
@save = <FILE>;
close(FILE);
foreach (@save)
{
$_ = "" if ($_ =~ m/D/);
chomp $_;
}
open(FILE, ">test.sif" ) or die ("prob a l'ouverture du fichier" );
foreach (@save)
{
print FILE $_."\n" if ($_);
}
close(FILE);
0