Foro - Perl en Español

por **Negrazo** » 2011-03-13 18:44 @822

Hola a todos:

Resulta que hice una subrutina para hacer Paginación en reportes que estén algo grandes y me funciona bien, ya la probé en un reporte de 1500 registros y todo bien.

Ahora necesito hacer lo mismo para una pila de más o menos 100 reportes diferentes, por lo que hice un "package" con la dichosa subrutina y así poder llamarla desde todos mis reportes con mínimos cambios en ellos, pero ya le intenté por varias partes y no puedo mandarle los parámetros necesarios para que funcione.

¿Alguien tiene una referencia, o un ejemplo tal vez?

Cualquier ayuda es bienvenida.

Gracias.

Hola, explorer:

Pues ya vi la referencia que me indicaste y, honestamente, no entiendo nada. Yo lo único que necesito es enviar dos parámetros desde un script a un package llamado 'paginar.pl', donde la subrutina se llama Paginacion y lo estoy haciendo así:

paginar::Paginacion(dato1, dato2);

En el módulo o paquete 'paginar.pl' trato de imprimir las variables que recibo, y, pues no traen nada.

¿Qué estoy haciendo mal?

Porque de seguro me falta algo...

Saludos.

por **explorer** » 2011-03-14 18:37 @817

¡Ah!, eso no es pasar parámetros a un package, sino ejecutar una de las funciones o métodos de ese paquete.

¿Qué error sale? ¿Has puesto use warnings para que Perl te ayude?

¿Cómo has hecho la importación del paquete en el programa? Si pudiéramos ver algo de código podríamos ayudarte más.

Hay varias formas de importar funciones en nuestro programa.

Este es una de ellas:

