home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-osu / alarm / ttimer < prev   
Encoding:
Text File  |  1990-10-31  |  624 b   |  39 lines
  1. #!/usr/bin/perl
  2.  
  3. require 'itimers.pl';
  4. require 'ctime.pl';
  5.  
  6. $| = 1;
  7.  
  8. $SIG{'ALRM'} = 'bingo';
  9.  
  10. sub bingo {
  11.     print "ALARM  @ ", &ctime(time);
  12.     $hit++;
  13. } 
  14.  
  15. print "alarm 7 @ ", &ctime(time);
  16.  
  17. do alarm(7);
  18.  
  19. print "sleeping 2 seconds... ";
  20.  
  21. sleep 2;
  22.  
  23. printf "alarm had %g secs left\n", &alarm(0);
  24.  
  25. print "resetting to 1.25 seconds\n";
  26.  
  27. &alarm(1.25);
  28.  
  29. do { &timeleft; } until $hit; 
  30.  
  31. print "escaped at \n\t", &ctime(time);
  32.  
  33. sub timeleft {
  34.     local($timeleft);
  35.     &getitimer(&ITIMER_REAL, $timeleft) || die "can't getitimer: $!";
  36.     ($x, $y, $s, $u) = &itimer($timeleft);
  37.     printf("timeleft is %g\n", $s + ($u / 1e6));
  38. }
  39.