Foro - Perl en Español

por **Arielinux** » 2008-02-06 13:35 @607

Buenas, este es mi primer post, y ya tengo una consulta medio estrambótica

Estoy haciendo un script para bajar archivos de distintos FTP que utiliza una tabla de la DB Oracle como parámetros. Funciona todo perfecto y sin problemas; lo que no sé cómo hacer es guardar en otra tabla los mensajes de respuesta que el Net::FTP me devuelve si es que ocurre algún problema. Acá les paso el script por si a alguien le interesa y de paso me da una mano.

Un abrazo desde py.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
#************************************************************************
#       Sistema de Toma de Archivos ftp con parametrizaciones           #
#                       de bases de Datos Oracle                        #
#       Requerimientos: DBI y DBD::Oracle                               #
#       Desarrollado por Ariel E. Pedrozo - [email protected]     #
#************************************************************************
use strict;
use Net::FTP;
use DBI;

my$user="scott";
my$password='tiger';
my$host='10.1.1.66';
my$port=1521;
my$sid='develop';
my$dbh;
my$sth;
my$sth2;
my$ftp;

my$driver="dbi:Oracle:host=$host;sid=$sid;port=$port";

unless($dbh= DBI ->connect($driver,$user,$password)){
print"\n No se pudo contactar con la DB \n";
}else{
print"CONECTADO\n";
}

$sth=$dbh->prepare("SELECT * FROM FTP");
$sth->execute;

my$arc;
my$dir;
my$hos;
my$usr;
my$pass;

while(($arc,$dir,$hos,$usr,$pass)=$sth->fetchrow_array){

#     print "$arc $dir $hos $usr $pass";
$arc=~s/\s*$//;
$dir=~s/\s*$//;
$hos=~s/\s*$//;
$usr=~s/\s*$//;
$pass=~s/\s*$//;

&ftpcito($arc,$dir,$hos,$usr,$pass);
$sth2=$dbh->prepare("INSERT INTO SCOTT.ERRORES(ERROR,ARCHIVO,fecha_hora)VALUES('$ftp->message','$arc',NULL)");
$sth2->execute;
#$dbh->commit;
}

sub ftpcito{
$ftp=Net::FTP->new($_[2], Debug => 0)ordie"No puedo conectarme al Servidor $@";
$ftp->login($_[3],$_[4])ordie"No puedo Loguearme ",$ftp->message;
$ftp->cwd($_[1])ordie"No puedo cambiar de Directorio ",$ftp->message;
$ftp->get($_[0])ordie"Toma de Archivos Fallida ",$ftp->message;
$ftp->quit;
return$ftp->message;
}Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Bienvenida a los Foros de Perl en Español, Arielinux.

Actualmente, lo que tienes hecho es que si ocurre un fallo, el programa se muera inmediatamente (die()), sacando el mensaje del fallo con $ftp->message. Pero si no hay fallos, $ftp->message no suele contener muchos mensajes.

Al final de la subrutina ftpcito(), llamas de nuevo a $ftp->message, para que ese valor sea devuelto, PERO no lo recoges en ningún sitio.

Prueba a hacer lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$resultado=&ftpcito($arc,$dir,$hos,$usr,$pass);
$sth2=$dbh->prepare("INSERT INTO SCOTT.ERRORES(ERROR,ARCHIVO,fecha_hora)VALUES('$resultado','$arc',NULL)");Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Arielinux** » 2008-02-06 15:08 @672

Ya lo solucioné pero de otra manera

Metiendo todos los insert dentro de la función y en vez del die, que directamente ejecuten el insert ahora quedo así.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
#************************************************************************
#       Sistema de Toma de Archivos ftp con parametrizaciones           #
#                       de bases de Datos Oracle                        #
#       Requerimientos: DBI y DBD::Oracle                               #
#       Desarrollado por Ariel E. Pedrozo - [email protected]     #
#************************************************************************
use strict;
use Net::FTP;
use DBI;

#Variables de Conexion
my$user="scott";
my$password='tiger';
my$host='10.1.1.66';
my$port=1521;
my$sid='develop';

#Variables a Utilizar
my$dbh;
my$sth;
my$sth2;
my$sth3;
my$sth4;
my$sth5;
my$ftp;
my$arc;
my$dir;
my$hos;
my$usr;
my$pass;

#Conexion a la Base de Datos
my$driver="dbi:Oracle:host=$host;sid=$sid;port=$port";
unless($dbh= DBI ->connect($driver,$user,$password)){
print"\n No se pudo contactar con la DB \n";
}else{
print"CONECTADO\n";
}

#Sql de Parametros
$sth=$dbh->prepare("SELECT * FROM FTP");
$sth->execute;

#Seteo de Parametros a Variables
while(($arc,$dir,$hos,$usr,$pass)=$sth->fetchrow_array){

#Eliminamos los espacios en blanco al final
$arc=~s/\s*$//;
$dir=~s/\s*$//;
$hos=~s/\s*$//;
$usr=~s/\s*$//;
$pass=~s/\s*$//;

#Llamos a la funcion ftpcito
&ftpcito($arc,$dir,$hos,$usr,$pass);

}

#Funcion
sub ftpcito{

#Mensajes de error a ser insertados en la Base de Datos
$sth2=$dbh->prepare("INSERT INTO SCOTT.ERRORES(ERROR,ARCHIVO,fecha_hora)VALUES('No me conecte al Server FTP','$arc',(select to_char(sysdate,'dd/mm/yy hh24:mi:ss') from dual))");
$sth3=$dbh->prepare("INSERT INTO SCOTT.ERRORES(ERROR,ARCHIVO,fecha_hora)VALUES('No puedo Loguearme','$arc',(select to_char(sysdate,'dd/mm/yy hh24:mi:ss') from dual))");
$sth4=$dbh->prepare("INSERT INTO SCOTT.ERRORES(ERROR,ARCHIVO,fecha_hora)VALUES('No puedo cambiar de Directorio o No existe','$arc',(select to_char(sysdate,'dd/mm/yy hh24:mi:ss') from dual))");
$sth5=$dbh->prepare("INSERT INTO SCOTT.ERRORES(ERROR,ARCHIVO,fecha_hora)VALUES('Fallo o el archivo no existe','$arc',(select to_char(sysdate,'dd/mm/yy hh24:mi:ss') from dual))");

#Modulos de Adquisicion de Archivos via Net::Ftp
$ftp=Net::FTP->new($_[2], Debug => 0)or$sth2->execute;#die "No puedo conectarme al Servidor $@";
$ftp->login($_[3],$_[4])or$sth3->execute;#die "No puedo Loguearme ", $ftp->message;
$ftp->cwd($_[1])or$sth4->execute;#die "No puedo cambiar de Directorio ", $ftp->message; 
$ftp->get($_[0])or$sth5->execute;#die "Toma de Archivos Fallida ", $ftp->message;
$ftp->quit;
return$ftp->message;
}Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **Arielinux** » 2008-02-06 15:09 @673

Quedó bien... hasta funciona y todo...

por **explorer** » 2008-02-06 16:00 @708

Un poco largo, pero innovador y funcional, que es lo que importa.

Foro - Perl en Español

Perl, Oracle y Net::FTP

Perl, Oracle y Net::FTP

Publicidad

¿Quién está conectado?