How to map decoded json perl

Question

I have problem to map all urls in decoded json content... I tried,but get error: Not a HASH reference...

$text = decode_json($document);
#print Dumper($text);
my @urls = map { $_->{'uri'} } @{$text->{children}->{children}};
print @urls;

Here decoded JSON,I need to capture urls...When I run whithout one ->{children} I don't get error but can't get urls only some vaules like parets,title,type, etc...

$VAR1 = {
          'lastModified' => '1375048740407000',
          'children' => [
                          {
                            'parent' => 1,
                            'children' => [
                                            {
                                              'parent' => 2,
                                              'lastModified' => '1374933801475000',
                                              'type' => 'text/x-moz-place-separator',
                                              'id' => 15,
                                              'title' => '',
                                              'dateAdded' => '1374933801475000'
                                            }
                                          ],
                            'dateAdded' => '1374933800710000',
                            'lastModified' => '1375356010239000',
                            'title' => 'Bookmarks Menu',
                            'id' => 2,
                            'type' => 'text/x-moz-place-container',
                            'root' => 'bookmarksMenuFolder'
                          },
                          {
                            'parent' => 1,
                            'children' => [
                                            {
                                              'parent' => 3,
                                              'charset' => 'UTF-8',
                                              'uri' => 'http://projects.org/#',
                                              'dateAdded' => '1375356057087000',
                                              'lastModified' => '1375356057097000',
                                              'title' => 'projects',
                                              'id' => 24,
                                              'type' => 'text/x-moz-place'
                                            },
                                            {
                                              'parent' => 3,
                                              'charset' => 'UTF-8',
                                              'uri' => 'http://kalja.org/',
                                              'dateAdded' => '1375356063615000',
                                              'index' => 1,
                                              'lastModified' => '1375356063615000',
                                              'title' => 'Kalja.org',
                                              'id' => 25,
                                              'type' => 'text/x-moz-place'
                                            }
                                          ],
                            'annos' => [
                                         {
                                           'flags' => 0,
                                           'value' => 'Add bookmarks to this folder to see them displayed on the Bookmarks Toolbar',
                                           'name' => 'bookmarkProperties/description',
                                           'type' => 3,
                                           'mimeType' => undef,
                                           'expires' => 4
                                         }
                                       ],
                            'dateAdded' => '1374933800710000',
                            'index' => 1,
                            'lastModified' => '1375356065865000',
                            'root' => 'toolbarFolder',
                            'title' => 'Bookmarks Toolbar',
                            'id' => 3,
                            'type' => 'text/x-moz-place-container'
                          },
                          {
                            'parent' => 1,
                            'children' => [],
                            'dateAdded' => '1374933800710000',
                            'index' => 2,
                            'lastModified' => '1374933800710000',
                            'title' => 'Tags',
                            'id' => 4,
                            'type' => 'text/x-moz-place-container',
                            'root' => 'tagsFolder'
                          },
                          {
                            'parent' => 1,
                            'children' => [],
                            'dateAdded' => '1374933800710000',
                            'index' => 3,
                            'lastModified' => '1375356065865000',
                            'title' => 'Unsorted Bookmarks',
                            'id' => 5,
                            'type' => 'text/x-moz-place-container',
                            'root' => 'unfiledBookmarksFolder'
                          }
                        ],
          'root' => 'placesRoot',
          'type' => 'text/x-moz-place-container',
          'id' => 1,
          'title' => '',
          'dateAdded' => '1374933800710000'
        };

Thanks in advance

Answer 1

You have nested structures so you'll need nested map's

my @urls = map { 
    map { $_->{'uri'} } @{$_->{children}} 
}
@{$text->{children}};