Foro - Perl en Español

Publicado: **2014-08-01 11:20 @514**

Hola, ¿qué tal, compañeros perleros? Tengo un problema con uno de mis módulos que genera etiquetas con barcode, pero al hacer un return de un hash me lo imprime en el navegador y no quiero que aparezca.

Este método del módulo hace bien la función que necesito:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

package Modulo_arts;
 
sub exportar_valores {
    my ($self, $dbh) = ( shift, &$connect );
 
    my $numero      = ( $dbh->selectall_arrayref("SELECT * FROM TABLA1") );
    my $nombre      = ( $dbh->selectall_arrayref("SELECT NOMBRE FROM TABLA2 WHERE ID=$numero->[0]->[0]-1") );
    my $timestamp   = &$get_now;
    my $opciones    = $q->param('opciones ');
    my $descripcion = $q->param('DESCRIPCION');
    my %valores_parametros;
    $valores_parametros{opciones} = $opciones;
    $valores_parametros{nombre}   = $nombre->[0]->[0];
    $valores_parametros{numero}   = $numero->[0]->[0] - 1;
    %valores_parametros;                                    # este es un return de los valores
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

En este código es donde importo el hash, que al ejecutar el script, el hash me lo imprime en pantalla, y no lo necesito.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Modulo_arts;
use LWP::Simple;
 
my $cgi                = CGI->new;
my $arts               = Modulo_arts->new;
my %valores_parametros = $art->exportar_valores;
my $opciones           = $valores_parametros{opciones};
my $nombre             = $valores_parametros{nombre};
my $consecutivo        = $valores_parametros{numero};
my $impresora          = 'impresora_chica';
my $numero_copias      = 3;
 
my $parametros                = "nombre=$nombre&opciones=$opciones&numero=$numero";
my $path                      = 'http://' . $server . '/cgi-bin/scripts/generator_etiq.pl';
my $address->{etiquetaNombre} = "$path?$parametros";
my $etiqueta_nombres          = get( $address->{etiquetaNombre} );
 
for ( my $con = 0; $con < $numero_copias; $con++ ) {
    open( CMD, "| lpr -P $impresora-o portrait -o fit-to-page -o media=Custom.3x1.5in" );
    print CMD $etiqueta_nombres;
    close CMD;
}
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Espero puedan ayudarme, quedo en espera de sus comentarios.
Saludos

Publicado: **2014-08-01 12:24 @558**

En principio, no veo dónde puede estar el error.

Veo las siguientes cosas raras:

en el programa, a la hora de llamar a exportar_valores(), lo haces sobre el objeto $art, pero en el código lo llamaste $arts. Si te funciona, es una prueba de que no se trata de un método de un objeto, sino de una función de clase
sobra una llave al final

No veo nada más... o está muy oculto.

Deberás encontrar la línea que provoca la salida a pantalla.

Publicado: **2014-08-04 11:14 @509**

Así es, al llamar exportar_valores() sí es $arts, fue error de dedo

y la línea donde envío los datos en el método es solo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

%valores_parametros; # este es un return de los valores
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

O no sé si en el código, en el print CMD $etiqueta_nombres; haga la impresión de etiqueta y al mismo tiempo los valores.

Foro - Perl en Español

Impresión innecesaria de hash

Impresión innecesaria de hash

Re: Impresión innecesaria de hash

Re: Impresión innecesaria de hash