Supprimer des ligne ds un fichier
jihadzr
Messages postés
5
Statut
Membre
-
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
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
2 réponses
-
-
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);
