Foro - Perl en Español

por **creating021** » 2009-04-20 14:51 @660

Probablemente porque has olvidado usar chomp para cortar el fin de línea ("\n" o "\r\n" en Windows).
Cambia

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$SERVER=<STDIN>;Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

chomp(my$SERVER=<STDIN>);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$tipo=<STDIN>;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

chomp(my$tipo=<STDIN>);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

my$name='ftp';
my$pass='ftp';
my$barrera='bca';
my$pswbarrera='bca';

print"--------SELECIONE UNA OPCION---------\n\n";
print"1 Todos los archivos\n";
print"2 Archivo individual\n";
print"3 Mostrar los archivos del dispositivo\n";
print"4 Salir";


chomp(my$opcion=<STDIN>);
print"--------DIGITE IP------------\n\n";
chomp(my$SERVER=<STDIN>);
print"--------TIPO DISPOSITIVO-------\n";
chomp(my$tipo=<STDIN>);
#  my $f = split("/./$archivos[9]");
#                print "serial $f\n";


if($opcioneq'1')
{
if($tipoeq'tca')
{
my$FTP= Net::FTP->new($SERVER)ordie("No se puede abrir la conexion");
$FTP->login($name,$pass);
$FTP->binary();
$FTP->hash();
my@archivos=$FTP->ls();
foreachmy$archivo(@archivos){
$FTP->get($archivo);
print"$archivo\n";
}
$FTP->quit();
}
elsif($tipoeq'bca')
{
my$FTP= Net::FTP->new($SERVER)ordie("No se puede abrir la conexion");
$FTP->login($barrera,$pswbarrera);
$FTP->binary();
$FTP->hash();
$FTP->cwd("/files/tmp");
my@archivos=$FTP->ls();
foreachmy$archivo(@archivos){
$FTP->get($archivo);
print"$archivo\n";
}
$FTP->quit();
}
else{
print"dispositivo no valido\n";
}Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2009-04-28 07:22 @349

Metes todas las sentencias que se repiten en un bucle que compruebe la condición:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$opcion=0;
while($opcion!=4){
# leer $opcion desde el teclado
# actuar
# ...
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **wastudillo** » 2009-04-28 08:20 @389

Hola, muchas gracias por la respuesta. Me pongo en la tarea de hacerlo ya mismo. ¡Una pregunta! ¿Se puede ejecutar un programa cualquiera desde un programa desarrollado en PL? Por ejemplo, que dentro de una instrucción yo necesite que abra Word. No sé si será posible pero por eso le pido su ayuda. Gracias.

por **explorer** » 2009-04-28 10:39 @485

¿PL?

¿Qué es eso? ¿Te refieres al lenguaje de programación PL/1, o los lenguajes de base de datos de Oracle PL/SQL o de PostgreSQL (PL/PgSQL)?

Aquí, en Perl, usamos la función system(), las comillas invertidas (``) o el operador qx() y varios métodos más para arrancar programas.

Más información en perldoc perfunc y perldoc perlop.

En concreto, para Windows, hay diversas soluciones según lo que quieras hacer. Por ejemplo, en esta página tienes un ejemplo para transformar cada fichero de un directorio a fichero HTML. Usa el método de usar el protocolo OLE para intercambiar información entre aplicaciones Windows.

por **wastudillo** » 2009-05-13 10:25 @476

¿Qué tal? Nuevamente para molestarlos. Quisiera saber de qué manera o por medio de qué método puedo hacer que los mensajes de error o confirmación de una acción en un aplicativo de Perl se muestre en una pequeña ventana de Windows donde yo solamente tenga que darle aceptar para cerrarla después de leer el mensaje. Gracias.

por **proxy_lainux** » 2009-05-13 18:05 @795

Hola.

¿Por qué no intentas hacer eso haciendo una ventana con Gtk, por ejemplo? Si hay un momento donde me aparece un error, usa Gtk2::Window para crear una ventana y coloca el mensaje allí, y si presionas un botón que haga algo, en el caso de que el mensaje sea para alguna acción.

salu2

por **explorer** » 2009-05-13 18:22 @807

wastudillo: es mejor empezar hilos nuevos, sobre todo si no tienen que ver con el título y tema del hilo actual.

En cuanto a lo que quieres, creo que se puede resolver con una simple caja de alerta. Con el módulo Win32::GUI se puede hacer.

Foro - Perl en Español

Extraer todos los archivos de un directorio por FTP

Publicidad

Guardar Archivos en una carpeta

Mostrar opciones del programa

Ejecutar un programa desde PL

Mostrar ventana emergente

¿Quién está conectado?