Hace ya un año y medio que por primera vez vi lo que era Perl (y agradezco a Larry Wall).
Tanto fue que me gustó, que trato de usarlo para todo, sí... todo.
En esta ocasión me encuentro muy trabado con lo siguiente:
Necesito un programa que ejecute dos procesos al mismo tiempo.
Googlee y googlee y no doy en la tecla.
Entiendo que lanzar varios procesos recursivos (que no tienen un final) desde un script en Perl es lo que se llama fork().
Lamentablemente no logro entender los ejemplos.
En mi caso es lo siguiente:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use warnings;
- suma();
- resta();
- sub suma
- {
- $i=1;
- while ($i>=0)
- {
- print "$i\n";
- $i++;
- }
- }
- sub resta
- {
- $i=0;
- while ($i<=0)
- {
- print "$i\n";
- $i=$i-1;
- }
- }
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
En el ejemplo anterior tengo dos funciones (subprocesos) recursivas, es decir que no van a terminar, que necesito se lancen independientemente una de otra simultáneamente.
¿¿¿Alguien me puede orientar???
Desde ya, mil gracias.
PD: El script anterior lo hice para el ejemplo, en la realidad las dos funciones interpretan los logs de servidores. Las hice así para acotar, son muchísimas líneas de código, sino.
¡¡¡Mil graciasss!!!
