Perl

JSON UpdateNumber vs UpdateInt

Demonstrates UpdateNumber vs UpdateString. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $json = Chilkat2::JsonObject->new;

# If a number is too large for a 32-bit signed integer, then call UpdateNumber instead of UpdateInt.
# The large integer is passed to UpdateNumber as a string, but in the JSON it will be an integer.

# For example:
$json->UpdateNumber('largeNumber', '6884556842');

# If the integer is small enough for a 32-bit signed integer, then use UpdateInt:
$json->UpdateInt('reasonableInt', 123456);

$json->EmitCompact(0);
print $json->Emit(), "\n";

# The output:
# Notice the large number passed as a string does not have quotes in the JSON

# {
#   "largeNumber": 6884556842,
#   "reasonableInt": 123456
# }