Foro - Perl en Español

¡Es verdad! No lo había probado.

Lo probaré y te diré cómo me ha ido...

icsbcn escribiste:Necesitaba una expresión regular que validara:

-> Ip's
-> URL's (http/https)
-> FTP's
-> Dominios

Que en vez de una expresión regular que lo haga todo que es mejor que uses 3: una para IPs, otra para hosts/dominios y otra para urls.

Hola Salva,

Es lo que he hecho. Y las he juntado mediante OR's.

Saludos.

explorer escribiste:Más información específica sobre ftp en Regexp::Common::URI::ftp.

Hola,

Igual que usáis $RE{URI}{FTP}{-password} para saber si un string es un ftp, ¿cuál usaríais para saber si es una IP o una URI (http/https)?

Pues... viendo la documentación de Regexp::Common::URI::http, debería ser

$RE{URI}{HTTP}{-scheme => 'https?'}

y

para las direcciones IPv4, tienes el módulo Regexp::Common::net.

Hola,

Primero de todo, ¡muchas gracias por vuestra ayuda!

Creo que ya lo tengo todo... Mirad:

Primero, valido la entrada mediante la siguiente regex:

^(25[0-5]|2[0-4][0-9]|[01]?[0-9]?[0-9])(\.(25[0-5]|2[0-4][0-9]|[01]?[0-9]?[0-9])){3}(:(6553[0-5]|655[0-2][0-9]|65[0-4][0-9]{2}|6[0-4][0-9]{3}|[0-5]?([0-9]){0,3}[0-9]))?$)|(^(https?://)?(([0-9a-z_!~*'().&=+$%-]+:)?[0-9a-z_!~*'().&=+$%-]+@)?(([0-9]{1,3}\.){3}[0-9]{1,3}|([0-9a-z_!~*'()-]+\.)*([0-9a-z][0-9a-z-]{0,61})?[0-9a-z]\.[a-z]{2,6})(:[0-9]{1,4})?((/?)|(/[0-9a-z_!~*'().;?:@&=+$,%#-]+)+/?)$)|(?:(?:ftp)://(?:(?:(?:(?:[a-zA-Z0-9\-_.!~*'();&=+$,]+|(?:%[a-fA-F0-9][a-fA-F0-9]))*))(?::(?:(?:(?:[a-zA-Z0-9\-_.!~*'();&=+$,]+|(?:%[a-fA-F0-9][a-fA-F0-9]))*)))?@)?(?:(?:(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][-a-zA-Z0-9]*[a-zA-Z0-9]|[a-zA-Z])[.]?)|(?:[0-9]+[.][0-9]+[.][0-9]+[.][0-9]+)))(?::(?:(?:[0-9]*)))?(?:/(?:(?:(?:(?:(?:[a-zA-Z0-9\-_.!~*'():@&=+$,]+|(?:%[a-fA-F0-9][a-fA-F0-9]))*)(?:/(?:(?:[a-zA-Z0-9\-_.!~*'():@&=+$,]+|(?:%[a-fA-F0-9][a-fA-F0-9]))*))*))(?:;type=(?:[AIai]))?))?)

Entonces, obtengo el valor (que ya sé que es o una IP, o un HTTP o un HTTPS o un FTP o un dominio). Y para saber cual de ellos es, uso:



¿Qué os parece?

Si estas usando una versión de Perl reciente (5.10 o posterior), puedes utilizar la construcción given/when que hara que tu código sea más claro:

¿Haces dos veces la ejecución de una expresión regular?

¿No es mejor hacerla solo una vez?

Tienes toda la razón. El problema es que me veo obligado a hacerlo así ya que la primera validación no la controlo yo, sino que lo hace un programa externo al que le paso una expresión regular y él se encarga de validar y de retornar el "input" introducido...

Hola de nuevo,

Ahora me toca seguir trabajando con las expresiones regulares... Ahora me toca tratar el "input" obtenido...

Es decir,

Si es una IP, debo dividir entre el valor de la IP y el puerto si existiera.
Si es una URL, debo dividir entre el valor del protocolo, nombre dominio, puerto y archivo (index.html) si existiera.
Si es un FTP, además también debería almacenar user y password si existiera.
Si es un dominio, sólo debería almacenar el nombre de dominio y el puerto y el archivo si existieran.