Test Foro de elhacker.net SMF 2.1

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
\(\*([^*)]*)\*\)

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!