paginar.pl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
sub Paginacion {
    print '[', join('][', @_), "]\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

programa.pl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
do 'paginar.pl';
 
Paginacion(1, 4, 5..9, 'solideo');
 
__END__
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Negrazo** » 2011-03-14 20:31 @896

Gracias por responder, explorer:

Aquí te envio el código de ambas partes:

paginar.pl

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

package paginar;
 
$prog = "";
$SESSION = "";
$prev = 0;
$next = 0;
$ult = 0;
$init = 0;
 
print "Content-type: text/html\n\n";
 foreach  (@_ )
   {
     print $_;
     if($i == 0)
        { $prog = $_ ;  }
     if($i == 1)
        { $SESSION = $_ ;  }
     if($i == 2)
        { $prev = $_ ;  }
     if($i == 3)
        { $next = $_ ;  }
     if($i == 4)
        { $ult = $_ ;  }
      $i++;
    }
#my $CGISESSID = param('CGISESSID');
 
sub Paginacion
{
if($init > 0) {
print "<a href='$prog?CGISESSID=$CGISESSID&init=$prev '>\<</a>&nbsp;&nbsp;&nbsp;&nbsp;";
print "<a href='$prog?CGISESSID=$CGISESSID&init=0 '>\<<</a>&nbsp;&nbsp;&nbsp;&nbsp;";
   }
if($init >= 0 and $init < $ult) {
print "<a href='$prog?CGISESSID=$CGISESSID&init=$next '>\></a>&nbsp;&nbsp;&nbsp;&nbsp;";
print "<a href='$prog?CGISESSID=$CGISESSID&init=$ult '>\>></a>&nbsp;&nbsp;&nbsp;&nbsp;";
   }
print "<a href='reportesinscs.pl?CGISESSID=$SESSION '>Salir</a>&nbsp;&nbsp;&nbsp;&nbsp;";
}
return 1;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y aquí va el script que se llama alumxnameBis.pl

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!\perl\bin
# alumnos x nombre alumxnameBis.pl
require 'paginar.pl';
require 'connectDB.pl';
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use CGI qw(param uploadInfo);
use CGI;
use CGI ':standard';
use CGI::Session;
use Date::Simple ('date', 'today');
use Date::Calc qw(:all);
 
my $dt = today();
my @doc = "";
my $countn = 0;
my $con = "";
my $cicloctrl = "";
 
 
# grupo de variables para paging
my $init = param('init');
my $next = $init + 20;
my $prev = $init - 20;
my $i = $init + 1;
my $ult = 0;
my $entries = 20 ;
my $rem = 0;
 
my $cgi = new CGI;
my $CGISESSID = $cgi->param('CGISESSID');
my $session =
   CGI::Session->load("driver:File",$CGISESSID,{'Directory'=>'/temp/'})
       or die CGI::Session->errstr;
 
print "Content-type: text/html\n\n";
print "<p align='center'><img src='logo1.gif' border='0' name='banner' ></a><br></p>";
print start_html(-title=>'Mapapi', -bgcolor=>'#ffffc6');
 
my $aut = $session->param('Aut01');
if($aut eq '1' )
  {
 
# Configurar el acceso a la DB
$con = connectDB::Conn($m)
  or die "No puedo conectarme  a la database\n";
 
my $sth1 = $con->prepare("SELECT  ciclo FROM control ");
$sth1->execute()or die "No puedo leer Control....$!";
my @doc1 = $sth1->fetchrow_array;
  {
  $cicloctrl = $doc1[0];
       }
 
print basefont ({-face=>'Arial'});
print "<H2 align='center'><B>Inscripciones y Alumnos</H2><h5 align='right'>Fecha:$dt</h5></B>";
 
print font ({-size=>'4',  -color=>'Red'},'Alumnos x Nombre');
print "<BR>";
# llamo al modulo paginar
paginar::Paginacion('$prog','$SESSION','$prev','$next','$ult');
 
print "<TABLE align='right' border='3' >\n";
print "<TR><th>Cont.</th><th>Codigo</th><th>Nombre</th><th>Ap.Paterno</th><th>Ap.Materno</th><th>Sexo</th><th>Fecha Nacim.</th><th>Sangre</th><th>Situacion</th><th>Grado</th><th>Grupo</th></TR>\n";
 
my $sth = $con->prepare(qq(SELECT codigo,nombre,paterno,materno,sexo,nacimiento,sangre,situacion,grado, grupo  FROM alumnos where status = 'Activo' and ciclo='$cicloctrl' order by nombre,paterno,materno limit $init, $entries));
 
$sth->execute() or die "Error en Alumnos...";
while (@doc = $sth->fetchrow_array)
{
  print "<tr>";
   print "<B><td>$i</td><td>$doc[0]</td><td>$doc[1]</td><td>$doc[2]</td><td>$doc[3]</td><td>$doc[4]</td><td>$doc[5]</td><td>$doc[6]</td><td>$doc[7]</td><td>$doc[8]</td><td>$doc[9]</td></B>";
   print "</tr\n";
   $i++;
   $init;
     }
 
print "</TABLE>\n";
my $sth1 = $con->prepare(qq(SELECT count(*) as total FROM alumnos where status = 'Activo' and ciclo='$cicloctrl'  ));
$sth1->execute() or die "Error en Alumnos...";
@doc = $sth1->fetchrow_array;
print "<B> Total de Alumnos ==> " . $doc[0] . "</B><BR>";
print button(-name=>'back', -value=>'Atras', -onClick=>'history.go(-1)');
 
    }
else
   { print font ({-size=>'5',  -color=>'Red'},'No tienes autorizacion para esta opcion');
     print "<BR>";
print button(-name=>'back', -value=>'Atras', -onClick=>'history.go(-1)'); }
$con->disconnect;
 
exit;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Como puedes ver es un simple script que lee registros de la tabla 'alumnos' en grupos de 20 ($entries), empezando con lo que traiga en la variable $init.

Al invocar a paginar.pl le agregué que me imprima las variables que estoy pasando y no me imprime nada en absoluto.

A ver si le encuentras dónde tengo la falla.

Gracias.

por **explorer** » 2011-03-15 17:24 @767

En la subrutina Paginacion(), ¿en qué parte se leen los argumentos que le pasas después? Yo no lo veo...

Por otra parte, al principio del programa, hay un jaleo de carga de módulos. Debería ser algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use CGI          qw(param uploadInfo :standard);
use CGI::Session;
use CGI::Carp    qw(fatalsToBrowser);
use Date::Simple qw(date today);
use Date::Calc     ':all';
use DBI;
 
require 'paginar.pl';
require 'connectDB.pl';
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Negrazo** » 2011-03-16 20:33 @898

Hola explorer:

Fijate que me puse a leer el asunto de las Referencias y las des-referencias y allí estaba la clave del asunto. Yo nunca había usado estas cosas, pero siempre hay una primera vez.

Simplemente metí todos los parámetros en un arreglo, luego hice una referencia a dicho arreglo y esa referencia fue la que envié en la petición de la subrutina paginar.pl.

Allá en la subrutina simplemente recibí la referencia y extraje el arreglo y por tanto los parámetros.

Ahora ya me funciona todo bien.

Gracias de nuevo.

por **explorer** » 2011-03-16 20:39 @902

... y sin comentar que en la llamada a la función... las comillas simples son un error

Foro - Perl en Español

Pasar parámetros a un package

Pasar parámetros a un package

Publicidad

Re: Pasar parámetros a un package

Re: Pasar parámetros a un package

Re: Pasar parámetros a un package

Re: Pasar parámetros a un package

Re: Pasar parámetros a un package

Re: Pasar parámetros a un package(Resuelto)

Re: Pasar parámetros a un package

¿Quién está conectado?