Perl 펄] 스와치 시계의 인터넷 타임(Swatch Internet Time) 구하기

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


  print getSwatchTime(), "\n";
  # 한국시간으로 "2007-05-21 12:38 오후"는
  # 스와치 인터넷 시간으로 "@193" 입니다.




sub getSwatchTime {
  return sprintf("@%d",
                      ((time + 3600) % 86400) / 86.4
                 );
}