Por si a alguien le interesa... despues de muchas vueltas en
el foro de perl en español (espero que sea válido en este foro decirlo, es que la verdad, en FDW casi nunca soluciono mis problemas sobre PERL :( y eso que es el primer sitio donde pongo las dudas....)... he encontrado la solución:
Código:
my @valores = (qw(title subtitle author publishercode place pages notes size));
foreach (@newresults) {
foreach my $clave ( @valores ) {
my $clean = $_->{$clave} or next;
$clean =~ s/<span class="term">/ /gi;
$clean =~ s/<\/span>/ /gi;
$_ ->{$clave} = $clean;
}
}
chauuu