Foro - Perl en Español

Hola, llevo varios días estudiando casi todos los tutoriales de esta página, porque he empezado unas prácticas de empresa en un laboratorio de bioinformática y trabajan con Perl y MacOSX.

Sea como sea, me han pedido que haga un proyecto el cual requiere de conexión con MySQL, y pensé que usando XAMPP se simplificarían las cosas, pero no.

1. No logro instalar ni a través de CPAN ni descargando el fichero al ordenador el paquete ...

Hola a todos.
Uso en mi software el módulo XML::Simple para hacer la lectura de un archivo xml.
Leo un xml parecido a este:

<clientela>
<cliente>
<nombre>Filemon Pi</nombre> </cliente>
<cliente>
<nombre>Pantuflo Zapatilla</nombre></cliente>
...........
</clientela>

Con este código:
# ...
my $xml=XMLin("$Conn::clientes.xml",ForceArray => );
foreach my $cliente (@{$xml->{cliente}}{
......
# También probé:
my $clientes = XMLin("/root/txt/tutoperl2000/clientes.xml");
for( @{$clientes->{cliente}} ) {
print "$_->{nombre} => $_->{pasta} ($_->{fecha})\n";
}

El problema viene cuando este xml solo tiene ...

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.

Tengo un servidor con IIS (Windows) y otro con Linux (Red Hat). El servicio web lo hace IIS y la aplicación está en Linux. Necesito configurar un reverse proxy en el servidor de Windows para ocultar esta petición a Linux y que sea transparente, esto es, para hacer el servicio público :? y evitar ataques. No sé por dónde empezar, si montando un Apache junto con el ...

Qué onda, banda,

Traigo un proyecto muy problemático en el cual necesito un script que pueda mostrarme mis contactos de mis cuentas de correo (Yahoo, Gmail, Hotmail) y poder seleccionarlos para agregarlos a mi base de datos. El problema es que no sé cómo puedo mostrar la lista de mis contactos de correo.

Encontré un código que hace lo que necesito pero es de pago. ¿Alguien me puede ayudar?

http://www.linkprobd.com/perl_ci/

Gracias de antemano.

Salu2

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 ...