Perl script to parse JSON data

Question

I am trying to create a script to parse JSON content but it is not working:

#!/usr/local/bin/perl-w
use DBI;
use Parallel::ForkManager;
use LWP::Simple;
use XML::Simple;
use JSON qw( decode_json );
use Data::Dumper;
use DateTime;
use WWW::Mechanize;
use strict;
use warnings;
use JSON;
my $ua = LWP::UserAgent->new();
my $req = new HTTP::Request GET => 'https://google.com/pub/';
my $res = $ua->request($req);
my $contents = $res->content;
##json response:

#{"success":true,"data":"{\"campaign\":\"21490|\",\"format\":\"md5  \",\"delta_timestamp\":\"1528992718\",\"result\":\"success\",\"download_link\":\"https:\\\/\\\/gmail.net\\\/accesskey\\\/getfile\\\/m-spqn-e61-2aef2575a0b5250354f2b0fda033e703?token=HUSYjdC5jyJskXUHiKn13l1A1BaAjH2R&dcma=e8fae90c472ae146\"}","message":null}

print $contents;

#Check the outcome of the Response
if ( $res->is_success ) {
print $res->content;
}


# Decode the main json object
my $jsn = decode_json($res);

# Since 'data' is another serialized object, you need to decode that as well:
my $data = decode_json($jsn);

# Now you can access the contents of 'data'
#want to extract download_link object
print $data->{'download_url'};

I am looking at the content of download_link.

You should actually print out your object and ensure it matches the form you think it does. Just glancing at the commented out object it would suggest that your variable $data doesn't have a key "download_url". — scrappedcola
– scrappedcola, Commented Jun 21, 2018 at 18:00
Your question is not clear/poorly phrased (I have edited it). You are not showing your current errors. You speak about "download_link" but your code uses "download_url". Your script starts with "perl-w" which is probably a typo for "perl -w" and in which case the -w is useless as you have use warnings; (as recommended) below. — Patrick Mevzek
– Patrick Mevzek, Commented Jun 21, 2018 at 19:23
Do NOT use this form: new HTTP::Request, use instead HTTP::Request->new() — Patrick Mevzek
– Patrick Mevzek, Commented Jun 21, 2018 at 19:25

daxim · Accepted Answer · 2018-06-21 18:28:52Z

3

use JSON qw(decode_json);

# from $res->content
my $content = '{"success":true,"data":"{\"campaign\":\"21490|\",\"format\":\"md5  \",\"delta_timestamp\":\"1528992718\",\"result\":\"success\",\"download_link\":\"https:\\\/\\\/gmail.net\\\/accesskey\\\/getfile\\\/m-spqn-e61-2aef2575a0b5250354f2b0fda033e703?token=HUSYjdC5jyJskXUHiKn13l1A1BaAjH2R&dcma=e8fae90c472ae146\"}","message":null}';

print decode_json(decode_json($content)->{data})->{download_link};

edited Jun 21, 2018 at 18:28

answered Jun 21, 2018 at 18:02

daxim

39.3k4 gold badges71 silver badges135 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Perl script to parse JSON data

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related