프로그래밍/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";

}




저작자표시 비영리 변경금지 (새창열림)