Foro - Perl en Español

Hola, escribí hace tiempo en este foro y me sirvió de ayuda. Esta vez tengo una duda que creo que es bastante simple.

Tengo un documento de tipo xml, con esta forma



Necesito conseguir cada valor de wid (el número o el "w1" por ejemplo) y guardarlo en una variable, pero no sé cómo. Es decir:

El programa abre el fichero y mira línea a línea.

Si en alguna línea encuentra la palabra "gero" debe ejecutar lo siguiente:

Al llegar por ejemplo a esta línea: <wf wid="w7" sent="s1">gero</wf> encuentra la palabra "gero" y entonces debe guardar la wid que le corresponda (en este caso "w7") en una variable.

¿Es posible? Agradecería mucho su ayuda y espero se entienda mi explicación.

Acabo de intentarlo con este código:


my $testua='<wf wid="w1" sent="s1">Komunikazio</wf>';

my $numero = grep (/wid(w.*)/, $testua);

print($numero);

pero me imprime el número 0 cuando debería imprimir el "1" de "w1".

Prueba con

La expresión regular $testua =~ /wid="(.*?)"/ quiere decir que vamos a buscar dentro de $testua por una cadena de caracteres 'wid="', y capturaremos todo lo que haya hasta antes del siguiente carácter '"'. La captura la guardaremos en $numero.

Los paréntesis que rodean a $numero son importantes. Sin ellos, obtendríamos el resultado booleano de la expresión regular (verdadero, si hubo alguna captura; falso, si no), en lugar de la primera captura, que es lo que queremos. Como las capturas se devuelven en contexto lista, pues por eso necesitamos los paréntesis. Otra forma de hacerlo sería:

¡Funciona!

Mil gracias, me has hecho un gran favor y la explicación es genial.

¡Gracias!