Perl 펄] 스와치 시계의 인터넷 타임(Swatch Internet Time) 구하기
Monday, May 21, 2007
스폰서 링크스와치 인터넷 타임(Swatch Internet Time) 이라는 시간 체계가 있는데, 펄에서 현재의 인터넷 시간을 구하는 함수입니다.
날짜 부분 처리는 없고, 시간만 간단하게 나옵니다. 그냥 재미로 만들어 본 것입니다.
파일명: swatch.pl
자세한 내용은 여기: ▶▶ PHP, 스와치 시계의 인터넷 타임(Swatch Internet Time) 구하기
☞ Perl (펄)
날짜 부분 처리는 없고, 시간만 간단하게 나옵니다. 그냥 재미로 만들어 본 것입니다.
파일명: swatch.pl
#!/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
);
}
use strict; use warnings;
print getSwatchTime(), "\n";
# 한국시간으로 "2007-05-21 12:38 오후"는
# 스와치 인터넷 시간으로 "@193" 입니다.
sub getSwatchTime {
return sprintf("@%d",
((time + 3600) % 86400) / 86.4
);
}
자세한 내용은 여기: ▶▶ PHP, 스와치 시계의 인터넷 타임(Swatch Internet Time) 구하기
☞ Perl (펄)
posted by mwultong @ 12:43 PM
Post a Comment
<< Home