Foro - Perl en Español

Hola. Tengo el siguiente código.

use Tk;

my $she = MainWindow->new(-background=>"black");
$she->title("Dumping data with limit");
$she->resizable(0,0);
$she->geometry("400x400+20+20");
$she->Label(-background=>"black",-foreground=>"yellow",-text=>"Your text",-font=>"Impact")->pack();
my $todo = $she->Text(-foreground=>"yellow",-background=>"black",-width=> 45,-height=> 15)->pack();
$she->Button(-background=>"black",-foreground=>"yellow",-activebackground=>"yellow",-text=>"Mandar",-command=>\&enviar)->pack(-fill=>"both");
MainLoop;

sub enviar {
$imp = $todo->get;
print $imp;
}


Pero no recibo nada cuando quiero que se imprima el texto de la Text. ¿Alguien me podría decir con qué método puedo hacer lo que quiero?

Hola.

Quería preguntar si alguien me podía explicar el tema de consumo de memoria de Perl,
porque leí que cuando se declaran variables en Perl se hace un poco más lento. Entonces es verdad que cuando se optimiza se hacen los programas más rápidos.

Hola de nuevo.



Bueno, aquí muestro un diagrama de actividades, de lo que tengo intención de hacer. Tengo ya codificado desde IR DB hasta el final, sólo, que en realizar consulta tendré que ampliarlo a una multitabla, pero todo a su tiempo.

El problema que me veo ahora, es que el módulo (.pm) que uso para conectar con la BBDD requiere de una DB para conectarse. ¿Es posible enviar un parámetro por 'use' o ...

Hola,

Necesito parsear un montón de PDF (que contienen sólo texto) y me gustaría que me dijerais si algún módulo es mejor o más fácil de utilizar.

Los que he mirado hasta ahora parecen estar pensados para crear, no para leer PDF.

¿¿ Me recomendáis que mire en profundidad PDF::Reuse ??

Si conocéis algún tutorial o ejemplos de uso os estaré muy agradecido.

Un saludo y gracias por vuestra ayuda ...

Hola a todos, estoy realizando una tarea en la que creo que me he complicado. Mi programa debe simular al problema de los filósofos comensales. Tengo problemas en hacerlo funcionar correctamente.

Les dejo un link para descargar los ficheros. Les agradecería mucho su ayuda ayuda porque ya me perdí. Disculpen las molestias.

http://www.megaupload.com/?d=T4K26FXO

He creado cuatro ficheros. Este es el que llamé Principal.cgi
use Filosofo;
use Tenedor;
use Mesa;
use threads;
use Thread::Semaphore;
use ...

¡¡Hola a todos!!

Tengo un problema con un programa en Perl, soy nueva en esto. Estoy utilizando un código que no está hecho por mi. El problema es que donde declara las variables my(@input,$output), según entiendo, hay que definirlas y son archivos, me dice que input es un arreglo. Entonces mi pregunta es si me pueden explicar cómo debo definir el archivo para que el programa funcione.

Gracias

P.D. Solo agregué el programa principal porque ...

Hola, tuve un problema con el ordenador y al reinstalar no me funciona la librería DBI. La he intentado reinstalar varias veces pero no hay manera, siempre me acaba saliendo el mismo error. Espero que podáis ayudarme.

Simplemente con el código use DBI; ya salta el siguiente error:
DBI object version 1.609 does not match $DBI::VERSION 1.611 at D:/xampp/xampp/perl/lib/DynaLoader.pm
line 223.
BEGIN failed--compilation aborted at D:/xampp/xampp/perl/lib/DBI.pm line 265.
Compilation failed in require at D:\Users\All Users\Documents\scripts_perl\prueba.pl ...

Hola. Necesito hacer un ping a un host, pero debo verificar que el host sea válido... Este es el código que tengo y no puedo encontrar el error gracias...

sub monitor{
my $host = $_;
my $count = $_;
my $dirTxt = $_;
my $ping;
my $fecha;
my $verFqn = Net::DNS::Resolver->new;
print "<br>aqui estoy</br>\n";
if ($verFqn->query($host)){

$ping = qx(/sbin/ping -c$count $host);
$fecha = qx(date +_%Y-%m-%d_%H:%M.txt);

open(texto, ">$dirTxt/$host$fecha");
print texto $ping;
close(texto);

print "existe el host"; ...

¿Cómo puedo hacer un ping en Perl, que dé una salida como la que da shell, lo que quiero es gueardar esta salida en un archivo de texto?

¿Còmo se pueden ejecutar comandos shell en Perl?

ping -c5 www.google.com
PING www.l.google.com (72.14.253.104): 56 data bytes
64 bytes from 72.14.253.104: icmp_seq=0 ttl=53 time=114.009 ms
64 bytes from 72.14.253.104: icmp_seq=1 ttl=53 time=108.580 ms
64 bytes from 72.14.253.104: icmp_seq=2 ttl=53 time=112.932 ms
64 bytes from 72.14.253.104: icmp_seq=3 ttl=53 ...

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