Regex don't function correctly?

[Victor Casajuana Mas]

Hi Group.

I'm testing regex functions in Harbour 3.2 but I think that don't function correctly.

This is My Prg:

FUNCTION Main()

LOCAL cVar := "pru...@correo.com"

LOCAL cRegex := "/[A-Z0-9._%+-]+@[A-Z0-9-]+.+.[A-Z]{2,4}/"

LOCAL pRegex := hb_RegExComp( cRegex,.T.,.T. )

?lIsReges:=hb_IsRegex(pRegex)

aArr:=hb_RegEx(pRegex,cVar,.T.,.T.)

?lLike:=hb_RegExLike( pRegEx, cVar,.T.,.T. )

?lHas:=hb_RegExHas( pRegEx, cVar,.T.,.T. )

RETURN NIL

This is the result (array is empty):

The regex string is a validate email

In other web's to test regex works correctly:

[AL67]

Hi!

LOCAL cRegex := "/[A-Z0-9._%+-]+@[A-Z0-9-]+.+.[A-Z]{2,4}/"

In Harbour regular expression not begin and ending with /
and member dot is special character match any character

---
Adam

[Victor Casajuana Mas]

Thanks Adam.

So with Harbor, do you have to modify the standard regex expressions to work correctly?

Where can I see information about it?

Thank you.

[Victor Casajuana Mas]

Excuse me, the correct regex for email is:
^([a-zA-Z0-9_\-\.]+)@([a-zA-Z0-9_\-\.]+)\.([a-zA-Z]{2,5})$
It's works correctly in Harbour.
Thanks!!!

[Antonino Perricone]

On Wednesday, June 5, 2019 at 10:18:23 PM UTC+2, Victor Casajuana Mas wrote:

So with Harbor, do you have to modify the standard regex expressions to work correctly?

No, the regex between / is a javascript syntax only. 

The official email regex is https://emailregex.com/ 

[Victor Casajuana Mas]

Thanks for the answer Antonino.

I Found great info in this URL: https://github.com/zgamero/sandbox/wiki/X_RegularExpressions