Buenos días, explorer, gracias por la prontitud en tu respuesta, como siempre.
Este es el código que extrae los valores del @img:
Using perl Syntax Highlighting
my $html = HTML::TagParser->new($url);
my @img = $html->getElementsByTagName("img");
my @p = $html->getElementsByTagName("p");
foreach my $elem1 (@img) {
my $attr1 = $elem1->attributes;
foreach my $key ( sort keys %$attr1 ) {
if ( $key eq "height" && $attr1->{$key} == 100 ) {
if ( $attr1->{src} =~ m/$filtro/g ) {
push( @src, $attr1->{src} );
push( @alt, $attr1->{alt} );
}
}
}
}
foreach my $elem2 (@p) {
my $attr2 = $elem2->attributes;
my $text2 = $elem2->innerText;
foreach my $key ( sort keys %$attr2 ) {
if ( $attr2->{$key} eq "product_price" ) {
$text2 =~ s/\$//g;
$text2 =~ s/(.+\..+)Now (.+\..+)/$2/g;
my $inc = ( $text2 / 100 ) * $GANANCIA;
$valor_final = $text2 + $inc;
$valor_final = sprintf( "%.2f", $valor_final );
push( @txt, $valor_final );
}
}
}
Coloreado en 0.003 segundos, usando
GeSHi 1.0.8.4
Por favor no te fijes en la elegancia, todavía es una prueba.
Gracias de antemano.