Как извлечь ключ и значения из данного файла JSON в Perl

Question

Я пытаюсь получить пары ключ-значение из следующих данных. Я использую этот коде, однако я не получаю никакого вывода. пожалуйста, предложите

use lib qw( ..);
use LWP::Simple;
use JSON;
my $filename = '/file.txt';
my $data;
if (open (my $json_str, $filename))
{
  local $/ = undef;
  my $json = JSON->new;
  $data = $json->decode(<$json_str>);
  close($json_stream);
}
print $data->{name};

__DATA__
{
   “org1” : {
  “repo1” : [
     “John”,
     “Sam”,
     “Sammy”,
  ],
  “org2” : [
     “repo2”,
     “Samn”,
     “Laggy”,
     “Tester”,
      ]
  }
}

Answer 1

Вот пример того, как вы можете прочитать данные JSON:

use feature qw(say);
use strict;
use warnings;
use Data::Dumper;
use JSON;

my $str = do { local $/; <DATA> };
my $json = JSON->new;
my $data = $json->decode($str);
print Dumper($data);

__DATA__
{
   "org1" : {
       "repo1" : [
           "John",
           "Sam",
           "Sammy"
       ]
   },
   "org2" : {
       "repo2" :[
           "Samn",
           "Laggy",
           "Tester"
       ]
   }
}

Вывод :

$VAR1 = {
          'org2' => {
                      'repo2' => [
                                   'Samn',
                                   'Laggy',
                                   'Tester'
                                 ]
                    },
          'org1' => {
                      'repo1' => [
                                   'John',
                                   'Sam',
                                   'Sammy'
                                 ]
                    }
        };