Re: Json epoch datetime with perl

[hdb]

The immediate question I have is what you would need the backslash for. It sounds a bit like an XY Problem to me. You said you really wanted a date field but that still does not tell me what the backslash is good for.

[gurpreetsingh13]

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)\/",

[poj]

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);

poj

[gurpreetsingh13]

Thanks a lot man. This worked out perfectly. Surprised, I still couldn't find such a thing over google or in docs.