proxy_lainux escribiste:¿Por qué no intentas hacer eso haciendo una ventana con Gtk, por ejemplo?
Porque instalar GTK2 requiere instalar Gtk+, Pango, Glib, Cairo y otras cosas... que Windows no trae, yo usaría otra librería como la que dice explorer (Win32::GUI) o Prima, ya que tiene menos dependencias.
wastudillo escribiste:coloco GTk2::Window y me sale un error
GT
k2 != GT
K2
Suponiendo que ese es el error, ya que no lo comentas.
Bien, el asunto es que sí se puede hacer, y es muy simple:
Primero creamos una función que imprima el diálogo, ésta deberá recibir un argumento... el mensaje (de error o de confirmación).
Using perl Syntax Highlighting
# use Prima qw(Application MsgBox);
sub MiDialogo
{
my $msg = shift; # argumento.
Prima
::MsgBox::message($msg, mb
::Ok);
}
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Luego, en el código que tenías, agregamos algo.
Using perl Syntax Highlighting
my $FTP = Net
::FTP->new($SERVER) or die ("No se puede abrir la conexión");# aquí también
$FTP->login($name,$pass);
$FTP->binary ();
$FTP->hash ();
my @archivos = $FTP->ls();
foreach my $archivo (@archivos){
$FTP->get($archivo) or do {
MiDialogo
( $FTP->message() );
next; # Seguimos con el siguiente elemento del bucle
};
MiDialogo
( "Archivo $archivo copiado" );
print "Archivo $archivo copiado\n"; # este es el mensaje
}
$FTP->quit();Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Es una forma simple y rápida... que se puede mejorar