how to decode JSON::PP::Boolean

[gabrielsousa]

i have this string
$VAR1 = \bless( do{\(my $o = 0)}, 'JSON::PP::Boolean' );

  
use JSON;
$decodejattch = $decoded2->{HasAttachments};
$decodejattch = JSON::decode_json $decodejattch;

i have this error:
sh: -c: line 0: syntax error near unexpected token `('
sh: -c: line 0: `echo "malformed JSON string, neither tag, array, object, number, string or atom, at character offset 0 (before "(end of string)") at ./test-mail365.pl line 102.'
malformed JSON string, neither tag, array, object, number, string or atom, at character offset 0 (before "(end of string)") at ./test-mail365.pl line 102.

[tangent]

The value you are retrieving from $decoded2->{HasAttachments} needs to be treated as a true or false value in your code - it does not need further decoding:

use JSON;
use Data::Dumper;

my $json = encode_json( {HasAttachments => \0} ); # \0 is JSON false
my $decoded = decode_json( $json );
print Dumper( $decoded->{HasAttachments} );

if ( $decoded->{HasAttachments} ) {
    print "HasAttachments is true";
}
else {
    print "HasAttachments is false";
}

# Prints:

$VAR1 = bless( do{\(my $o = 0)}, 'JSON::PP::Boolean' );
HasAttachments is false

[Corion]

If you see the error sh -c ..., then that means that your file is being run by the shell and not by Perl.

The code you show does not have 102 lines and does not look as if it is run by your shell at all. Please show a short, self-contained program (and the JSON input) that reproduces the output.

[Eily]

Corion++. Also your string is perl code, JSON can't do anything with it.