1

es decir, validar una cadena donde se repite (2 veces) con expresiones regulares, por ejemplo. Si tengo lo siguiente:

la respuesta movida tendrá que ser movida nuevamente.

la respuesta ***movida*** tendrá que ser ***movida*** nuevamente.

o también si tengo correos electrónicos:

from: "***[email protected]***" <***[email protected]***>

validar los correos repetidos. ¿Cómo puedo realizar una validación con expresiones regulares, pero si tengo diferentes que no lo valide. Mientras tengo esto.

/[\w.!#$%&*+\/=?{|||+@[\w-íritu+(?:\.[\wíritu+)/

Luego tengo que validarlo en perl.

2 respuestas 2

0

Lo más sencillo es partir la línea en palabras, y meterlas en un hash, sumando 1 por cada aparición de la palabra.

Al final, aquellas palabras que tengan en el hash un valor superior a 1, significarán que están repetidas.

Si necesitas obligatoriamente resolverlo con expresiones regulares, podrías intentarlo con expresiones extendidas:

perl -E '"la respuesta movida tendrá que ser movida que nuevamente." =~ /\b(\w+)(*SKIP)\b.+?\1(?{ say $1 })(*FAIL)/;'
movida
que

Con un patrón como /b(\w+)/ puedes capturar palabras, pero no direcciones de correo. Eso necesitará un patrón distinto.

9
  • Muchas gracias por la respuesta, en realidad requiero para correos. verifico que sean repetidos, lo valido con esto. @[\w-]+(?:\.[\w]+) o esto /[\w.!#$%&*+\/=?{|}]+@[\w-]+(?:\.[\w]+)/ pero validar los correos, pero ¿Como saber si son repetidos?. from: "[email protected]" <[email protected]> from: "[email protected]" <[email protected]>
    – MxMxxWC
    Commented el 6 oct. 2020 a las 19:05
  • Necesitas una expresión regular que capture toda la dirección de correo. Podría ser: /([\w.+-]+@[\w-]+(?:[.][\w-]+))/ Una vez capturado, ya puedes usarlo para buscar repetidos: perl -E '$mail = qr/[\w.+-]+@[\w-]+(?:[.][\w-]+)/; q("[email protected]" <[email protected]>) =~ /\b($mail)(*SKIP)\b.+?\1(?{ say $1 })(*FAIL)/;' Commented el 7 oct. 2020 a las 8:04
  • Muchas gracias por su respuesta maestro, ¿puedo ser su aprendiz?. lo Termine de esta manera. $validar = qr/[\w.!#$%&*+\/=?{|}]+@[\w-]+(?:\.[\w]+)/; $de = qr/\b($validar)(*SKIP)\b.+?\1/; $texto = <STDIN>; if( $texto =~ $validar and $texto =~ $de){ print "Bienvenido"; }else{ print "Fuera de aca palomilla"; } lo puse de esta forma para ejecutarlo, ahora lo que haré es un plugin en perl. Nuevamente muchas por su ayuda.
    – MxMxxWC
    Commented el 7 oct. 2020 a las 22:48
  • Estás utilizando demasiados caracteres especiales para la parte de usuario de un correo electrónico. Y en la comprobación, no te hace falta buscar por $validar. Con $de es suficiente. Y si el texto consiste de un máximo de una dirección de correo, te sobra "(*SKIP)". Tendrás mejor soporte nuestro en el foro de Perl en Español. Saludos. Commented el 8 oct. 2020 a las 11:39
  • Gracias por el ayuda, Una consulta. Como realizar un plugin, osea primero armar para luego probarlo.
    – MxMxxWC
    Commented el 13 oct. 2020 a las 4:51
0

Muchas gracias por la respuesta, en realidad requiero para correos. verifico que sean repetidos, lo valido con esto. @[\w-]+(?:.[\w]+)

o esto

/[\w.!#$%&*+/=?{|}]+@[\w-]+(?:.[\w]+)/

pero validar los correos, pero ¿Como saber si son repetidos?.

from: "[email protected]" <[email protected]>

from: "[email protected]" <[email protected]>

la linea anterior no son repetidos, sin embargo lo matchea.

T.T

GRacias de antemano.

1
  • Es una respuesta o parte de tu pregunta?
    – user128299
    Commented el 6 oct. 2020 a las 19:07

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.