Discussion :

[severine]

Bonjour,
J'ai un petit problème... Quand je fais par exemple:

Code :

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

1
2
$URL=~/:\/\/www\.([^\.]+)/i;  $last=$1;
 if(!$1) {$URL=~/:\/\/([^\.]+)/i;$last=$1;}

Si le contenu entre paranthèses est vide (si ca matche pas) dans la première ligne, $1 garde la valeur d'une ancienne expression. Donc, le !$1 ne marche pas alors que l'expression n'a pas marché.
Est-ce qu'il y a moyen de purger $1 afin qu'il soit à vide avant de lancer la première ligne de code ci-dessus. ou est-ce que vous voyez une autre méthode pour résoudre ce problème?

Merci de m'éclairer...

Severine

[Jedai]

Ben d'habitude on fait plutôt :

Code :

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

1
2
 
 unless($URL=~/:\/\/www\.([^\.]+)/i) {$URL=~/:\/\/([^\.]+)/i;$last=$1;}

Mais si tu as absolument besoin de mettre des instructions entre la regex et le test, tu pourrais faire un truc comme ça :

Code :

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

1
2
3
4
 
@last = ($URL=~/:\/\/www\.([^\.]+)/i);
#instructions
unless ( @last ) {...}

Mais j'ai peut-être mal compris ta question et peut-être voudrais tu vraiment que $1 soit vide après la regex si il ne matche rien, dans ce cas, il suffit d'écrire "([^\.]*)" au lieu de "([^\.]+)".

--
Jedaï

[severine]

Merci pour tes réponses Jedai.

J'ai essayé ta première et troisième solution et ca ne marchait pas. Pourquoi? je ne sais pas...

Ce que je voulais, c'etait si la première expression ne matche pas, faire la deuxième. Et là, tu m'as inspiré:

Code :

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

1
2
if($URL=~/:\/\/www\.([^\.]+)/i) {$last=$1;}
else {$URL=~/:\/\/([^\.]+)/i;$last=$1;}

C'était tout bête. J'ai honte....
--Ca se voit que je suis une débutante???--

En tout cas, merci beaucoup Jedai

Severine