Perl에서 로컬 시간과 UNIX 스탬프 간의 상호 변환 방법을 설명합니다.
Perl에서 로컬 시간을 UNIX 스탬프로 변환
날짜 문자열에서 UNIX 시간을 얻기 위해 Date:::Parse 모듈의str2time() 함수를 사용할 수 있습니다.이 함수는 다음과 같은 여러 형식을 처리할 수 있습니다.
Sat Mar 14 10:14:05 EDT 2015
3/14/2015 10:14:05 -0400
14/Mar/15 10:14:05
14 Mar 15 10:14:05
use Date::Parse;
my $local_time = "Sat Mar 14 10:14:05 EDT 2015";
# 1426342445 will be stored in $unix_time
my $unix_time = str2time($local_time);
날짜: Parse 모듈은 다양한 언어(영어, 프랑스어, 독일어, 이탈리아어)와 시간대를 지원합니다.예:
use Date::Parse;
use Date::Language;
my $lang = Date::Language->new('French');
my $unix_time = $lang->str2time("12:14:05, Ago 16, 2014 (CEST)");
Perl에서 UNIX 시간을 읽기 쉬운 날짜와 시간으로 스탬프유닉스 타임 스탬프를 읽기 쉬운 형식으로 변환하려면 localtime () 함수를 사용하십시오. 이 함수는 유닉스 타임 스탬프를 9 요소 목록으로 변환할 수 있습니다.그리고 되돌려주는list를 사용하여 읽을 수 있는 형식을 만들 수 있습니다.여기에 코드 세션이 있습니다.
# $sec, $min, $hour: , ,
# $mday: (0-31)
# $mon: , 0 ( ) 11 ( )
# $year: , 1900 (2015 2015-1900=115)
# $wday: , 0 ( ) 6 ( )
# $yday: , 0 364 ( 365 )
# $isdst:
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($unix_timestamp);
# necessary conversion of $mon and $year
$mon += 1;
$year += 1900;
print "Current time: $year-$mon-$mday $hour:$min:$sec
";
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
cowsay로 현장 고양이에 요시! 되고 싶은 건업무 중에도 현장 고양이에 요시! 하고 싶었기 때문에, cowsay 를 사용해 어떻게든 해 보았습니다. cowsay는 말할 것도없이 오징어 한 서버에 적합한 매혹적인 도구입니다. 살벌한 우리 마음에 일복의 청량을 줍...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.