Foro - Perl en Español

use Net::FTP;
use Mail::Sendmail;
use strict;
use POSIX 'strftime';
my $arch_local=$ARGV[0];
my $puerto='55555';
my $source="DIR IP";
my $username="usr";
my $passwd="pswd";
open (ARCHI,"Occidente.txt");
my $archivo="";
@registros=<ARCHI>;
my $num=0;
foreach $cadena (@registros)
{
        if ($cadena =~ /\\([^\\]+\.txt)/m)
        {
                $charr=~ /\\([^\\]+\.txt)/m;
                $archivo = $1;
                #print $archivo;
               
        }      
}
print "$archivo\n";
#$archivo=~ tr /'\-'/'\\.o\-'/;
#print "$archivo\n";
close (ARCHI);
$ftp = Net::FTP->new(Host => $source, Port => $puerto, Passive => 1, Debug => 1) or die "No puedo conectarme a $source: $@";
$ftp->login($username,$passwd) or die "No puedo conectarme ", $ftp->message;
$ftp->binary;
if ( not $ftp->get($archi, $arch_local) ) {
        warn "Fallo el get ", $ftp->message;
        #SE ENVIA EL CORREO ALERTANDO QUE NO SE CONSIGUIÓ EL ARCHIVO EN EL HLR.
        # Creamos el hash con nuestro mensajes
        my %mail = (
        To => '[email protected]',
        From => '[email protected]',
        Subject => 'Falla en archivo Occidente',
        Message => 'No se ha encontrado el ImsiFile perteneciente a la region Occidente. Favor verificar',
        Smtp => 'servidor.de.correo'
        );
        # Envíar el mensaje
        unless (sendmail(%mail)) {
        # Error!
        print "ERROR\n";
        exit(1);
        }
        # Envío correcto.
        exit(1);
    }
}
$ftp->delete("$archivo");
$ftp->quit;