如何将 json 解码的布尔值评估为“真”

Question

参考In Perl, checking a json decoded boolean value，

我有一个验证子，我需要像这样检查，

my $boolean = 'true';
my $json_string = '{"boolean_field":true}'; 
my $decoded_json = from_json $json_string;

&verify($boolean);

$boolean = 'false';
$json_string = '{"boolean_field":false}';
$decoded_json = from_json $json_string;

&verify($boolean);

sub verify {
  my $boolean = shift;
  if( $decoded_json->{'boolean_field'} eq $boolean ){
     # both are equal
  }

此 if 条件失败，因为 $decoded_json->{'boolean_field'} 返回 1 或 0。

如何将$decoded_json->{'boolean_field'} 评估为字符串“真”或“假”？

我现在的工作是

my $readBit = ($boolean =~ /false/ ) ? 0 : 1 ;
if( $decoded_json->{'boolean_field'} eq $readBit){
   # both are equal
}

Answer 1

如果你有一个布尔值，那么你不应该使用字符串比较来检查它的值。你应该只问它是真是假。您的代码应该看起来更像这样：

#!/usr/bin/perl

use strict;
use warnings;

use feature 'say';

use JSON;

my $json_string = '{"boolean_field":true}';
my $decoded_json = from_json $json_string;

boolean_check($decoded_json->{boolean_field});

$json_string = '{"boolean_field":false}';
$decoded_json = from_json $json_string;

boolean_check($decoded_json->{boolean_field});

sub boolean_check {
  my $value = shift;

  if ($value) {
    say 'Value is true';
  } else {
    say 'Value is false';
  }
}

如果您使用 Data::Dumper 查看$decoded_json，您会看到boolean_field 将包含一个对象，该对象将根据需要返回真值或假值。

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

Answer 2

我们不需要使用正则表达式来判断它的真假。
0, undef, false 是假值，其余都是真值。你能试试这个解决方案吗？

use strict;
use warnings;
use JSON;

my $json_string = '{"boolean_field":0}';
# I tried with many possible combinations of boolean_field
# 0, false => returned false
# 1, 50 (Any value), true => returned true

my $decoded_json = from_json $json_string;
print 'true' if exists $decoded_json->{'boolean_field'};
# exists will check whether key boolean_field exists. It won't check for values

编辑：用户只需要检查密钥，在条件中添加exists。