Perl : fonction de suppression
Alex
-
1 juil. 2004 à 12:34
Alex -
Alex -
Salut a tous!
J'ai un fichier qui contient plusieurs lignes.Je voudrais scanner ce fchier ligne par ligne afin de supprimer tous les caracteres non numeriques et de laisser les caracters numeriques sur la meme ligne(ou ils se trouvaient). Donc, on touche pas a tous les chiffres et on supprime les autres.
J'utilise un truc du genre /[^0-9]/ pour reperer les caracteres non alpha mais je sais pas quelle fonction utiliser pour supprimer ceux-ci sachant que je ne connais pas leur position dans la ligne (donc substr inutile selon moi).
Si quelqu'un peut m'aider ou me donner un bout de prog faisant ca, je lui en serais tres reconnaissant
Merci d'avance! salut!
J'ai un fichier qui contient plusieurs lignes.Je voudrais scanner ce fchier ligne par ligne afin de supprimer tous les caracteres non numeriques et de laisser les caracters numeriques sur la meme ligne(ou ils se trouvaient). Donc, on touche pas a tous les chiffres et on supprime les autres.
J'utilise un truc du genre /[^0-9]/ pour reperer les caracteres non alpha mais je sais pas quelle fonction utiliser pour supprimer ceux-ci sachant que je ne connais pas leur position dans la ligne (donc substr inutile selon moi).
Si quelqu'un peut m'aider ou me donner un bout de prog faisant ca, je lui en serais tres reconnaissant
Merci d'avance! salut!
A voir également:
- Perl : fonction de suppression
- Denon perl pro test - Accueil - Audio
- Active perl - Télécharger - Édition & Programmation
- DzSoft Perl Editor - Télécharger - Édition & Programmation
- Execution d'un fichier.txt avec perl - Forum Perl
- Comment lire un fichier .pl perl ? - Forum Windows
2 réponses
Merci beaucoup pour ton truc du genre, ca fonctionne bien de cette facon.enfin presque, juste un bidouillage de ma part pour integrer ca dans un fichier et faire en sorte que le resultat ne s'affiche pas sous le shell (j'utilise Unix) et pas en une seule ligne.
Mes (petis) changement pour ceux que ca interesse sont:
open(f,"tot.txt");
open(f1,">>res.txt");
while(<f>){
s/[^0-9]//g;
print f1; print "\n";
}
close f1; close f;
Encore merci a toi Damien
Mes (petis) changement pour ceux que ca interesse sont:
open(f,"tot.txt");
open(f1,">>res.txt");
while(<f>){
s/[^0-9]//g;
print f1; print "\n";
}
close f1; close f;
Encore merci a toi Damien