Re^2: Json epoch datetime with perl

I want to pass this JSON object to a Web Service and the example structure given for the object is showing the similar kind of backslashes. Here is the exact copy paste of that field. Date is in epoch milliseconds.

"RoundStartTime":"\/Date(1400569278222)\/",
[download]

Comment on Re^2: Json epoch datetime with perl Download Code

Replies are listed 'Best First'.
Re^3: Json epoch datetime with perl by poj (Abbot) on May 28, 2014 at 10:07 UTC
Try `#!perl; use strict; use JSON; my $json = new JSON->escape_slash(); my $roundParams = { 'AllowParticipantsToSeeEachOther' => JSON::PP::true, 'DurationInMinutes' => 10, 'MaxGamePegValue' => 5, 'MaxNumberOfCrackAttemptsPerCode' => 18, 'MaxNumberOfCrackAttemptsPerTeam' => 0, 'NumberOfDefaultHostParticipants' => 1, 'NumberOfPegsInRound' => 4, 'RoundStartTime' => "/Date(".time.")/", 'TimeBetweenRoundATimeBetweenRoundAttemptsInSeconds' => 10 }; print $json->encode($roundParams);` [download] poj	[reply] [d/l]
Re^4: Json epoch datetime with perl by gurpreetsingh13 (Scribe) on May 28, 2014 at 10:53 UTC
Thanks a lot man. This worked out perfectly. Surprised, I still couldn't find such a thing over google or in docs.	[reply]
Re^5: Json epoch datetime with perl by Anonymous Monk on May 28, 2014 at 11:26 UTC
Thanks a lot man. This worked out perfectly. Surprised, I still couldn't find such a thing over google or in docs. FWIW https://metacpan.org/pod/JSON#escape_slash OTOH, most every JSON serializer avoid escaping forward slash because they all know to read forward slash :)	[reply]