Use of Perl to parse XML, JSON files, and curl tools

1. parse XML

 

Two packages are used:

 

# Use module
Use XML: simple;
Use Data: dumper;

 

 

Process:

 

# Create object
$ Xml = New XML: simple;

# Parsing

$ DATA = $ XML-> xmlin (XML file name );

# Value

My $ value = $ data-> {node name}

If a subnode exists

 

My $ value = $ data-> {node name}-> {child node name };

 

2. parse JSON

 

Perl package used

Use JSON;
Use Data: dumper;

 

JSCo data to be parsed

# My $ curl_result = '{"type": 1, "data": 2 }';

$ Hash = decode_json ($ curl_result );
$ Type = $ hash-> {'type'}. "/N ";
$ DATA = $ hash-> {'data'}. "/N ";

 

The value of type and data is parsed...

 

 

3. Perl calls the curl Library

 

Use www: curl: easy;

My $ res = $ curl-> setopt (curlopt_url, www.baidu.com );

 

Open (my $ fileb, ">"/home/someone/file );

$ Curl-> setopt (curlopt_writedata, $ fileb );

My $ retcode = $ curl-> perform;

Close ($ fileb );