Discussion :

[Anubis]

Bonjour,

Dans une chaine de caractères, j'aimerai remplacer les symboles parenthèses par n'importe quel autre symbole.

J'ai essayé ceci:

Code :

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

1
2
3
 
$chaine =~ s/")"/"]"/g;
$chaine =~ s/"("/"["/g;

Ainsi que ceci:

Code :

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

1
2
 
$chaine =~ s/)/]/g;

Mais cela ne marche pas.

Est ce que quelqu'un a une solution?

Merci
Pierre

[crochepatte]

J'ai essayé ceci:

Code :

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

1
2
3
 
$chaine =~ s/")"/"]"/g;
$chaine =~ s/"("/"["/g;

les parentheses sont des metacaracteres...Il faut mettre "\" devant...

essaie

Code :

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

1
2
3
 
$chaine =~ s/"\)"/"]"/g;
$chaine =~ s/"\("/"["/g;

[Arioch]

Essaie ceci, ça devrait fonctionner :

Code :

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

1
2
$chaine =~ s/\)/\]/g;
$chaine =~ s/\(/\[/g;

[Anubis]

Essaie ceci, ça devrait fonctionner :

Code :

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

1
2
$chaine =~ s/\)/\]/g;
$chaine =~ s/\(/\[/g;

Cela marche, merci.

Pierre

[djibril]

Code :

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

1
2
3
my $chaune = "cette phrase (hello!) !";
$chaune =~ tr{\(\)}{[]};
print $chaune;

[Jedai]

Code :

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

1
2
3
my $chaune = "cette phrase (hello!) !";
$chaune =~ tr{\(\)}{[]};
print $chaune;

Carrément :

Code :

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

1
2
3
my $chaine = "cette phrase (hello!) !";
$chaine =~ tr/()/[]/;
print $chaine;

Les () ne sont pas métas dans un tr/// .

--
Jedaï

[djibril]