🚀 go-pugleaf

Saiyine <saiyine@clubdelphi.com> wrote:
> Buenas

> Llevo toda la tarde intentando hacerme un peque�o programa que usa como 
> entrada xml y no consigo dar con la expresion regular que extrae la 
> informacion si hay mas de un "dato" en la misma linea con el mismo nombre.

> Resumiendo, se trataria de, dadas dos palabras clave, obtener el texto entre 
> la primera y la primera aparicion de la segunda, en vez de el 
> comportamiento "standard" de perl que es devolver el texto entre la primera 
> y la ultima aparicion de la segunda.

> Por ejemplo, dada la linea:

> <info>prueba1234</info><info>blablablabla</info>

> me gustaria saber una expresion regular que devuelva prueba1234.

> Despues de toda la tarde buscando infructuosamente en el google, lo unico 
> que he encontrado es que la expresion que deberia funcionar es:

> /<info>([^.info]*)</info>/

> Que deberia dejar en $1 el valor "prueba1234", pero en la practica no 
> funciona.

> �Alguna idea?

$cad= "<info>prueba1234</info><info>blablablabla</info>";
$cad=~ s/<info>([^<]+)<\/info>.*/$1/;
print "$cad\n";

Con el [^<] aseguras que pillas caracteres hasta que encuentra el < del
primer </info>. Y el .* final sirve para que se "coma" el 
<info>blablablabla</info> y lo que haya despues.