如何在不使用正则表达式或拆分的情况下将字符串转换为 perl 中的哈希

Question

我有一个我无法控制的函数，它返回一个实际上是哈希的字符串。它看起来像下面这样：

{"offset":0,"limit":500,"count":0,"virtual_machines":[]}

我需要检查计数是否大于 0。因为输出是字符串而不是哈希，所以我正在尝试拆分字符串并从中获取输出。

相同的sn-p如下：

my $output = '{"offset":0,"limit":500,"count":0,"virtual_machines":[]}';
$output =~ s/ +/ /g;
my @words = split /[:,"\s\/]+/, $output;
print Dumper(@words);

这个的输出是：

$VAR1 = '{';
$VAR2 = 'offset';
$VAR3 = '0';
$VAR4 = 'limit';
$VAR5 = '500';
$VAR6 = 'count';
$VAR7 = '0';
$VAR8 = 'virtual_machines';
$VAR9 = '[]}';

现在，我可以获取 $VAR7 的值并获取计数。

有没有办法将字符串转换为哈希，然后使用键来获取值，而不是使用正则表达式和拆分。谁能帮帮我！

Answer 1

该字符串为 JSON 格式。我会做的

use strict;
use warnings;
use JSON::PP qw(decode_json);

my $output = '{"offset":0,"limit":500,"count":0,"virtual_machines":[]}';
my $data = decode_json $output;

print $data->{count}, "\n";

Answer 2

如果所有冒号都只是分隔符，那么您可以将它们替换为 '=>' 并评估字符串。 不过，这可能是不现实的。所以你可以使用 JSON ...看起来字符串是 JSON 格式。尝试以下方法（为我工作:-)：

#!/usr/bin/perl

use JSON::Parse 'parse_json';

# the string is JSON
my $jstr = '{"offset":0,"limit":500,"count":0,"virtual_machines":[]}';

# oversimplified (not using json ... o.k. if no colons anywhere but as separators
my $sstr = $jstr;
$sstr =~ s/:/=>/g;
my $href = eval "$sstr";
printf("From oversimplified eval, limit == %d\n", $href->{limit});

# using JSON (looks like string is in JSON format).
# get JSON::Parse from CPAN (sudo cpan JSON::Parse)
my $jref = parse_json($jstr);
printf("From JSON::Parse, limit == %d\n", $jref->{limit});

1;

输出：

从过度简化的评估中，限制 == 500
来自 JSON::Parse，限制 == 500