(Perl) JSON Date Parsing

Demonstrates how to parse date/time strings from JSON.

Note: This example uses the DtOf and DateOf methods introduced in Chilkat v9.5.0.73

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

use chilkat();



$json = chilkat::CkJsonObject->new();
$json->put_EmitCompact(0);

# First, let's create JSON containing some date/time strings.
$json->UpdateString("test.timestamp","2018-01-30T20:35:00Z");
$json->UpdateString("test.rfc822","Tue, 24 Apr 2018 08:47:03 -0500");
$json->UpdateString("test.dateStrings[0]","2018-01-30T20:35:00Z");
$json->UpdateString("test.dateStrings[1]","Tue, 24 Apr 2018 08:47:03 -0500");
$json->UpdateNumber("test.StartLoggingTime","1446834998.695");
$json->UpdateNumber("test.Expiration","1442877512.0");
$json->UpdateInt("test.StartTime",1518867432);

print $json->emit() . "\r\n";

# We've built the following JSON:

# {
#   "test": {
#     "timestamp": "2018-01-30T20:35:00Z",
#     "rfc822": "Tue, 24 Apr 2018 08:47:03 -0500",
#     "dateStrings": [
#       "2018-01-30T20:35:00Z",
#       "Tue, 24 Apr 2018 08:47:03 -0500"
#     ],
#     "StartLoggingTime": 1446834998.695,
#     "Expiration": 1442877512.0,
#     "StartTime": 1518867432
#   }
# }

# Use the DateOf and DtOf methods to load Chilkat date/time objects with the date/time values.
# The CkDateTime object is primarily for loading a date/time from numerous formats, and then getting
# the date/time in various formats.  Thus, it's primarly for date/time format conversion.
# The DtObj object holds a date/time where the individual components (day, month, year, hour, minutes, etc.) are 
# immediately accessible as integers.
$dateTime = chilkat::CkDateTime->new();
$dt = chilkat::CkDtObj->new();
$getAsLocal = 0;

# Load the date/time at test.timestamp into the dateTime object.
$success = $json->DateOf("test.timestamp",$dateTime);
print $dateTime->getAsTimestamp($getAsLocal) . "\r\n";
print $dateTime->GetAsUnixTime(0) . "\r\n";
print $dateTime->getAsRfc822($getAsLocal) . "\r\n";

$success = $json->DateOf("test.rfc822",$dateTime);
print $dateTime->getAsTimestamp($getAsLocal) . "\r\n";

$json->put_I(0);
$success = $json->DateOf("test.dateStrings[i]",$dateTime);
print $dateTime->getAsTimestamp($getAsLocal) . "\r\n";

$json->put_I(1);
$success = $json->DateOf("test.dateStrings[i]",$dateTime);
print $dateTime->getAsTimestamp($getAsLocal) . "\r\n";

$success = $json->DateOf("test.StartLoggingTime",$dateTime);
print $dateTime->getAsTimestamp($getAsLocal) . "\r\n";

$success = $json->DateOf("test.Expiration",$dateTime);
print $dateTime->getAsTimestamp($getAsLocal) . "\r\n";

$success = $json->DateOf("test.StartTime",$dateTime);
print $dateTime->getAsTimestamp($getAsLocal) . "\r\n";

# Output so far:

# 	2018-01-30T20:35:00Z
# 	1517344500
# 	Tue, 30 Jan 2018 20:35:00 GMT
# 	2018-04-24T13:47:03Z
# 	2018-01-30T20:35:00Z
# 	2018-04-24T13:47:03Z
# 	2015-11-07T00:36:38Z
# 	2015-09-22T04:18:32Z
# 	2018-02-17T17:37:12Z

# Now load the date/time strings into the dt object:
$success = $json->DtOf("test.timestamp",$getAsLocal,$dt);
print "month=" . $dt->get_Month() . ", day=" . $dt->get_Day() . ", year=" . $dt->get_Year() . ", hour=" . $dt->get_Hour()
     . ", minute=" . $dt->get_Minute() . "\r\n";

$success = $json->DtOf("test.rfc822",$getAsLocal,$dt);
print "month=" . $dt->get_Month() . ", day=" . $dt->get_Day() . ", year=" . $dt->get_Year() . ", hour=" . $dt->get_Hour()
     . ", minute=" . $dt->get_Minute() . "\r\n";

$json->put_I(0);
$success = $json->DtOf("test.dateStrings[i]",$getAsLocal,$dt);
print "month=" . $dt->get_Month() . ", day=" . $dt->get_Day() . ", year=" . $dt->get_Year() . ", hour=" . $dt->get_Hour()
     . ", minute=" . $dt->get_Minute() . "\r\n";

$json->put_I(1);
$success = $json->DtOf("test.dateStrings[i]",$getAsLocal,$dt);
print "month=" . $dt->get_Month() . ", day=" . $dt->get_Day() . ", year=" . $dt->get_Year() . ", hour=" . $dt->get_Hour()
     . ", minute=" . $dt->get_Minute() . "\r\n";

$success = $json->DtOf("test.StartLoggingTime",$getAsLocal,$dt);
print "month=" . $dt->get_Month() . ", day=" . $dt->get_Day() . ", year=" . $dt->get_Year() . ", hour=" . $dt->get_Hour()
     . ", minute=" . $dt->get_Minute() . "\r\n";

$success = $json->DtOf("test.Expiration",$getAsLocal,$dt);
print "month=" . $dt->get_Month() . ", day=" . $dt->get_Day() . ", year=" . $dt->get_Year() . ", hour=" . $dt->get_Hour()
     . ", minute=" . $dt->get_Minute() . "\r\n";

$success = $json->DtOf("test.StartTime",$getAsLocal,$dt);
print "month=" . $dt->get_Month() . ", day=" . $dt->get_Day() . ", year=" . $dt->get_Year() . ", hour=" . $dt->get_Hour()
     . ", minute=" . $dt->get_Minute() . "\r\n";

# Output:

# month=1, day=30, year=2018, hour=20, minute=35
# month=4, day=24, year=2018, hour=13, minute=47
# month=1, day=30, year=2018, hour=20, minute=35
# month=4, day=24, year=2018, hour=13, minute=47
# month=11, day=6, year=2015, hour=18, minute=36
# month=9, day=21, year=2015, hour=23, minute=18
# month=2, day=17, year=2018, hour=11, minute=37