프로그래밍/Perl
Timer
잡동사니보관
2017. 4. 12. 13:49
#!/usr/bin/perl use strict; use warnings; use Time::HiRes qw(ITIMER_REAL setitimer); $SIG{ALRM} = sub {}; setitimer(ITIMER_REAL, 0.1, 3); while (1) { sleep ; print time()." : Main Loop\n"; } |