Discussion :

[Le Mérovingien]

Bonjour, j'ai un petit probleme avec mon programme en OCAML, j'essaie de reconnaitre des morceaux de phrases dans une chaine de caractères, et ça marche bien sauf pour une : je veux que soit reconnu la phrase "r = bmp" ou la phrase "r = graph", avec la meme regexp. Pour l'instant, mon code donne ceci :

Code :

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

1
2
3
4
5
6
7
8
 
open Str ;;
 
let rendu = Str.regexp_case_fold "^ *r *= *\(graph\)|\(bmp\) *$" ;;
 
let s = "r = bmp" ;;
 
Str.string_match rendu s 0 ;;

et rien, à faire, ça ne marche pas. J'ai essayé évidement plein d'autres conbinaisons, mais rien à faire. Je précise que les " *" sont normaux, je veux qu'on puisse mettre autant d'espaces que l'on veut entre les mots, mais ça ça marche.
En attendant vos lumières, prenez votre temps, je ne reviens que samedi prochain (études obligent).

Merci d'avance, Le Mérovingien.

[Jedai]

En dehors de considérations sur le fait que les regexs sont complètement illisibles en Caml (par rapport à Perl ou à Ruby), il y a nettement une erreur sur la position du "|", en effet en supposant que tout le reste soit correct ta regex reconnait "r = graph" ou "bmp" mais pas "r = bmp"... Tes parenthèses sont mal situées, elles doivent entourer l'ensemble de l'alternative.

--
Jedaï

[Le Mérovingien]

Oui, ça je me doute qu'il y'a une erreur, mais j'avoue je ne vois pas du tout quoi modifier. Je pourrais faire un truc un peu plus "bourin" mais c'est plus résoudre le problème avec finesse, en utilisant le moins de cose possible, qui m'interesse. (ce script est pour moi, je n'ai rien à rendre ni temps imparti).

[InOCamlWeTrust]

En dehors de considérations sur le fait que les regexs sont complètement illisibles en Caml

Tout à fait d'accord... le seul gros problème, c'est que les mecs qui font Objective Caml sont de gros frappa-dingues d'Emacs... et ils ont eu la mauvaise idée de faire pareil !

[Jedai]

Oui, ça je me doute qu'il y'a une erreur, mais j'avoue je ne vois pas du tout quoi modifier. Je pourrais faire un truc un peu plus "bourin" mais c'est plus résoudre le problème avec finesse, en utilisant le moins de cose possible, qui m'interesse. (ce script est pour moi, je n'ai rien à rendre ni temps imparti).

Je répète :

Tes parenthèses sont mal situées, elles doivent entourer l'ensemble de l'alternative.

Je vois mal comment je peux être plus clair... sauf en te donnant le code. Et si tu n'as pas compris cette phrase, je crains d'encourager un comportement type cargo-cult en procédant ainsi...

--
Jedaï

[Steki-kun]

Tout à fait d'accord... le seul gros problème, c'est que les mecs qui font Objective Caml sont de gros frappa-dingues d'Emacs... et ils ont eu la mauvaise idée de faire pareil !

Pour ceux qui n'aiment pas ça, il y a des bindings de PCRE pour Ocaml (http://pcre-ocaml.sourceforge.net/), c'est ce que j'utilise personnellement (même si je suis un "frappa-dingue" d'Emacs à côté de ça )

[Le Mérovingien]

Bonjour bonjour,

Tout d'abord merci pour vos réponses, qui je trouve critique plus les regexp d'ocaml et ne répondent pas vraiment à ma question, mais c'est pas grave, car je me suis débrouillé autrement, je pense que meme si j'avais trouvé la solution du problème que je vous avais expliqué, ça ne m'aurait pas servi.
Cependant, j'aimerai juste signaler à Jedai que me dire "tes parenthèses sont mal situer" et surtout de me le répéter alors que ça ne m'a pas vraiment aidé la première fois, ne m'a pas vraiment rendu service. Mais bon, comme je l'ai di, c'est pas grave.

Je vous indique quand meme le code qui ne marche pas, après avoir essayer de remettre les parenthèses au bon endroit :

Code :

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

1
2
3
4
5
6
 
let rendu = Str.regexp_case_fold "^ *r *= *\(\(graph\)|\(bmp\)\) *$" ;;
ou
let rendu = Str.regexp_case_fold "^ *r *= *\([graph|bmp]\) *$" ;;
ou
let rendu = Str.regexp_case_fold "^ *r *= *[\(graph\)|\(bmp\)] *$" ;;

Voilà, tout ça me marche pas, j'ai du en essayer encore plein, je ne m'en souviens plus. J'aimerais quand meme comprendre pourquoi tout ça me fonctionne pas, et ce qu'il faut mettre pour que ça marche.

A bientôt, et merci

[Jedai]

Bonjour bonjour,

Tout d'abord merci pour vos réponses, qui je trouve critique plus les regexp d'ocaml et ne répondent pas vraiment à ma question, mais c'est pas grave, car je me suis débrouillé autrement, je pense que meme si j'avais trouvé la solution du problème que je vous avais expliqué, ça ne m'aurait pas servi.
Cependant, j'aimerai juste signaler à Jedai que me dire "tes parenthèses sont mal situer" et surtout de me le répéter alors que ça ne m'a pas vraiment aidé la première fois, ne m'a pas vraiment rendu service. Mais bon, comme je l'ai di, c'est pas grave.

J'ai précisé qu'elles devaient entourer l'ensemble de l'alternative...

Je vous indique quand meme le code qui ne marche pas, après avoir essayer de remettre les parenthèses au bon endroit :

Code :

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

1
2
3
4
5
6
 
let rendu = Str.regexp_case_fold "^ *r *= *\(\(graph\)|\(bmp\)\) *$" ;;
ou
let rendu = Str.regexp_case_fold "^ *r *= *\([graph|bmp]\) *$" ;;
ou
let rendu = Str.regexp_case_fold "^ *r *= *[\(graph\)|\(bmp\)] *$" ;;

Voilà, tout ça me marche pas, j'ai du en essayer encore plein, je ne m'en souviens plus. J'aimerais quand meme comprendre pourquoi tout ça me fonctionne pas, et ce qu'il faut mettre pour que ça marche.

A bientôt, et merci

En fait il semblerait que tu ais un problème de syntaxe des regexps en OCaml (qui comme je le disais est totalement pourrie... c'est pas vraiment de ta faute j'admets ) : tu as écrit | au lieu de \|

Code :

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

let rendu = Str.regexp_case_fold "^ *r *= *\(graph\|bmp\) *$" ;;

devrait fonctionner (mais je ne garantis rien : je n'ai pas de OCaml sous la main et la syntaxe est vraiment laide...).

--
Jedaï

[Le Mérovingien]

En effet, ça marche impec comme ça, je n'aurais jamais essayé de mettre un \ devant le |, ça parait tellement "lourd" comme notation, et je reconnais donc que les regexp sont pourries en ocaml .

Merci beaucoup, je mets ce sujet en résolu.

@+

Le Mérovingien