내블로그
Timer 본문
#!/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"; } |
'프로그래밍 > Perl' 카테고리의 다른 글
| 파일 수정시간 (0) | 2019.10.08 |
|---|---|
| perl MCPAN (0) | 2012.02.28 |