Vigilando Los Tiempos Ociosos

Un vigilante de tipo idle detecta cuando el sistema esta ocioso, esto es: cuando no hay eventos pendientes. Permite dos atributos adicionales min => $seconds y max => $seconds.

• Si el vigilante nunca detecta que el sistema este ocioso generará al menos un evento cada max segundos
• Cuando Event esta ocioso los eventos no serán generados con mayor frecuencia que min segundos
• Si no se especifican min ni max el vigilante adopta la conducta de una-vez por defecto (si repeat es falso). Si repeat es verdadero la conducta por defecto es repetir.
• Al poner repeat a 1 cambiamos dicha conducta. en tal caso: min = 0.01 y max toma el valor infinito.

pp2@nereida:~/src/perl/Event$ cat -n idlewatcher.pl
 1  #!/usr/bin/perl
 2  use warnings;
 3  use strict;
 4
 5  use IO::File;
 6  use Math::BigFloat qw(:constant);
 7  use constant VALUE => 0.001;
 8  use Event qw{loop unloop};
 9
10  STDIN->blocking(0);
11  STDERR->autoflush(1);
12  print "Press CTRL_D to finish, any other key to monitor the computation\n";
13
14  my $idle = Event->idle(
15    data => VALUE,
16    cb => sub {
17      $_[0]->w->data($_[0]->w->data+VALUE);
18    },
19    repeat => 1
20  );
21
22  my $io = Event->io(
23    fd => \*STDIN,
24    cb => sub {
25      warn "Partial result: ", $idle->data,".\n";
26      my $bytes = sysread(STDIN, $_, 4);
27      unloop if (defined($bytes) and ($bytes == 0));
28    }
29  );
30  loop;

Event proporciona un atributo especial para los objetos watcher con nombre data . Puede ser utilizado por el programador para guardar información en el objeto watcher.

El único argumento que se pasa al manejador o callback es el objeto evento que ha de ser manejado. El método w de dicho objeto permite obtener el vigilante.

Cuando se ejecuta el programa anterior se obtiene una salida similar a esta:

pp2@nereida:~/src/perl/Event$ idlewatcher.pl
Press CTRL_D to finish, any other key to monitor the computation
                            <-- retorno de carro 
Resultado parcial: 0.179.
                            <-- retorno de carro 
Resultado parcial: 0.249.
                            <-- retorno de carro 
Resultado parcial: 0.346.
                            <-- retorno de carro 
Resultado parcial: 0.447.
                            <-- retorno de carro 
Resultado parcial: 0.54.
^D <-- El usuario pulsa CTRL-D en un sistema Unix para terminar

Ejercicio 5.2.1   Ponga la opción min = 0 en el ejemplo anterior. ¿Que observa?