Foro - Perl en Español

por **Redpunkpower** » 2012-05-23 09:28 @436

Not a GLOB reference at c:/Perl/site/lib/XML/SAX/PurePerl/Reader/UnicodeExt.pm line 10.

¿Cómo resuelvo este error?

# $Id$
 
package XML::SAX::PurePerl;
use strict;
 
no warnings 'utf8';
 
eso es lo que hay en el UnicodeExt.pm
sub chr_ref {
    return chr(shift);
}
 
if ($] >= 5.007002) {
    require Encode;
    
    Encode::define_alias( "UTF-16" => "UCS-2" );
    Encode::define_alias( "UTF-16BE" => "UCS-2" );
    Encode::define_alias( "UTF-16LE" => "ucs-2le" );
    Encode::define_alias( "UTF16LE" => "ucs-2le" );
}
 
1;
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

eso es lo que hay en el /Perl/site/lib/XML/SAX/PurePerl/Reader/UnicodeExt.pm

por **explorer** » 2012-05-23 10:50 @493

No puede ser: En la línea 10 no tienes ninguna instrucción que provoque el error que muestras.

El mío es este, y ahí sí que está la línea 10 con el binmode():

Sintáxis: (UnicodeExt.pm) [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# $Id$
 
package XML::SAX::PurePerl::Reader;
use strict;
 
use Encode ();
 
sub set_raw_stream {
    my ($fh) = @_;
    binmode($fh, ":bytes");
}
 
sub switch_encoding_stream {
    my ($fh, $encoding) = @_;
    binmode($fh, ":encoding($encoding)");
}
 
sub switch_encoding_string {
    $_[0] = Encode::decode($_[1], $_[0]);
}
 
1;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Lo que me parece es que puede ser algo antiguo el módulo que muestras...

Yo tengo instalada la versión 0.99:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

explorer@casa:~/Documentos/Desarrollo> perl -MXML::SAX -E 'say $XML::SAX::VERSION'
0.99
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **Redpunkpower** » 2012-05-24 05:10 @257

Can't find string terminator "'" anywhere before EOF at -e line 1.

me dice eso,

por **explorer** » 2012-05-24 06:46 @323

Si aún trabajas en Windows, debes recordar que las comillas son al revés que en Linux/Unix:

perl -MXML::SAX -E "say $XML::SAX::VERSION"

por **Redpunkpower** » 2012-05-25 03:39 @194

¡Ah, vale! Pues sí, tengo la misma versión que tu.

\Perl\bin>perl -MXML::SAX -E "say $XML::SAX::VERSION"
0.99

por **Redpunkpower** » 2012-05-25 05:32 @272

Borré el módulo y lo volví a instalar y ya lo tengo igual.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use XML::Simple;
use Data::Dumper;
use XML::Parser;
use strict;
use warnings;
use XML::LibXML;
 
print "Archivo a comparar: ";
my $archivo_xml = <>;
chomp $archivo_xml;
exit if $archivo_xml eq 'Q';
 
my $parser = XML::Parser->new( ErrorContext => 2 );
eval { $parser->parsefile($archivo_xml) };
if ($@) {
    $@ =~ s/at \/.*?$//s;
    die "\nERROR en '$archivo_xml':\n$@\n";
}
 
else {
    print "\nEl archivo está bien formado\n";
}
 
my $xsd = 'CNJ_Monitorizacion_1.0.xsd';
 
if ( my $error = validate_xml_against_xsd( $archivo_xml, $xsd ) ) {
    die "\nNo se ajusta al esquema actual: CNJ_Monitorizacion_1.0.: $error\n";
}
 
else {
    print "\nSe ajusta al esquema actual: CNJ_Monitorizacion_.0.\n";
}
 
sub validate_xml_against_xsd {
    my ( $archivo_xml, $xsd ) = @_;
 
    my $schema = XML::LibXML::Schema->new( location => $xsd );
    my $parser = XML::LibXML->new;
 
    my $doc = $parser->parse_file($archivo_xml);
    eval { $schema->validate($doc) };
 
    if ( my $ex = $@ ) {
        return $ex;
    }
    return;
}
 
$archivo_xml = new XML::Simple( KeyAttr => [] );
 
my ( $operador, $almacen, $tipo, $Subtipo, $Periodicidad, $fecha, $lote ) = split( /_/, $archivo_xml );
 
my $data = $archivo_xml->XMLin( $archivo_xml, ForceArray => ['Cabecera'] );
foreach $archivo_xml ( @{ $data->{Cabecera} } ) {
    if ( $operador = $archivo_xml->{OperadorId} ) {
        print "Son iguales";
    }
 
    else {
        print "No son iguales";
    }
 
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Ese es el código.

por **explorer** » 2012-05-25 05:51 @285

La línea 55 está mal. Estás usando el operador de asignación '=', que no es de comparación.

Si quieres hacer una comparación numérica entre $operador y $archivo_xml->{OperadorId}, debes usar '=='.
Si, en cambio, se trata de una comparación alfanumérica, debes usar 'eq'.

Más información en tu propio ordenador en perldoc perlop, y en la Web (traducido).

por **Redpunkpower** » 2012-05-25 06:46 @324

Ah, vale, no me había dado cuenta, pero al ejecutarlo me sigue dando el problema
Not a GLOB reference at U:/Perl/site/lib/XML/SAX/PurePerl/Reader/UnicodeExt.pm
line 10.

¿Y por qué tengo el código diferente al tuyo en Unicode.pm?

Foro - Perl en Español

Error: Not a GLOB reference

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?