Discussion :

[loula427]

Hello tous le monde alors voila je suis entrain de taff sur du vieux code perl et j'ai quelques petit soucis je ne comprends pas une partie du code, en fait une expression reguliere de substitution a priori...
Alors voila le monstre :

Code :

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

$url =~ s#/?$#/#;

Si quelqu'un peux aider ce serais vraiment sympa .

[djibril]

Dans cette expression régulière le # joue le rôle de séparateur.

Code :

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

$url =~ s#/?$#/#;

=

Code :

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

$url =~ s{/?$}{/};

=

Code :

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

$url =~ s/\/?$/\//;

Celui qui a écrit ce code ne souhaitait pas utiliser mon troisième exemple afin d'éviter de protéger les slashs. Mais la solution la plus propre est d'utiliser la deuxième solution avec les accolades(sauf s'il y en a dans ton expression régulière bien sur).

[loula427]

Ok merci beaucoup . C'est plus clair maintenant.

Chercher ca sur google c etait impossible.

[lennelei]

...
Mais la solution la plus propre est d'utiliser la deuxième solution avec les accolades(sauf s'il y en a dans ton expression régulière bien sur).

Tite question: pourquoi est-ce plus propre d'utiliser les accolades ? Est-ce uniquement d'un point de vue lecture ou y a-t-il une raison technique derrière ?

[djibril]

Tite question: pourquoi est-ce plus propre d'utiliser les accolades ? Est-ce uniquement d'un point de vue lecture ou y a-t-il une raison technique derrière ?

Il est recommandé d'utiliser les délimiteurs // ou {}.

Perl permet d'utiliser n'importe quel caractère non blanc (différent de l'espace) comme délimiteur. Mais en terme de lisibilité et maintenance, c'est atroce. La preuve est que ce post a été ouvert pour une non compréhension. Voici un exemple d'expression régulière :

Code :

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

1
2
3
my $str = "bonjour tout le monde, il fait jour";
$str =~ s ebonjour *[a-z ]{13}?ebonsoiregi;
print "$str\n";

Résultat :

bonsoir, il fait jour

On constate bien qu'il est assez difficile de détecter les délimiteurs.

Voici 2 façons de rendre ce code lisible.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
$str = "bonjour tout le monde, il fait jour";
$str =~ s/bonjour *[a-z ]{13}?/bonsoir/gi;
print "$str\n";
 
$str = "bonjour tout le monde, il fait jour";
$str =~ s{
          bonjour\s*     # je cherche bonjour
          [a-z\s]{13}?   # treize caractères se suivant
         }
         {bonsoir}xgi;
print "$str\n";

[loula427]

Woahh merci Alex pour la question et merci Djbril pour la reponse complete.
C'est interessant a savoir meme si je n'envisage vraiment pas d'utiliser des lettres comme d'elimitateur, vu que c'est franchement pas tres lisible .