- Código: Seleccionar todo
Global symbol "$arch_local" requires explicit package name at huawei.pl line 5.
Global symbol "$puerto" requires explicit package name at huawei.pl line 6.
Global symbol "$source" requires explicit package name at huawei.pl line 7.
Global symbol "$username" requires explicit package name at huawei.pl line 8.
Global symbol "$passwd" requires explicit package name at huawei.pl line 9.
Global symbol "$archivo" requires explicit package name at huawei.pl line 11.
Global symbol "@registros" requires explicit package name at huawei.pl line 12.
Global symbol "$cadena" requires explicit package name at huawei.pl line 14.
Global symbol "@registros" requires explicit package name at huawei.pl line 14.
Global symbol "$cadena" requires explicit package name at huawei.pl line 16.
Global symbol "$charr" requires explicit package name at huawei.pl line 18.
Global symbol "$archivo" requires explicit package name at huawei.pl line 19.
Global symbol "$archivo" requires explicit package name at huawei.pl line 24.
Global symbol "$ftp" requires explicit package name at huawei.pl line 28.
Global symbol "$source" requires explicit package name at huawei.pl line 28.
Global symbol "$puerto" requires explicit package name at huawei.pl line 28.
Global symbol "$source" requires explicit package name at huawei.pl line 28.
Global symbol "$ftp" requires explicit package name at huawei.pl line 29.
Global symbol "$username" requires explicit package name at huawei.pl line 29.
Global symbol "$passwd" requires explicit package name at huawei.pl line 29.
Global symbol "$ftp" requires explicit package name at huawei.pl line 29.
Global symbol "$ftp" requires explicit package name at huawei.pl line 30.
Global symbol "$ftp" requires explicit package name at huawei.pl line 31.
Global symbol "$archi" requires explicit package name at huawei.pl line 31.
Global symbol "$arch_local" requires explicit package name at huawei.pl line 31.
Global symbol "$ftp" requires explicit package name at huawei.pl line 32.
Unmatched right curly bracket at huawei.pl line 51, at end of line
Aquí coloco el código fuente:
Using perl Syntax Highlighting
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;
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;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Por favor, ¿alguien me podría ayudar con eso?
¡Muchísimas gracias!