준호씨의 블로그

yyyy-mm-dd hh:mm:ss Time::Piece 로 localtime 에 strftime 함수 추가해서 사용하기 use Time::Piece; print localtime->strftime('%F %T'); Time::Piece 모듈을 사용하게 되면 localtime 에 strftime 함수가 오버라이드 된다. Time::Piece 모듈은 Perl 5.10 부터 기본 모듈로 들어가 있다. 만약 없다면 cpan 으로 설치 해 주면 된다. cpan Time::Piece Time::Piece 관련 릴리즈노트 5.8 에서 Time::Piece (이전에는 Time::Object) 가 제거 됨 https://perldoc.perl.org/perl58delta.html 5.10 에 Time::Piece 가 ..

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..