• Publicidad

Net FTP y Net Telnet

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Net FTP y Net Telnet

Notapor mulambo » 2007-11-09 14:08 @631

Amigos.

Tengo una duda. Estoy realizando un FTP a un servidor y debo validar que el archivo exista, si éste no existe entonces debo conectarme vía Telnet y cambiarlo de directorio mediante unos comandos propios que entiende el servidor...

[list=1bc][*bc]Quiero saber si se puede usar ftp y telnet juntos (primero FTP, luego telnet y por ultimo FTP) contra la misma dirección IP.[/*:mbc]
[*bc]Como puedo hacer para tomar el mensaje:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
$ftp->get($archi, $arch_local) or die "Fallo el get ", $ftp->message;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
[/*:mbc][/list:obc]

¿Y usarlo en un IF para luego ejecutar TELNET a fin de cambiar el archivo de ruta?

Muchas gracias por la ayuda que puedan brindarme... :wink:
mulambo
Perlero nuevo
Perlero nuevo
 
Mensajes: 22
Registrado: 2007-08-14 10:06 @462

Publicidad

Notapor explorer » 2007-11-09 14:32 @647

Sí que se puede hacer distintas peticiones contra la misma IP. Son servicios distintos y van en puertos distintos. Y por cada puerto, el servidor puede dar servicio a varios clientes de forma simultánea.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
if ( not $ftp->get($archi, $arch_local) ) {
    warn "Fallo el get ", $ftp->message;

    # Acceso Telnet...

}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor mulambo » 2007-11-09 15:14 @676

Gracias Explorer. Tengo una pequeña duda que me surgió con tu respuesta.

En mi código tengo esto:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
my $ftp = Net::FTP->new($host, Port =>$puerto, Passive => 0,Debug => 1) or die "No puedo conectarme a $host: $@";
$ftp->login($usuario,$password) or die "No puedo conectarme ", $ftp->message;
$ftp->cwd($directorio) or die "No puedo cambiar de directorio ", $ftp->message;
$ftp->get($archi, $arch_local) or die "Fallo el get ", $ftp->message;
$ftp->quit;
 
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


¿Ese IF debe ir después de la última línea o se sustituye por la penúltima línea?

Muchas gracias nuevamente
mulambo
Perlero nuevo
Perlero nuevo
 
Mensajes: 22
Registrado: 2007-08-14 10:06 @462

Notapor mulambo » 2007-11-12 07:41 @362

¿Alguna ayuda a mi problema?? :cry: :cry:
mulambo
Perlero nuevo
Perlero nuevo
 
Mensajes: 22
Registrado: 2007-08-14 10:06 @462

Notapor explorer » 2007-11-12 08:33 @398

El if propuesto ejecuta el get(), y si devuelve un valor erróneo, no ejecuta la parte de telnet...

Vamos, creí que quedaba claro... ahora solo es cuestión de hacer pruebas y añadir la parte de telnet.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 6 invitados