ciao a tutti

non sapendo fare il parsing di xml con perl, dato un file xml volevo orendere dei dati, e salvarli in file txt

per esempio
<RTU PK="97" >
<CentroA CommonAddress="234"/>
<CentroA CommonAddress="237"/>
<CentroA CommonAddress="238"/>
<CentroA CommonAddress="239"/>
etc...


i valori possono essere anche a 1,2,...cifre

il problema è questo

io ho provato a scandire il file

open(DATA,"<infile");
while(<DATA>) {
if {/centroa commonaddress=\"(.*?)\"/ig}
print $1 "\n";
}
}
close DATA;

però così non funziona, penso dipensa dal / dopo gli apici


oppure ho provato con la verifica se la stringa considerata, ossia common address, si trova nella riga corrente <DATA>, ma mi stampa il valore della riga successiva


qualche suggerimento? o un esempio di codice?

sono alle prime armi con perl

Grazie