[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';

ロースレスに賭ける.gmstampは現在の時間を返し、parsegmは現在の時間を返します.
印刷物で印刷したように交換します.
文字列に変換してAESのsaltとして使います.

my $salt = parsegm gmstamp . "";