Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: How can I convert this raw data to a hash?

by davido (Cardinal)
on Dec 21, 2020 at 19:22 UTC ( #11125556=note: print w/replies, xml ) Need Help??


in reply to How can I convert this raw data to a hash?

The data you have is JSON. And a module such as JSON has decode_json to convert it to a Perl data structure. Alternatively, if you don't want to install JSON, Perl ships with JSON::PP, which is a drop-in replacement (or fall-back).

#!/usr/bin/env perl use strict; use warnings; use JSON qw(decode_json); my $json = do { local $/ = undef; <DATA>; }; my $data = decode_json($json); foreach my $element (@{$data->{'genres'}}) { print "id: $element->{'id'}, name: $element->{'name'}\n"; } __DATA__ { "genres": [ { "id": 28, "name": "Action" }, { "id": 12, "name": "Adventure" }, { "id": 16, "name": "Animation" }, { "id": 35, "name": "Comedy" }, { "id": 80, "name": "Crime" }, { "id": 99, "name": "Documentary" }, { "id": 18, "name": "Drama" }, { "id": 10751, "name": "Family" }, { "id": 14, "name": "Fantasy" }, { "id": 36, "name": "History" }, { "id": 27, "name": "Horror" }, { "id": 10402, "name": "Music" }, { "id": 9648, "name": "Mystery" }, { "id": 10749, "name": "Romance" }, { "id": 878, "name": "Science Fiction" }, { "id": 10770, "name": "TV Movie" }, { "id": 53, "name": "Thriller" }, { "id": 10752, "name": "War" }, { "id": 37, "name": "Western" } ] }

This produces:

id: 28, name: Action id: 12, name: Adventure id: 16, name: Animation id: 35, name: Comedy id: 80, name: Crime id: 99, name: Documentary id: 18, name: Drama id: 10751, name: Family id: 14, name: Fantasy id: 36, name: History id: 27, name: Horror id: 10402, name: Music id: 9648, name: Mystery id: 10749, name: Romance id: 878, name: Science Fiction id: 10770, name: TV Movie id: 53, name: Thriller id: 10752, name: War id: 37, name: Western

A foreach loop is useful here, as described in perlintro or perlsyn. Dealing with complex data structures is covered in Intermediate Perl (OReilly), in perlreftut, perlref, perldsc, and perllol.


Dave

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://11125556]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (5)
As of 2021-02-27 17:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?