Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: NaSaRiD15 en 1 Mayo 2014, 20:59 pm



Título: Perl - Expresiones regualres
Publicado por: NaSaRiD15 en 1 Mayo 2014, 20:59 pm
Buenos dias, tengo el siguiente problema, tengo que encontrar un patron el cual matche un comentario los cuales tienen la siguiente forma.
Ejemplo : (* comentario *) y //comentario

// son comentarios en una linea

(* Son comentario en una o mas lineas *)

Mi dificultad esta en los comentarios en varias lineas, el patron que diseñe es el siguiente:

$_ = join("",<>);
((\(\*(.*)(\*\)))|(\/\/)(.*))
print "$_";

El problema es que (.*) lee hasta el salto en linea, por lo tanto no me matchea el resto del comentario en varias lineas!!
Que puedo hacer?
Saludos y gracias.


Título: Re: Perl - Expresiones regualres
Publicado por: ivancea96 en 1 Mayo 2014, 23:32 pm
Código:
\(\*([^*)]*)\*\)

Con eso sería bsucar lo que dices. Eso si, no podría tener * ni ) en su interior.


Título: Re: Perl - Expresiones regualres
Publicado por: NaSaRiD15 en 2 Mayo 2014, 03:25 am
Me sirvió y lo entendí, te agradezco!