Re: Int becomes String when I convert to json

That's why Cpanel::JSON::XS::Type exists.

#!/usr/bin/perl
use warnings;
use strict;

use Cpanel::JSON::XS;
use Cpanel::JSON::XS::Type;

my %out = (username    => "",
           userid      => "",
           status      => "",
           filename    => "",
           rawfilename => "",
           ticket      => "",
           returnvalue => 0,
           message     => "");

my $json = encode_json(\%out, {returnvalue => JSON_TYPE_INT,
                               username    => JSON_TYPE_STRING,
                               userid      => JSON_TYPE_STRING,
                               status      => JSON_TYPE_STRING,
                               filename    => JSON_TYPE_STRING,
                               rawfilename => JSON_TYPE_STRING,
                               ticket      => JSON_TYPE_STRING,
                               message     => JSON_TYPE_STRING});
print $json;
[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Comment on Re: Int becomes String when I convert to json Select or Download Code

Replies are listed 'Best First'.
Re^2: Int becomes String when I convert to json by bartender1382 (Beadle) on May 10, 2022 at 02:02 UTC
I wonder if it's that a single digit it normally returns an int, but for a double digit a string. I'll try Cpanel::JSON::XS::Type, but sort of irks me that this is a "thing." Thank you	[reply]
Re^3: Int becomes String when I convert to json by choroba (Cardinal) on May 10, 2022 at 07:23 UTC
> that a single digit it normally returns an int, but for a double digit a string. It's more complex than that. It depends on what you did with the value, on the version of Perl, what JSON module you use and its version, and sometimes even more. See my slides on the topic. `map{substr$_->[0],$_->[1]\|\|0,1}[\\|\|{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^ARGV,3]`	[reply] [d/l]
Re^4: Int becomes String when I convert to json by bartender1382 (Beadle) on May 10, 2022 at 16:23 UTC
You really do attack the problem. But since I didn't explicitly see it, and am a bad reader, I just want to be sure that implementing... `use Cpanel::JSON::XS::Type; sub makeJSON { (my $hashref) = @_; my $json = encode_json($hashref, {returnvalue => JSON_TYPE_INT, username => JSON_TYPE_STRING, userid => JSON_TYPE_STRING, status => JSON_TYPE_STRING, filename => JSON_TYPE_STRING, rawfilename => JSON_TYPE_STRING, ticket => JSON_TYPE_STRING, message => JSON_TYPE_STRING}); return $json; }` [download] ...covers my bases. Although am still a little offset that sometimes it turned it into a string, and sometimes not. But I'll get over it. Again, thanks for making slides to let people know.	[reply] [d/l]
Re^5: Int becomes String when I convert to json by choroba (Cardinal) on May 10, 2022 at 20:18 UTC
Re^6: Int becomes String when I convert to json by bartender1382 (Beadle) on May 10, 2022 at 23:52 UTC
Some notes below your chosen depth have not been shown here


Problems? Is your data what you think it is?
	PerlMonks