Expression regulière avec perl

Résolu/Fermé

syl - 7 juin 2010 à 20:16
dubcek Messages postés 18718 Date d'inscription lundi 15 janvier 2007 Statut Contributeur Dernière intervention 22 mars 2024 - 8 juin 2010 à 09:58

Bonjour,

Je cherche à identifier des numeros dans un text puis de les remplacer par rien par le script ci-desous mais le script ne marche pas. merci de m'indiquer ce qui ne vas pas si possible.

#!/usr/bin/perl -w
open(FILEINPUT,"$ARGV[0]") || die "erreur de lecture de fichier :$!";
while ($ligne=<FILEINPUT>){
if ($ligne=~ s/[0-9]//g){
print $ligne;
}
}
close(FILEINPUT);

A voir également:

Expression regulière avec perl
Expression de recherche - Guide
Expression encoder - Télécharger - Divers Utilitaires
T'as du ping expression ✓ - Forum Réseau
Denon perl pro test - Guide
Modèle fiche expression de besoin excel - Forum Word

5 réponses

Réponse 1 / 5

dubcek Messages postés 18718 Date d'inscription lundi 15 janvier 2007 Statut Contributeur Dernière intervention 22 mars 2024 5 615
8 juin 2010 à 09:04

hello
qu'est ce qui ne marche pas ?

Réponse 2 / 5

syl
8 juin 2010 à 09:25

Hi, Je n'arrive pas a reconaitre les nombres dans un text pour les remplacer par rien. Quand je passe le programme sur le text il me sort le text sans modification. Ce que je souhaite faire c'est de passer le script sur le text pour que l'expression reg. remplace les nombre par rien. Je crois mon problème se trouve au niveau 'print $ligne

open(FILEINPUT,"$ARGV[0]") || die "erreur de lecture de fichier :$!";
while ($ligne=<FILEINPUT>){
# on cherche une balise : <[^>]+>
$ligne=~s/0-9//g;
print $ligne;
}
close(FILEINPUT);

Réponse 3 / 5

dubcek Messages postés 18718 Date d'inscription lundi 15 janvier 2007 Statut Contributeur Dernière intervention 22 mars 2024 5 615
8 juin 2010 à 09:32

chez moi, il fonctionne

$ cat a3
a 1 a 2 a 3
b 2 b 4 b8 b 0
c 10 234 f 33 g 4
$ ./p4 a3
a  a  a 
b  b  b b 
c   f  g 
$

Réponse 4 / 5

syl
8 juin 2010 à 09:44

Merci Dubcek, ça fonctionne aussi finalement. J'ai remplacer l'expr. reg. par ça $ligne=~s/[0-9]//g;

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

dubcek Messages postés 18718 Date d'inscription lundi 15 janvier 2007 Statut Contributeur Dernière intervention 22 mars 2024 5 615
8 juin 2010 à 09:58

avec le if, il n'affiche que les lignes qui contenaient un chiffre

Discussions similaires

Extraire le contenu de plusieurs fichiers

Problème en C ; Expected expression

Que veut dire "Susu" ?

Expression régulière pour extraire des infos

Ça veut dire quoi tu es un amour ?

Discussions similaires

Newsletters