Foro - Perl en Español

[primitivo]

Hola

Estoy necesitando ejecutar 'Threads' hilos para ejecutar procesos por separado, y hacer más fluido mi script, sé que en Java, por ejemplo, se pueden ejecutar rutinas en "background" como Servicios en Android, he leído que en Perl, también existe este método, pero no me aclaro aún.

Lo que me gustaría, sería un breve ejemplo de cómo se utiliza este módulo.

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

1. use threads;
2.  
3. my $primitivo = Thread->new(...);
4.  

Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4

[Aceitunas]

http://search.cpan.org/~jdhedden/thread ... threads.pm

Ahí tienes la documentación del módulo, y aquí te dejo un ejemplo de cómo se usa:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

1. #!/usr/bin/perl
2.  
3. use threads;
4.  
5. my $texto = "Hola";
6.  
7. my $idhilo = threads->new(\&hilo,$texto);
8.  
9. $idhilo->join();
10.  
11. exit(0);
12.  
13. sub hilo
14. {
15.     print $_[0] . "\n";
16. }

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

[explorer]

¿Hacer más fluido tu script? ¿A qué te refieres?

[primitivo]

¿Hacer más fluido tu script? ¿A qué te refieres?

Gracias por tú respuesta, explorer.

Lo que deseo es manejar un hilo para realizar consultas en una base de datos que realice en formato:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

1. ID:IP:MODOS:FECHA:PAIS
2.  

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

de manera que éstas se ejecuten cada cierto tiempo, y no parar todo el programa con

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

1. sleep(50); # Por dar un ejemplo, cada 50 segundos consultar datos de un registro.

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Lo que realmente me interesa, es consultar cada X tiempo un nuevo registro.

[explorer]

Bueno, en ese caso se puede hacer de muchas maneras: Coro, Any::Event, lanzando un proceso hijo con un fork()... Incluso añadido al sistema operativo con un crontab o una Tarea Programada.

[primitivo]

¿Puedes darme un ejemplo, explorer, para los casos que me dices?