Comment on

 Need Help??

Using the module JSON?

Have you read perlintro yes? You should read perlintro, Quote and Quote like Operators, Tutorials: References quick reference

```#!/usr/bin/perl --
use strict; use warnings;
use JSON;
Main( @ARGV );
exit( 0 );
sub Main {
my \$json = <<'__JSON__';
{"res": { "url":"http://www.astm.org/FULL_TEXT/D5447/HTML/D5447.htm",
+"title":"Standard Guide for Application of a Groundwater Flow Model t
+o a Site-Specific Problem ", "snippet":"1.1 This guide covers the app
+lication and subsequent documentation of a groundwater flow model to
+a particular site or problem. In this context, x201C; groundwater flo
+w model x201D; refers to the application of a mathematical model to t
+he solution of a site-specific groundwater flow problem. 1.2 This gui
+de illustrates the major steps to take in developing a groundwater fl
+ow model that ", "meta":{"gs_designation":"D5447","mc_section":"04","
+mc_maincomm":"D18","mc_date":"2010","mc_dltype":"allstd,active","mc_d
+","mc_suburl":"/SUBSCRIPTION/filtrexx40.cgi?+/usr6/htdocs/newpilot.co
+m/SUBSCRIPTION/REDLINE_PAGES/D5447.htm","mc_relatedurl":"D5447_relate
+d.htm","mc_keywords":" computer model~ groundwater~ simulation~ Groun
+d-water model~ ICS Number Code 13.060.10 (Water of natural resources)
+","gs_year":"04(2010)","gs_collection":"EEE,EEE,OOO","gs_homebook":"0
+408 CS04" } }}
__JSON__

my \$perl_scalar = JSON->new->decode(\$json);

print JSON->new->utf8(1)->pretty(1)->encode(\$perl_scalar);
print '#' x 6, , "\n";
print \$perl_scalar->{res}{title}, "\n";
}
__END__
{
"res" : {
"snippet" : "1.1 This guide covers the application and subsequen
+t documentation of a groundwater flow model to a particular site or p
+roblem. In this context, x201C; groundwater flow model x201D; refers
+to the application of a mathematical model to the solution of a site-
+specific groundwater flow problem. 1.2 This guide illustrates the maj
+or steps to take in developing a groundwater flow model that ",
"url" : "http://www.astm.org/FULL_TEXT/D5447/HTML/D5447.htm",
"title" : "Standard Guide for Application of a Groundwater Flow
+Model to a Site-Specific Problem ",
"meta" : {
"mc_date" : "2010",
"gs_collection" : "EEE,EEE,OOO",
"gs_homebook" : "0408 CS04",
"mc_section" : "04",
"mc_maincomm" : "D18",
"mc_keywords" : " computer model~ groundwater~ simulation~ Gr
+ound-water model~ ICS Number Code 13.060.10 (Water of natural resourc
+es)",
"gs_year" : "04(2010)",
"mc_dltype" : "allstd,active",
"mc_relatedurl" : "D5447_related.htm",
"gs_designation" : "D5447",
"mc_suburl" : "/SUBSCRIPTION/filtrexx40.cgi?+/usr6/htdocs/new
+pilot.com/SUBSCRIPTION/REDLINE_PAGES/D5447.htm",
"mc_doctype" : "Active Standard"
}
}
}
######
Standard Guide for Application of a Groundwater Flow Model to a Site-S
+pecific Problem

In reply to Re: HOw to extract data using json by Anonymous Monk
in thread HOw to extract data using json by Priti24

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

• Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
• Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
• Read Where should I post X? if you're not absolutely sure you're posting in the right place.
• Posts may use any of the Perl Monks Approved HTML tags:
a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
• You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
 For: Use: & & < < > > [ [ ] ]
• Link using PerlMonks shortcuts! What shortcuts can I use for linking?

Create A New User
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (2)
As of 2018-04-24 23:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
My travels bear the most uncanny semblance to ...

Results (88 votes). Check out past polls.

Notices?