in reply to Json epoch datetime with perl

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.

Replies are listed 'Best First'.
Re^2: Json epoch datetime with perl
by gurpreetsingh13 (Scribe) on May 28, 2014 at 09:35 UTC
    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]
[reply]
[d/l]
      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]
        Thanks a lot man. This worked out perfectly. Surprised, I still couldn't find such a thing over google or in docs.
[reply]

In Section Seekers of Perl Wisdom