Discussion :

[knebhi]

Bonjour,

Je souhaite matcher différentes chose comme des *, /, etc.

ma boucle se présente ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
if ( $texte =~ /\*\*\*/ ) {
		$syllabes_incompletes = $&;
 
		$new_syllabes_incompletes = '<unclear/>';
 
 
	$texte =~ s/$syllabes_incompletes/$new_syllabes_incompletes/g;
 
	}

J'ai bien mien le "\" pour spécifier qu'il s'agit d'un métacaractère.

Cependant lorsque je fais mon opération de remplacement dans le texte j'ai ce message d'erreur :

Code :

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

Quantifier follows nothing in regex; marked by <-- HERE in m/+ <-- HERE / at D:/Documents and Settings/knebhi/workspace/Corpus_oraux/trans_convention.pl line 38, <IN> line 164.

Le programme matche bien cette séquence (et je le vois en faisant un print) mais par contre lorsque je souhaite remplacer cette séquence j'ai l'impression qu'il juge ma regexp fausse.

[Jasmine80]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
 
use strict;
use warnings;
 
 
...
 
if ( $texte =~ m/\*\*\*/ ) {
	my $syllabes_incompletes = quotemeta($&);
	my $new_syllabes_incompletes = '<unclear/>';
	$texte =~ s/$syllabes_incompletes/$new_syllabes_incompletes/g;
 
}

[knebhi]

merci ça marche impeccablement