Foro - Perl en Español

Saludos a todos en el foro.

Tengo un problema... tengo que validar que en una tabla no existan direcciones incorrectas, principalmente en el numero de la casa. Por ejemplo:

Los dos últimos registros están incorrectos en el campo Numero exterior, los primeros cuatro casos están bien. Vaya, cualquier caso que salga del patrón de los primeros cuatro registros será incorrecto.

¿Cómo quedaría construida mi expresión regular? Agradezco cualquier ayuda.

Hasta luego.

Si nos ajustamos al ejemplo, una posible expresión regular sería esta:

print "$linea Ok\n" if $linea =~ /^\d+(b(is)?)?/;

Es decir, buscamos que la $linea empieza (^) por un dígito (\d) o más (+), seguido quizás (?) por la letra b que a su vez puede (?) estar seguida por las letras is.

Pero bueno... se puede hacer de otras maneras... ¿Alguien más se apunta?

Mil gracias por la respuesta.

La verdad es que he tratado de encontrar documentación acerca de la construcción de Expresiones Regulares, si hay, pero no abundan mucho en el tema, solo dan los principios básicos.

Solo una aclaración: la validación que se necesita implica que los números exteriores: empiecen con un número, que puede ser seguido por una sola letra o por la palabra 'bis', todo lo que salga de este patrón será incorrecto.

Mil gracias por las sugerencias... Hasta luego.

rookie23 escribiste:Mil gracias por la respuesta, la verdad es que he tratado de encontrar documentación acerca de la construcción de Expresiones Regulares, si hay, pero no abundan mucho en el tema, solo dan los principios básicos.

Bueno, tutoriales hay algunos y en la raíz de esta web hay algunos.

rookie23 escribiste:Solo una aclaración, la validación que se necesita implica que los números exteriores: empiecen con un número, que puede ser seguido por una sola letra o por la palabra 'bis', todo lo que salga de este patrón será incorrecto.

Tu mismo has descrito la expresión regular:

print "$linea Ok\n" if $linea =~ /^\d+(\w|bis)?\b/;

Mil disculpas por molestar tanto... Pero la verdad es que ya he hecho varias pruebas y no me funciona y estoy super atorado con esto.

El chiste es que por ejemplo la cadena "89asjfb" me la marque como incorrecta ya que después del dígito solo debo admitir una sola letra. Por ejemplo, "89a" eso sería correcto, peeeero las cadenas que contengan 'bis', por ejemplo, "34bis" sean correctas. Les paso el script completo:

y al ejecutar el script



Mil gracias y disculpen por moler tanto... Saludos.

Prueba esto
La expresión regular queda así: Comienza (^) por un número (\d+) y es seguido (quizás ?) inmediatamente por una letra ([a-z]) o (|) por la palabra bis y nada más ($).

El problema está ahora en indicar que sólo queremos una letra ( o el 'bis'). Por eso ponemos el metacarácter '$' para decir que ahí debe terminar la cadena.

Si hay algo más, entonces no es válida.

¡¡ Muchas gracias, explorer !!

Es increíble la cantidad de variantes que puedes presentar este tipo de expresiones, así es, la expresión es correcta, funciona perfectamente. Una última pregunta, en el siguiente código me hace falta quitar el espacio al inicio de la cadena, pero no logro colocar el metacarácter adecuado para que borre el espacio al inicio.



Gracias por su ayuda. Saludos.

Hola.

Voy a meter mis pares de centavos, ¡je,je! En primer lugar yo haría un pequeño cambio en la exp. reg. que recomendó explorer:



Al poner el ?: al principio del paréntesis evitas la sobrecarga ocasionada pues Perl guarda lo que captura dentro de los paréntesis en la variable especial $1. En este caso no se nota mucho, pero es buena práctica.

Ahora con tu siguiente problema, puedes hacer lo siguiente:




SALUDOS