Perl Language
날짜와 시간
수색…
새 DateTime 만들기
PC에 DateTime
을 설치 한 다음 perl 스크립트에서 사용하십시오.
use DateTime;
새로운 현재 날짜 시간 만들기
$dt = DateTime->now( time_zone => 'Asia/Ho_Chi_Minh');
그런 다음 요소의 날짜 및 시간 값에 액세스 할 수 있습니다.
$year = $dt->year;
$month = $dt->month;
$day = $dt->day;
$hour = $dt->hour;
$minute = $dt->minute;
$second = $dt->second;
단 시간을 얻으려면 :
my $time = $dt->hms;
hh:mm:ss
형식의 #return 시간
날짜 만 얻으려면 :
my $date = $dt->ymd;
yyyy-mm-dd
형식의 #return 날짜
datetime의 요소로 작업하기
단일 요소 설정 :
$dt->set( year => 2016 );
많은 요소 설정 :
$dt->set( year => 2016, 'month' => 8);
날짜 시간에 기간 추가
$dt->add( hour => 1, month => 2)
날짜 시간 빼기 :
my $dt1 = DateTime->new(
year => 2016,
month => 8,
day => 20,
);
my $dt2 = DateTime->new(
year => 2016,
month => 8,
day => 24,
);
my $duration = $dt2->subtract_datetime($dt1);
print $duration->days
결과는 4 일입니다.
코드 실행 시간 계산
use Time::HiRes qw( time );
my $start = time();
#Code for which execution time is calculated
sleep(1.2);
my $end = time();
printf("Execution Time: %0.02f s\n", $end - $start);
이렇게하면 Code 실행 시간이 초 단위로 인쇄됩니다.
Modified text is an extract of the original Stack Overflow Documentation
아래 라이선스 CC BY-SA 3.0
와 제휴하지 않음 Stack Overflow