Estoy teniendo un problema, y probé de todo y nada me funciona.
método:
Using perl Syntax Highlighting
- sub procesarUrls
- {
- my $self=shift;
- my @urls=shift;
- my @textos;
- my $key;
- my $value;
- #print Dumper(@urls);
- #for(my $i=0;$i<=$#urls;$i++)
- foreach $value (@urls)
- {
- print "valor: $value \n";
- #print "url: $urls[$i] \n\n";
- #$self->getDataClarin($urls[$i]);
- #$self->mostrarAtributos();
- #push(@textos,$self->getText());
- #$self->setText();
- }
- return @textos;
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Invocación:
Using perl Syntax Highlighting
- @urls=$esc->getLinkHome($html);
- $esc->procesarUrls(@$urls);
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
probé pasarlo con @, con %, etc. pero no hay caso lo único que logro mostrar en la dirección donde está el array: ARRAY(0x8d9e400)
con el print Dumper veo lo siguiente:
Using perl Syntax Highlighting
- $VAR1 = [
- [
- 'http://www.clarin.com/ciudades/capital_federal/Tension-Recoleta-delincuentes-entraron-edificio_0_319168239.html',
- 'http://www.clarin.com/ciudades/capital_federal/desplomo-grua-obra-edificios-Canitas_0_426557454.html',
- 'http://www.clarin.com/ciudades/capital_federal/Vido-cargo-responsabilidad-accidente-Provincia_0_428957290.html',
- 'http://www.clarin.com/ciudades/capital_federal/Arranca-manana-paritaria-docente-portena_0_429557260.html',
- 'http://www.clarin.com/ciudades/capital_federal/Amplio-operativo-tercerizados-boleterias-Constitucion_0_427157476.html',
- 'http://www.clarin.com/ciudades/capital_federal/Define-Justicia-hace-comisaria-Chacarita_0_428357282.html',
- 'http://www.clarin.com/ciudades/capital_federal/Susto-incendio-centro-porteno_0_428357394.html',
- 'http://www.clarin.com/ciudades/capital_federal/Piden-Justicia-extendio-antiguedad-escolares_0_428957311.html',
- 'http://www.clarin.com/ciudades/capital_federal/Quieren-bajar-volumen-boliches-Ciudad_0_428357286.html',
- 'http://www.clarin.com/ciudades/capital_federal/Lanzan-campana-impulsar-reciclaje-basura_0_427757342.html',
- 'http://www.clarin.com/ciudades/capital_federal/cuadras-choques-dejaron-heridos-Ciudad_0_427157452.html',
- 'http://www.clarin.com/ciudades/capital_federal/rosas-lagrimas-inauguran-homenajear-Sandro_0_427757343.html'
- ]
- ];
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
¿cómo podría recorrerlo desde el método del objeto?
probé pasar el vector con % o @ pero no hay caso.
¿alguien me puede ayudar?
Saludos
Sebastian
Edito:
Listo, ya encontré cómo hacerlo se hace con:
Using perl Syntax Highlighting
- Generic( \@array, "WE" , "HIGH" , "DOWN");
- sub Generic {
- my ($ref, $w, $h, $d) = @_;
- foreach my $file (@{$ref}) {
- print "Now Processing $file ...\n";
- };
- print "$w\n";
- print "$h\n";
- print "$d\n";
- }
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Gracias de todos modos
Saludos
Sebastian
