perl反序列化长度计数中的json不起作用

Question

How do iterate through a deserialized json string? I can't get the right number of values right now it doesn't count right.

my $list = request("http://localhost/getjson.php");                             
my $deserialize = from_json( $list );
print Dumper($deserialize);
$VAR1 = [
          'ab',
          'cc',
          'de',
          'aer',
          'ffe',
          'cer',
          'dad',
          'efef',
          'afaf',
          'ege',
          'grsc',
          'cegg',
          'cegg',          
          'cegg/aaa.html',
          'eggt',
          'ttt'
        ];
print length($deserialize);
13 ?? it should say 16

Answer 1

You are getting back an array reference not an array. You need to dereference the value.

my @array = @$deserialize; # or @{ $deserialize }
print scalar @array;

Moreover, if you want to iterate over the array you can just use for

for (@$deserialize) { 
    # do stuff