Foro - Perl en Español

por **BigBear** » 2013-07-10 13:58 @624

Hola, tengo un problema con el siguiente código. El problema es que no me devuelve los enlaces que le pido a las dos funciones. Probé sacando download_all() y hacer lo mismo y sí funciona, pero el problema es que cuando está en la función no devuelve nada.

¿ Alguien me podría explicar por qué?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use LWP::UserAgent;
use URI::Split qw(uri_split);
use HTML::LinkExtor;
 
my $nave = LWP::UserAgent->new;
$nave->agent( "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12" );
$nave->timeout(10);
 
download_all("http://localhost/test.php");
 
sub download_all {
 
    my $page = "http://localhost/test.php";
 
    my $code = toma($page);
    chomp $code;
 
    my @links_all = get_links($code);
 
    print "paso";
 
    for my $page_down (@links_all) {
        print $page_down. "\n";
 
        #download_this($page_down);
    }
 
}
 
sub toma {
    return $nave->get( $_[0] )->content;
}
 
sub get_links {
 
    $test = HTML::LinkExtor->new( \&agarrar )->parse($code);
    return @links;
 
    sub agarrar {
        my ( $a, %b ) = @_;
        push( @links, values %b );
    }
}
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Creo que el problema está en que la variable $code está definida y declarada dentro de download_all(), y cuando el programa llega a get_links(), le dices que use la variable $code, pero Perl no sabe dónde está definida esa variable.

Si usases 'warnings', Perl te avisaría de estos casos.

Prueba con esta línea

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    my $code = shift;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

De todas maneras... ¿no estás usando demasiadas subrutinas? Para un proceso tan sencillo como ese, no necesitas ni siquiera una.

El peligro de usar subrutinas es que luego puedes tener problemas por usar variables globales.

El uso de variables globales dificulta la legibilidad del código fuente. Dado que en cualquier parte del programa y en todo momento se puede cambiar el valor de la variable, para entender el uso de la variable suele ser necesario tener que comprender el funcionamiento de una parte amplia del programa. También dificultan la separación del código en bibliotecas, ya que muchos sistemas (como por ejemplo DLL) no soportan la visualización directa de variables globales en otros módulos. Wikipedia: Variables globales

Y luego lo intentas arreglar pasando argumentos a las funciones. Y al final queda un lío como por ejemplo la línea 31, donde usas tanto un argumento ($_[0]) como una variable global ($nave).

Si vas a usar variables globales, defínelas al principio del programa.
Si vas a usar argumentos entre funciones, recógelos nada más empezar la subrutina.

por **BigBear** » 2013-07-10 17:30 @771

Sí, no sé por qué uso tantas funciones innecesarias, pero bueno, ya encontré el error:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub get_links {
 
    $test = HTML::LinkExtor->new( \&agarrar )->parse($code);
    return @links;
 
    sub agarrar {
        my ( $a, %b ) = @_;
        push( @links, values %b );
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y cambié el $code por $_[0].

por **explorer** » 2013-07-10 19:17 @845

Ya te digo... con solo ver el ejemplo que trae HTML::LinkExtor:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 require HTML::LinkExtor;
 $p = HTML::LinkExtor->new(\&cb, "http://www.perl.org/");
 sub cb {
     my($tag, %links) = @_;
     print "$tag @{[%links]}\n";
 }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Duda con Funciones

Duda con Funciones

Publicidad

Re: Duda con Funciones

Re: Duda con Funciones

Re: Duda con Funciones

¿Quién está conectado?