Perl 펄, 타이머 Timer 만들기 소스, 경과 시간 스톱와치

#!/usr/bin/perl
use strict; use warnings;


  codeTimer("on");
  print "타이머 켰습니다. 아무키나 누를 때까지 경과 시간을 측정합니다.\n";


  <STDIN>; # 사용자가 아무키나 누를 때까지 대기


  # 타이머 끈 후, 경과 시간 출력
  print "경과 시간: " . codeTimer("off") . "\n";




#### 이하는 타이머에 필요한 함수들

{ # $old_time 을 static local variable 로 만들어 주기 위한 bare block
   my $old_time;
   sub codeTimer {
      if ($_[0] eq "on")  { $old_time = time(); } # 타이머 켜기
      if ($_[0] eq "off") { secToHHMMSS(time() - $old_time); } # 타이머 끄고 시분초 저장
   }
}


sub secToHHMMSS { # 정수로 된 초(seconds)를 받아들여 "06:17:20" 등의 형식의 문자열로 시분초를 리턴
   my ($hour, $min, $sec);

   $sec  = $_[0] % 60;
   $min  = $_[0] / 60 % 60;
   $hour = $_[0] / 3600;

   sprintf "%02d:%02d:%02d", $hour, $min, $sec;
}