Foro - Perl en Español

por **ccorrales001** » 2010-02-09 08:10 @382

Hola muy buenas, tengo una duda con el siguiente código, más bien con los errores que me salen. El código lo que hace es que a través de una búsqueda de un usuario, me imprime las 10 primeras URL de esa búsqueda en un fichero. Con el Mechanize guardo el título de cada URL y después las paso a texto plano, para posteriormente hacer resúmenes. Parte del código que me genera problemas es el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub busqueda_parrafo_mas_castellano{
 
 use Yahoo::Search;
 my $pal;
 $pal=$_[0];
 chomp($pal);
 my $lang_es="es";
 my @Results = Yahoo::Search->Results(Doc => "$pal",
                                      AppId => "XXXXXXXXXXXXXXXXX",
                                      # The following args are optional.
                                      # (Values shown are package defaults).
                                      Mode         => 'all', # all words
                                      Start        => 0,
                                      Count        => 10,
                                      Type         => 'html', # only html documents
                                      AllowAdult   => 0, # no porn, please
                                      AllowSimilar => 0, # no dups, please
                                      Language     => $lang_es,
                                     );
 warn $@ if $@; # report any errors
 open(IRT, ">urls");
 for my $Result (@Results){
      printf (IRT "%s\n",$Result->Url);
  }
 close(IRT);
 my @palabra_titulo= &mechanize($pal);
 &sacar_parrafo_castellano($pal, /@palabra_titulo);
}
 
sub mechanize{
 
 my $mech = WWW::Mechanize->new();
 my $url;
 my $pal=$_[0];
 my $dirnombre;
 $dirnombre = "/home/XXXX/Escritorio/YYYYY/ZZZZZ/$pal";
 open(SAR1, "urls");
 mkdir $dirnombre, 0755;
 chdir $dirnombre, 0755;
 my $cont=0;
 my $url;
 my $filename;
 while ($url=<SAR>){
   chomp($url);
   if($url=~/wiki/){
        my $pos=1;
   }else{
        my $mech->get("$url");
        my @palabras_titulo;
        my $title=$mech->title();
        push(@palabras_titulo, $title);
        close(SAR1);
        system("lynx -dump '$url' > $filename");
        my $depurada=&depurar($filename);
        open(IRT1, ">depurado$cont");
        print(IRT1, "$depurada");
        close(IRT1);
        $cont++;
   }
 }
 close(SAR);
 return(@palabras_titulo);
}
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

El problema que tengo es que me salen estos errores, y no se por qué, ya que creo que el código está bien.

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Bareword found where operator expected at idioma.pl line 598, near "$dirnombre = "/home"

  (Might be a runaway multi-line // string starting on line 589)

        (Missing operator before home?)

String found where operator expected at idioma.pl line 599, near "open(SAR1, ""

  (Might be a runaway multi-line "" string starting on line 598)

        (Missing semicolon on previous line?)

Bareword found where operator expected at idioma.pl line 599, near "open(SAR1, "urls"

String found where operator expected at idioma.pl line 610, near "my $mech->get(""

  (Might be a runaway multi-line "" string starting on line 599)

        (Missing semicolon on previous line?)

String found where operator expected at idioma.pl line 615, near "system(""

  (Might be a runaway multi-line "" string starting on line 610)

        (Missing semicolon on previous line?)

dump() better written as CORE::dump() at idioma.pl line 615.

String found where operator expected at idioma.pl line 617, near "open(IRT1, ""

  (Might be a runaway multi-line "" string starting on line 615)

        (Missing semicolon on previous line?)

String found where operator expected at idioma.pl line 618, near "print(IRT1, ""

  (Might be a runaway multi-line "" string starting on line 617)

        (Missing semicolon on previous line?)

Scalar found where operator expected at idioma.pl line 618, near "print(IRT1, "$depurada"

String found where operator expected at idioma.pl line 631, near "open(SAR1, ""

  (Might be a runaway multi-line "" string starting on line 618)

        (Missing semicolon on previous line?)

String found where operator expected at idioma.pl line 635, near "}#elsif($linea==""

  (Might be a runaway multi-line "" string starting on line 631)

Global symbol "$mech" requires explicit package name at idioma.pl line 589.

Global symbol "$url" requires explicit package name at idioma.pl line 589.

Global symbol "$dirnombre" requires explicit package name at idioma.pl line 589.

Global symbol "$dirnombre" requires explicit package name at idioma.pl line 589.

syntax error at idioma.pl line 598, near "$dirnombre = "/home"

Global symbol "$url" requires explicit package name at idioma.pl line 610.

Global symbol "$filename" requires explicit package name at idioma.pl line 615.

Global symbol "$cont" requires explicit package name at idioma.pl line 617.

Global symbol "$depurada" requires explicit package name at idioma.pl line 618.

Global symbol "$fichero" requires explicit package name at idioma.pl line 631.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Alguien me puede ayudar? Gracias de antemano.

Foro - Perl en Español

Errores en el código

Errores en el código

Publicidad

Re: Duda con este código

Re: Errores en el código

¿Quién está conectado?