Perl Language
दिनांक और समय

नया DateTime बनाएं

अपने पीसी पर DateTime इंस्टॉल करें और फिर इसे पर्ल स्क्रिप्ट में उपयोग करें:

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 साथ # ग्रेट समय hh:mm:ss

केवल तारीख पाने के लिए:

my $date = $dt->ymd; #yyy yyyy-mm-dd प्रारूप के साथ # ग्रेट की तारीख

डेटाइम के तत्वों के साथ काम करना

एकल तत्व सेट करें:

$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);

यह सेकंड में कोड का निष्पादन समय प्रिंट करेगा