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 실행 시간이 초 단위로 인쇄됩니다.