[perl] Time::Stamp

Time::Stamp 모듈은 암호화할때 사용될수 있다.

사실 localtime 이란 함수가있어 현재시각 알아올때는 굳이 필요가 없다.

현재 시간 알아오는 코드는 아래와 같다.

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


my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime;


printf("현재 년: %04d\n", $year + 1900);
printf("현재 월: %02d\n", $mon + 1);
printf("현재 일: %02d\n", $mday);
print "\n"; # 줄바꿈

printf("현재 시: %02d\n", $hour);
printf("현재 분: %02d\n", $min);
printf("현재 초: %02d\n", $sec);

print "\n"; # 줄바꿈

printf("오늘 요일: %d\n", $wday);       # 일요일 = 0
printf("올해 몇번째 날: %d\n", $yday);  # 1월1일 = 0
printf("서머타임 여부: %d\n", $isdst);  # 서머타임 없음 = 0

Time::Stamp 사용법은

use Time::Stamp 'gmstamp', 'parsegm';

로 use를 건다. gmstamp는 현재시각을 반환하고, parsegm은 현재시각을 localtime을 바로

print로 찍은것 마냥 바꿔준다.

이것을 문자열로 바꿔 나는 AES의 salt로 사용했다.

my $salt = parsegm gmstamp . "";

kimbom

Read more posts by this author.

Seoul