준호씨의 블로그

yyyymmdd Date.prototype.yyyymmdd = function() { var mm = this.getMonth() + 1; var dd = this.getDate(); return [this.getFullYear(), (mm>9 ? '' : '0') + mm, (dd>9 ? '' : '0') + dd ].join(''); }; var date = new Date(); date.yyyymmdd(); output "20180703" hhmmss Date.prototype.hhmmss = function() { var hh = this.getHours(); var mm = this.getMinutes(); var ss = this.getSeconds(); return [(hh>9 ? '' : ..

n일 전 날짜 구하기 포스팅 (http://junho85.pe.kr/544) 을 했었는데 aero 님이 perl 5.8 부터 Time::Piece 가 core 모듈로 들어 갔다고 하여 Time::Piece 버전을 만들어 보기로 하였다. 사용하는 모듈이 좀 바꼈고 get_date_ago 함수 내용이 좀 바꼈다. 다른 부분은 동일하다. get_date_ago(ago) 함수는 ago 일 전의 날짜를 yyyy-mm-dd 포멧의 문자열로 반환하는 함수이다. #!/usr/bin/env perl use strict; use warnings; use Time::Piece; use Time::Seconds; sub get_date_ago { my $ago = shift; my $time = Time::Piece->new..

time() 함수를 이용하면 epoch time 을 얻을 수 있다. 초 단위 이기 때문에 하루치의 초 (24 * 60 * 60) 만큼을 빼면 어제의 시간을 구할 수 있다. 아래의 get_date_ago(ago) 함수는 ago 일 전의 날짜를 yyyy-mm-dd 포멧의 문자열로 반환하는 함수이다. #!/usr/bin/env perl use strict; use warnings; use POSIX qw/strftime/; sub get_date_ago { my $ago = shift; my $epoc = time(); $epoc = $epoc - (24 * 60 * 60) * $ago; my $datestring = strftime "%F", localtime($epoc); return $datestring..

고향 다녀 오느라 밀린 인그레스 일기를 써 볼까 한다. 연휴이고 해서 오랜만에 고향에 다녀 오려고 서울역으로 갔다. 적군이 장악하고 있는 상황. 당시 캡쳐를 해 두지는 않아서 위 캡쳐는 2014-05-05 기준 기차를 타러 가기 전까지 시간이 조금 남아서 포탈을 몇 군데 돌아 보았다. 아래 포탈은 Yonsei Circus Spire 대구로 떠날 때 까지만 해도 레벨7이었던 거 같았는데 서울로 돌아 왔을 때는 레벨8이 되어 있었다. 이거 정말 Circus Spire 일까? 아니군 ㅜ.ㅜ 홍익대 조소과 이형우 교수의 작품 시간-1993 300x130cm 이구나. 연세의 이응(ㅇ)과 시옷(ㅅ)을 의미하는 원형과 삼각형을 큰 틀로 삼아 원뿔 형태를 잡았다고 한다. 이런 의미가 있었다. 출처: http://med..