Foro - Perl en Español

#!/usr/bin/perl -w
#
use DBI;
my $dbh = DBI->connect("dbi:Informix:b_xxxx:168.xxx.xxx.x","usuario","password")
    or die "Can't connect to Informix";
my $prep = "select * from txxxx";
my $sth = $dbh->prepare($prep);
$sth->execute( );
$dbh->disconnect;

#****************************************************#
#! /usr/bin/perl -w
use CGI;
use DBI;

$q = new CGI;

# mandando servidor los encabezados de la pagina html                          
print $q->header;                                                              
print $q->start_html(-title=>"Centros de Consulta", -bgcolor=>"#3333CC", -text=>"#FFFFFF");
print "<center><H2>CONSULTA DE SUELDO BASE</H2></center>";
print $q->hr();                                                                
#creando una form o ventana                                                    
print $q->startform();                                                        
print "<font color=\"white\">";                                                
print "RFC del empleado:  ";                                            
print $q->textfield('RFC','',13);                                            
print $q->hr();
# creando un submit button                                                      
print $q->submit('BUSCAR');                                                  
# cerrando la forma                                                            
print $q->endform();                                                            

#se preciona el boton                                                          
#if ( $q->param('BUSCAR')) {  
#lee el textfeld
$v_rfc = $q->('RFC');

# creando conexion
my $dbh = DBI->connect('dbi:Informix:nomina@basedatos','pato','pato')or die print "No hay conexion con la base<br>";

#consulta el numero de registros existentes para ese empleado
my $prep = "select count(*) from sueldos where rfc= ? ";
my $sth = $dbh->prepare($prep);
$sth->execute($v_rfc );
my ($n_registros) = $sth->fetchrow_array();      
print "este es el numero $n_registros\n";                                                  
#Verifica si existe el empleado entonces
if($n_registros eq 0 ) {
#no existe
print "No existe ese registro<BR>";
$sth->finish;                                                                  
$dbh->disconnect();                                                            
print $q->hr();                                                                
print $q->end_html();
}#fi($n_registros ==0)      

#Existen registros para ese empleado
if($n_registros eq 1 ) {
#hace una nueva busqueda
$sth->finish;                                                                  
my $prep = "select empledo, puesto, qna, cheque from sueldos where rfc=? ";
my $sth = $dbh->prepare($prep);
$sth->execute($v_rfc );

#Cebeza de la tabla
print "<TABLE Border=10 CellPadding=5><TR>";
# construyendo los encabezados de la tabla                                      
print "<th bgcolor=Red>EMPLEADO</th>
       <th bgcolor=Red>PUESTO</th>
       <th bgcolor=Red>QUINCENA</th>           
       <th bgcolor=Red>SUELDO</th>                                            
       </TR>";

while ( my ($empleado, $puesto, $qna, $cheque)=$sth->fetchrow_array() ) {
#Construccion de la tabla para este usuario
# llena la tabla                                                              
print "<TR><TD>"."$empleado"."</TD><TD>"."$puesto"."</TD><TD>"."$qna"."</TD><TD>"."$cheque"."</TD><TD></TR>";    
};                                                                              
print "</TABLE>";

};#fin while
};#fin else
$sth->finish;                                                                  
$dbh->disconnect();                                                            
print $q->hr();                                          
print $q->end_html();
#};#fin if boton


##******************************************************
 

#!/usr/bin/env perl
use warnings;