Wie kann ich Perl sagen, dass er alle 20 Sekunden einen Code ausführen soll?

Question

Wie kann ich Perl mitteilen, dass alle 20 Sekunden ein Code ausgeführt wird?

Answer 1

while (1) { 
     sleep 20; 
     <your code here>; 
} 

Answer 2

for (;;) { 
    my $start = time; 
    # your code; 
    if ((my $remaining = 20 - (time - $start)) > 0) { 
     sleep $remaining; 
    } 
} 

Answer 3

Während die sleep Funktion für einige Anwendungen funktionieren wird, wenn Sie versuchen, „alle 20 Sekunden, für immer“ zu tun, dann sind Sie besser dran wie cron ein externes Programm.

Zusätzlich zu dem bereits erwähnten Problem der Drift, wenn Ihr sleep Skript (erwartet oder nicht) ausläuft, wird es bei der nächsten 20-Sekunden-Marke nicht erneut ausgeführt.

@blrfl ist richtig, und ich fühle mich schüchtern. Das heißt, es ist leicht genug zu überwinden.

* * * * * /path/to/script.pl 
* * * * * sleep 20 && /path/to/script.pl 
* * * * * sleep 40 && /path/to/script.pl 

könnten Sie auch einen Hybrid-Ansatz von einer begrenzten Zählung Schlafschleife im Skript setzen und mit dem Cron es alle X Minuten laufen, den Fall von Skript Tod abdeckt. Etwas häufiger als 20 Sekunden, würde ich definitiv diesen Ansatz nehmen.

Answer 4

eine SIGALRM Handler, Einstellungen und selbst ein Signal alle 20 Sekunden mit alarm (siehe perldoc -f alarm) senden:

$SIG{ALRM} = sub { 
    # set up the next signal for 20 seconds from now 
    alarm 20; 

    # do whatever needs to be done 
    # ... 
}; 

Diese Drift im Laufe der Zeit erfahren werden, da jedes Signal um bis zu einem zweiten verzögert werden kann, ; Wenn dies wichtig ist, richten Sie stattdessen einen Cron-Job ein. Darüber hinaus wird noch mehr Drift auftreten, wenn Ihr anderer Code mehr als 20 Sekunden zum Ausführen benötigt, da nur ein Timer gleichzeitig zählen kann. Sie könnten das umgehen, indem Sie Threads erzeugen, aber zu diesem Zeitpunkt wäre ich bereits zu einer einfachen Cron-Lösung zurückgekehrt.

Die Auswahl der richtigen Lösung hängt davon ab, welche Art von Aufgabe Sie regelmäßig ausführen müssen, die Sie nicht angegeben haben.

Answer 5

Siehe Schedule::ByClock:

#!/usr/bin/perl 

use strict; use warnings; 
use Schedule::ByClock; 

my $scheduler = Schedule::ByClock->new(0, 20, 40); 

while (defined(my $r = $scheduler->get_control_on_second)) { 
    printf "%02d\n", $r; 
} 

Alle Einsprüche andere gelten weiterhin darauf hingewiesen, aber ich denke, das Modul ordentlich ist.

Answer 6

Gehen Sie mit ..

while() { 
    sleep 20; 
    #Code here 
} 

Answer 7

#!/usr/bin/perl -w 

use strict; 


# heartbeat 
$SIG{ALRM} = sub { 
    # set up the next signal for 20 second from now 
    alarm(20); 
    printf "<heartbeat/>\n"; 
}; 

alarm(20); # start timer 
my $i = 0; 
while(1) { 
    $i++; 
    printf "loop" . $i . "\n"; 
    sleep 2; 
} 

alarm(0); 

printf "done!\n"; 

Ausgang:

loop1 
loop2 
loop3 
loop4 
loop5 
loop6 
loop7 
loop8 
loop9 
loop10 
<heartbeat/> 
loop11 
loop12 
loop13 
loop14 
loop15 
loop16 
loop17 
loop18 
loop19 
loop20 
<heartbeat/>