Perl Requires Chilkat v9.5.0.96+

Query NTP Server for Current Date/Time

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

use strict;
use warnings;
use Chilkat2;

# 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.
my $json = Chilkat2::JsonObject->new;
$json->UpdateString('ntp_server', 'pool.ntp.org');

# Query the NTP server for the current date/time.
my $dt = Chilkat2::DateTime->new;
my $success = $dt->SetFromNtpServer($json->Emit());
if (!$success) {
    print $dt->LastErrorText, "\n";
    exit;
}

# Show the date/time in various formats..
my $bLocalTime = 1;
print $dt->GetAsTimestamp($bLocalTime), "\n";
print $dt->GetAsRfc822($bLocalTime), "\n";
print $dt->GetAsUnixTime($bLocalTime), "\n";

# Sample output:

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