Perl

Get Current Date/Time as Timestamp (YYYY-MM-DDThh:mm:ssTZD)

Demonstrates how to get the current system date/time in YYYY-MM-DDThh:mm:ssTZD format. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $dt = Chilkat2::DateTime->new;

my $success = $dt->SetFromCurrentSystemTime();

# Get a UTC time.
my $bLocal = 0;
my $timestamp = $dt->GetAsTimestamp($bLocal);
print 'Current UTC Time: ', $timestamp, "\n";

# Get a local time.
$bLocal = 1;
$timestamp = $dt->GetAsTimestamp($bLocal);
print 'Current Local Time: ', $timestamp, "\n";

# Sample output:
#
# Current UTC Time: 2022-03-01T00:48:58Z
# Current Local Time: 2022-02-28T18:48:58-06:00