2016. 3. 6. 01:08
2013/06/21 21:39 이동자료
#!/usr/bin/perl
use Time::Local;
use POSIX qw/strftime/;
##today
$today_date=strftime "%Y%m%d", localtime;
%Y = 2013 (년)
%m = 06 (월)
%d = 21 (일)
%M = 30 (분)
---------------------------------------------------
추가 :
Time::Local 모듈 설치 하지 않아도 리눅스 명령어에서 충분히 가능
'Language > Perl' 카테고리의 다른 글
| [perl] 파일 비교후 분류. (0) | 2016.03.06 |
|---|---|
| [Perl] posix qw/strftime/ 이전 시간 구하기 (0) | 2016.03.06 |
| [Perl] 정규표현식 행별 일치 담는 변수 (0) | 2016.03.06 |
| [Perl] perl file download script use LWP (0) | 2016.03.06 |
| [Perl] How to get week number '주 구하는 함수' (0) | 2016.03.06 |