Foro - Perl en Español

Hola de nuevo, ya estoy aquí a la carga otra vez. :roll:

Veamos, tengo un fichero con un montón de datos (el que tengo que importar a un MySQL), y quiero que no sea sólo para ese fichero sino para todos y así generalizar un poco el código. El fichero, son datos sobre investigaciones científicas y cuando el dato no ha sido posible sacarlo, lo señalan ...

Buenas, soy nuevo en el foro, un saludo a todos.

Debo realizar un script para una asignatura, y al no haber tocado antes este lenguaje me encuentro con problemas muy básicos y esperaba a ver si alguien me los pudiera resolver.

El primero de ellos es que necesito realizar un fichero histórico que vaya almacenando cada orden que se le pasa al script para después poder mostrarlo, modificarlo o borrarlo, y no sé cómo puedo ...

Buenas, alguien sabe cómo hacer para que cuando un usuario deba escribir algo con stdin, si se equivoca y desea borrar generalmente aparece ^H, pero no deseo que esto pase, quiero que simplemente se borre la letra como es normal que suceda.

De ante mano, gracias, y espero darme a entender.

Hola tengo el siguiente código:
use Tk;

my @test = ("sdds","dfdf","dfdf");

my $new = MainWindow->new();
$new->resizable(0,0);
$new->title("Test");
$new->geometry("300x350+20+20");
$new->Label(-text=>"Test")->pack();
my $lists = $new->Listbox()->place(-y=>"60",-x=>"80");
$lists->insert('end',@test);

MainLoop;


Mi duda es cómo puedo reconocer qué frase se ha seleccionado en el listbox.

¿Alguien me puede ayudar?

Hola.

Ando teniendo una duda porque tengo una ventana Tk que cuando la ejecuto sale la consola. Mi duda es cómo puedo ocultar la consola para que la ventana libremente sin tener que usar Win32::Console::Free().

¿Alguien me puede ayudar?

Hola.

Necesito saber cómo cerrar una ventana Tk de repente, sin depender del típico botón con la función
-command=>

¿Alguien me podría ayudar?

Hola.

Ando teniendo un problema con el siguiente código.

use Win32::Process::List;

&ya;
sub ya {
system 'cls';
my $new = Win32::Process::List->new();
my %process = $new->GetProcesses();
for my $pid (keys %process) {
print "$pid\n";
}

print "opcion = 1 = ver\n";
print "escoge:";
$op = <STDIN>;
chomp $op;
if ($op eq "1") { &ya; }
}


El problema es que al recargar con la opción 1 , el programa siempre muestra los mismos pids ...

Hola nuevamente...

Estoy enviando emails con un ejemplo sacado de este foro, pero la información es muy acotada... Está bien para comenzar, pero ya comencé y deseo enviar emails más sofisticados...

Tengo esto:
open (MAIL,"|/usr/lib/sendmail -t");
print MAIL "To: prueba\@email.com\n";
print MAIL "From: panterozo\@email.com\n";
print MAIL "Subject: Prueba de envio de email\n\n";

$email .= "\n\n\n\tHola que tal\n\n\n ";
$email .= "\n\n\n\t\tOtra entrada tabulada\n\n\n ";

print MAIL $email;
close(MAIL);
exit(1);

El email llega correctamente, pero ...

Hola.

Tengo la siguiente duda, porque tengo una ventana Tk que tiene un botón para llamar una función, pero lo que yo quiero es que el botón se active con presionar un enter y no un clic.

¿Alguien me puede ayudar?

Hola comunidad:

Estoy intentando hacer un programa, que a cierta hora ejecute otro... Este otro es un e-mail. ¿Sugerencias?

Thanks ;)