(Perl) Query NTP Server for Current Date/Time

Demonstrates how to query an NTP server to get the current date/time.

Note: This feature was added in Chilkat v9.5.0.96.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

# Specify the NTP server domain.
# Information is passed in a JSON object to allow for any unanticipated future optional information that might need to be provided.
$json = chilkat::CkJsonObject->new();
$json->UpdateString("ntp_server","pool.ntp.org");

# Query the NTP server for the current date/time.
$dt = chilkat::CkDateTime->new();
$success = $dt->SetFromNtpServer($json->emit());
if ($success == 0) {
    print $dt->lastErrorText() . "\r\n";
    exit;
}

# Show the date/time in various formats..
$bLocalTime = 1;
print $dt->getAsTimestamp($bLocalTime) . "\r\n";
print $dt->getAsRfc822($bLocalTime) . "\r\n";
print $dt->GetAsUnixTime($bLocalTime) . "\r\n";

# Sample output:

# 2023-10-31T09:43:27-05:00
# Tue, 31 Oct 2023 09:43:27 -0500
# 1698745407