Foro - Perl en Español

por **Eowyn** » 2013-02-27 05:50 @285

Hola de nuevo. Me ha salido ese error al probar un programa que hace tiempo funcionaba, al menos en Ubuntu antes de cambiar a Debian y de ordenador (que no sé si tendrá que ver, porque no lo controlo nada).

Si no me equivoco significa que no estoy usando ningún archivo xml y da error al tener puesto xml::parser, pero es que ni siquiera me deja introducir ningún archivo.

Como podéis ver, estoy totalmente perdido. ¿Me puede alguien ayudar, por favor? Gracias.

  GNU nano 2.2.4         Fitxategia: Hash_Taula_Kargatu                         
 
#!/usr/bin/perl
use warnings;
use strict;
use XML::XPath;
use XML::XPath::XMLParser;
 
 
        my @term_arraya1;    
        my @term_arraya2;
         my %Moten_Hash_Taula = ("N.IZE-ARR" => \@term_arraya1,
                            "G.ADJ-ARR" => \@term_arraya2);
         print ("introduce nombre de archivo");
    my $fitxategia = @_;
    chomp ($fitxategia);
    my $FITX = XML::XPath->new(filename => $fitxategia); #irakurri fitxategia;
 
    my $nodeset = $FITX->find('/KAF/terms/term'); # bilatu "term" paragrafoak k$
    my $gakoa;
 
    foreach my $node ($nodeset->get_nodelist) {4
         my $term= XML::XPath::XMLParser::as_string($node); #Nodo horren informa$
 
                ($gakoa) = $term =~ /pos="(.*?)"/;
                push (@{ $Moten_Hash_Taula{"$gakoa"} }, $term);
                my @array = @{ $Moten_Hash_Taula{"N.IZE-ARR"} };
                print (@array);
    }
 
 
 
                             
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-02-27 06:37 @317

Bueno, se ve claro dónde están los errores:

el programa comienza con esta cadena de texto: " GNU nano 2.2.4 Fitxategia: Hash_Taula_Kargatu", así que ya, solo con eso, el sistema ya no lo considera un programa Perl
en la línea 15 estás leyendo de '@_', pero eso solo sirve si estás dentro de una función o método. Como en esa parte del programa lo que quieres es leer del teclado, debes cambiarlo por my $fitxategia = <>;
hay un '4' suelto en la línea 22

Recuerda que para comprobar la sintaxis de un programa, te vale con ejecutarlo con '-c':

perl -c programa.pl

por **Eowyn** » 2013-02-27 06:50 @326

Bueno, los puntos 1 y 3 no estaban así en el programa, ha sido al hacer el copy paste que se colarían esos datos. Muchísimas gracias.

Ahora no me da el error del título, me da que no encuentra el archivo que le paso aunque está en la misma carpeta que el programa. Pero eso ya es cosa de que habré puesto algo mal en algún lado, porque aparece si lo miro desde el entorno gráfico pero no desde ls -l. Pero muchísimas gracias, de veras.

por **explorer** » 2013-02-27 06:59 @333

Entre las líneas 16 y 17 puedes meter esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if (not -f $fitxategia) {
    die "ERROR: No encuentro el archivo $fitxategia: $!\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

no element found at line 1, column 0, byte -1:

no element found at line 1, column 0, byte -1:

Publicidad

Re: no element found at line 1, column 0, byte -1:

Re: no element found at line 1, column 0, byte -1:

Re: no element found at line 1, column 0, byte -1:

Re: no element found at line 1, column 0, byte -1:

Re: no element found at line 1, column 0, byte -1:

¿Quién está conectado?