Discussion :

[pekka77]

Bonjour,

Dans une chaine de caracteres, je voudrais identifier si un nombre est présent et si tel est le cas créer deux variables : l'un contenant ce nombre l'autre contenant le reste (en enlevant l'espace entre le nombre et le reste). Les nombres autre qu'au début de la chaine doivent rester dans la variable contenant le reste.
Je sais que c'est pas trop dur avec une RegExp mais c'est prise de tête, j'y arrive pas bien. Je vais continuer à essayer mais si vous avez le cerveau plus habitué à ses petits jeux de logique merci de m'aider un peu.

[Jeh]

Pour être sûr de bien tout comprendre, peux-tu nous donner un exemple de chaine avec le nombre à chercher et le résultat que tu attends ?

[pekka77]

$chaine = "4 rue paul claudel"
resultat :
$num = "4"
$rue = "rue paul claudel"


$chaine = "5 rue du 11 novembre"
resultat :
$num = "5"
$rue = "rue du 11 novembre"

[Jeh]

$chaine = "4 rue paul claudel"
resultat :
$num = "4"
$rue = "rue paul claudel"


$chaine = "5 rue du 11 novembre"
resultat :
$num = "5"
$rue = "rue du 11 novembre"

je te propose ceci (c'est de la regexp on ne peut plus basique que tu aurait pu trouver dans la doc Perl (par exemple ici)

Code :

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

1
2
3
4
 
$chaine =~ /^(\d+)(.*)/;
$num = $1;
$rue = $2;

[megapacman]

pourquoi ne pas utiliser la fonction substring-> substr()

style :

1) calculer la longueur de ta chaine de caractere
2) tu substring chaque lettre et tu teste si c numeric ou pas (par exemple pour separer le numeric de ta string)

ex :

http://perlmeme.org/howtos/perlfunc/substr.html

http://www.brunette.brucity.be/NewBr.../cgi/cgi9.html

[pekka77]

Merci.
Je vais jeter à un coup d'oeil à ta doc. J'avais juste regarder la faq sur ce site mais elle n'est pas très complète apparemment.

[pekka77]

pourquoi ne pas utiliser la fonction substring-> substr()

style :

1) calculer la longueur de ta chaine de caractere
2) tu substring chaque lettre et tu teste si c numeric ou pas (par exemple pour separer le numeric de ta string)

ex :

http://perlmeme.org/howtos/perlfunc/substr.html

http://www.brunette.brucity.be/NewBr.../cgi/cgi9.html

c'est plus simple avec une regexp qd meme. Et plus joli

[Jeh]

pourquoi ne pas utiliser la fonction substring-> substr()

style :

1) calculer la longueur de ta chaine de caractere
2) tu substring chaque lettre et tu teste si c numeric ou pas (par exemple pour separer le numeric de ta string)

ex :

http://perlmeme.org/howtos/perlfunc/substr.html

http://www.brunette.brucity.be/NewBr.../cgi/cgi9.html

Ne le prends pas mal mais j'appelle cela se compliquer la vie !
Ou du dév à la C ce qui revient au même...au moins en ce qui concerne la manipulation de chaines...

[etranger]

je ne voi pas pourquoi faire compliqué (donc utiliser substr comme on le ferait avec un autre language) alors que l'on peu faire simple (avec la solution de Jeh).

Les expressions reguliaires sont l'une des richesse de perl, il convient donc de les utiliser et de ne pas ecrire du code à la C/pascal alors que perl permet de faire les choses de maniere beaucoup plus simple.

Je me permet de commanter l'expression reguliaire de Jeh :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
$chaine =~ # c'est la chaine contenu dans $chaine qui va etre scané
 
         / *debut de l'expression réguliaire
 
              ^  *caractaire de debut de ligne (le nombre doit donc être le premiere caractaire, pas d'espace etc...)
 
               (\d+)  # un decimal ou plus est sauveguardé dans $1.
 
                (.*)   # le reste de la chaine est sauvegardé dans $2 (la chaine ne doit pas contenir de saut de ligne)
 
        /  # fin de l'expression.

EDIT : Jeh à été plus rapide que moi