Foro - Perl en Español

Publicado: **2012-04-24 22:41 @987**

Hola a todos los monjes.

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:

Sintáxis: [ Descargar ] [ Ocultar ]

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

Publicado: **2012-04-25 11:04 @503**

A ver si con este ejemplo te ayuda a entender el proceso de fork()

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use v5.14;
 
sub suma {
    for (1 .. 10) {
        say;
        sleep rand 5;
    }
}
 
sub resta {
    for (reverse -10 .. -1) {
        say;
        sleep rand 5;
    }
}
 
my $es_el_hijo = fork();
 
die "ERROR: No pude reproducirme: $!\n"
    if not defined $es_el_hijo;
 
if ($es_el_hijo) {                      # Si sabemos quién es nuestro hijo, es que somos el padre
    say "Nuestro hijo tiene el número $es_el_hijo";
    
    suma();                             # Trabajo del proceso padre
 
    while ('Muerte y destrucción') {    # Esperamos la muerte de nuestros hijos
        say "...";
 
        my $hijo_muerto = wait;
 
        last if $hijo_muerto == -1;     # No hay que esperar por más muertes
 
        my $estado = $? >> 8;           # Consultar system() para ver el significado de $?
 
        say "Murió el hijo [$hijo_muerto] con estado [$estado]";
    }
}
else {                                  # Si no somos el padre, somos el hijo
    resta();                            # Trabajo del proceso hijo
 
    exit 2;                             # salimos, informando del estado
}
__END__
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Hay módulos que facilitan la generación de procesos, como Parallel::ForkManager (busca en CPAN por 'fork').

Naturalmente, también depende del sistema operativo en que te encuentres. Si es un sistema que no implementa la función fork(2), entonces deberías leer el documento perlfork.

Publicado: **2012-04-25 12:23 @558**

Sí, ejemplos similares encontré por la red, pero los procesos recurrentes no se lanzan en simultáneo.

¿Perl permite ejecutar dos procesos (subprocesos, o sea, escritos dentro del mismo script) en simultáneo?

Por ahí no me expliqué bien. La idea es ejecutar estos dos subprocesos al mismo tiempo y que no terminen nunca.

PD:
Estoy en un entorno Windows.

Me fijé con "threads", pero tampoco pude.

Publicado: **2012-04-25 14:54 @663**

¿No se lanzan en paralelo? En mi ordenador sí.

¡¡¡Aaahh!!! que -aún- estás en Windows... eso lo explica todo

El fork() en Windows es algo especial. Depende mucho de la versión Perl que estés usando. En las últimas versiones, fork() en esos sistemas, lo que hace es clonar el intérprete perl, su estado, en un hilo distinto, y lo hace continuar después del punto en que fue llamado el fork() en el proceso padre.

Hay distribuciones especializadas en la gestión de tareas concurrentes (o pseudo-concurrentes), como por ejemplo Coro, pero antes debes consultar la matriz de compatibilidad.

Si nos ceñimos a lo que pides (dos trozos de código en el mismo programa), en CPAN hay un montón, como por ejemplo, subs::parallel, Parallel::Loops, Parallel::Simple, Parallel::Queue, Parallel::Runner...

Si nos das una pista de lo que quieres hacer en esas tareas, puede que encontremos una distribución específica, como por ejemplo Parallel::Downloader, Parallel::Simple::Dynamic, Parallel::Iterator...

Publicado: **2012-04-25 19:22 @849**

¡ja,ja! No, explorer, yo soy linuxero viejo. Pero muchos clientes tienen tecnología Windows, y como es tan cerrada, tengo que hacer mis propios servicios (con Perl).

Lo que tengo que hacer es eso mismo. Dos bucles simultáneos... La verdad, me vengo rompiendo la cabeza desde Enero, no es fácil, parece.

Publicado: **2012-04-25 19:40 @861**

Que se ejecuten de forma simultánea, en Windows, yo lo veo muy difícil, sin que exista algún tipo de control de sincronización, salvo que nos digas que los procesos no necesitan estar sincronizados en lo que hacen, y basta conque arranquen a la vez.

Coro es una perfecta solución si quieres tener los procesos sincronizados. Lo que ya no sé es cómo se comportará en Windows.

Publicado: **2013-07-28 02:13 @134**

Un posible intento sería también con IPC::Run.

Foro - Perl en Español

Ejecutar procesos simultaneos

Ejecutar procesos simultaneos

Re: Ejecutar procesos simultaneos

Re: Ejecutar procesos simultaneos

Re: Ejecutar procesos simultaneos

Re: Ejecutar procesos simultaneos

Re: Ejecutar procesos simultaneos

Re: Ejecutar procesos simultaneos