Foro - Perl en Español

por **explorer** » 2012-05-25 09:26 @434

Pues no lo sé... pero viendo las líneas que has publicado antes, me temo que no has mostrado el archivo correcto, ya que el error dice que la línea que ha fallado es la 10, y en tu archivo, esa línea no muestra nada ejecutable.

¿Seguro que has mostrado las primeras líneas de 'U:/Perl/site/lib/XML/SAX/PurePerl/Reader/UnicodeExt.pm'?

my $data = $archivo_xml->XMLin( $archivo_xml, ForceArray => ['Cabecera'] );
foreach $archivo_xml ( @{ $data->{Cabecera} } ) {
    if ( $operador == $archivo_xml->{OperadorId} ) {
        print "Nombre correcto";
    }
 
    else {
        print "Nombre incorrecto";
    }
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-05-28 04:53 @245

El código es terrible...

Estás usando $archivo_xml para tres cosas distintas: en la línea 1, dentro de XMLin(), se supone que contiene el nombre del archivo XML que vas a leer, pero al mismo tiempo vemos que almacena el objeto XML::Simple que llama a su método XMLin(). Y para rematar, en la línea 2 declaras una nueva variable $archivo_xml para recorrer los valores de @{ $data->{Cabecera} }

Entonces... cuando Perl llega a la línea 3... ¿a qué $archivo_xml nos queremos referir de los tres que has usado antes?

Por favor, da un nombre de variable distinto a cada cosa.

Otra cosa: ¿seguro que la comparación de la línea 3 es con '=='? ¿No será con 'eq'?

por **Redpunkpower** » 2012-05-28 06:12 @300

en la línea 1, dentro de XMLin(), se supone que contiene el nombre del archivo XML que vas a leer, pero al mismo tiempo vemos que almacena el objeto XML::Simple que llama a su método XMLin().
No entiendo eso.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $data = $archivo_xml->XMLin($archivo_xml, ForceArray => ['Cabecera'] );
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

me crea una variable "data", quiero que coja dentro del archivo_xml y dentro del xmlin pongo que en el archivo_xml coja "cabeceras".

Son números lo que quiero que compare, por eso he puesto '=='.

por **explorer** » 2012-05-28 07:00 @333

Redpunkpower escribiste:en la línea 1, dentro de XMLin(), se supone que contiene el nombre del archivo XML que vas a leer, pero al mismo tiempo vemos que almacena el objeto XML::Simple que llama a su método XMLin().
No entiendo eso.

A ver... en la siguiente línea:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    my $data = $archivo_xml->XMLin($archivo_xml, ForceArray => ['Cabecera'] );
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Qué contiene el $archivo_xml que está dentro de los paréntesis de XMLin()?
¿Qué contiene el $archivo_xml que está fuera de los paréntesis de XMLin()?

¿No te das cuenta de que deben ser cosas distintas, y por lo tanto, debes usar variables distintas?

por **Redpunkpower** » 2012-05-28 07:01 @334

El que está fuera indica que quiero que me coja el archivo_xml que es el que contiene todo y en el de dentro quiero que de ese archivo me coja solo "cabeceras".

por **explorer** » 2012-05-28 07:53 @370

Bien... pero la variable es escalar... (comienza por un '$') luego solo puede contener un único valor...

Por eso, SOLO debe contener un único valor, y por lo tanto, DEBES usar dos variables distintas...

Debes hacer esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $archivo_xml = 'el_archivo_xml_que_quiero_procesar.xml';   # nombre del archivo
my $xml_simple  = XML::Simple->new();                         # creamos un objeto XML::Simple
my $data        = $xml_simple->XMLin($archivo_xml, ForceArray => ['Cabecera'] );   # leemos (¡fíjate en las variables!)
 
for my $cabecera ( @{ $data->{Cabecera} } ) {                 # para todos los datos de la Cabecera
    if ($operador == $cabecera->{OperadorId} ) {              # extraemos su OperadorId
        print "...";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Por favor, observa que usamos una variable DISTINTA por cada información DISTINTA que vamos leyendo. Son cuatro variables, porque guardan cuatro valores distintos.

Otra forma, más simplificada (por poner 'use XML::Simple' al principio):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $archivo_xml = 'el_archivo_xml_que_quiero_procesar.xml';
my $data        = XMLin($archivo_xml, ForceArray => ['Cabecera'] );
 
for my $cabecera ( @{ $data->{Cabecera} } ) {                 # para todos los datos de la Cabecera
    if ($operador == $cabecera->{OperadorId} ) {              # extraemos su OperadorId
        print "...";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Redpunkpower** » 2012-05-28 10:41 @487

He usado la primera opción y va perfecto muchas gracias.

Si en la condición quiero que me compruebe que está en blanco, ¿cómo lo pongo?

he probado con

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if ( $cabecera->{OperadorId} eq " " ) {
    print "El nombre está incompleto";
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

pero no me sale lo que yo quiero.

por **explorer** » 2012-05-28 11:49 @534

No queda muy claro lo que quieres decir con "en blanco". ¿Te refieres a que no tenga ninguna información o que la única información que tenga sea uno o más caracteres espacio en blanco.

Para el primer caso

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if (not $cabecera->{OperadorId}) {
    print "El nombre está incompleto";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

aunque yo pondría más controles, como por ejemplo, la definición y la existencia:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if (exists($cabecera->{OperadorId}) and defined($cabecera->{OperadorId}) and $cabecera->{OperadorId}) {
    print "El nombre es $cabecera->{OperadorId}\n";
}
else {
    print "El nombre está incompleto\n";
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

bueno, queda más corto así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if (exists($cabecera->{OperadorId}) and $cabecera->{OperadorId}) {
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ahora bien... si alguna vez $cabecera->{OperadorId} pudiera valer 0 o '0', entonces hay que hacerlo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if (defined $cabecera->{OperadorId}) {
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Más información en perldoc -f exists y perldoc -f defined .

por **Eowyn** » 2013-07-10 04:56 @247

A mí también me aparece este error pero no exactamente así. Leo "Not a GLOB reference at Main line 106"

Siendo el código este:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print("Sar ezazu kargatu nahi duzun fitxategiaren izena: ");
my $fitxategia = <STDIN>;
chomp $fitxategia;
-f $fitxategia or die "Errorea, ezin da $fitxategia aurkitu";
open( my $FITX, $fitxategia );
Hash_Taula_Kargatu($fitxategia);
 
sub Hash_Taula_Kargatu {
 
    my @term_arraya1;                  #arraya hutsa definitu
    my @term_arraya2;
    my $fitxategia       = shift;
    my %Moten_Hash_Taula = (
        "N.IZE-ARR" => \@term_arraya1,
        "G.ADJ-ARR" => \@term_arraya2);
    my $FITX = XML::XPath->new( filename => $fitxategia );
 
    my $nodeset = $FITX->find('/KAF/terms/term');    
    my $gakoa;
 
    foreach my $node ( $nodeset->get_nodelist ) {
        my $term = XML::XPath::XMLParser::as_string($node);
 
        ($gakoa) = $term =~ /pos="(.*?)"/;
        push( @{ $Moten_Hash_Taula{"$gakoa"} }, $term );
 
    }
    while ( my $lerroADI = <$FITX> ) { # aquí parece que da el error
        chomp $lerroADI;
 
        for my $ADIa (@array) {
            if ( $lerroADI eq $ADIa ) {
                $ADI = 1;
                last;
            }
        }
    }
 
    if ( $ADI == 1 ) {
        print "Encontrado";
    }
 
    #close $ARCHIVO;
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Error: Not a GLOB reference

Re: Error: Not a GLOB reference

Publicidad

Re: Error: Not a GLOB reference

Re: Error: Not a GLOB reference

Re: Error: Not a GLOB reference

Re: Error: Not a GLOB reference

Re: Error: Not a GLOB reference

Re: Error: Not a GLOB reference

Re: Error: Not a GLOB reference

Re: Error: Not a GLOB reference

Re: Error: Not a GLOB reference

¿Quién está conectado?