Este método del módulo hace bien la función que necesito:
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.003 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.
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