perl 解析xml ,json檔案及curl工具的使用

1.解析xml

 

用到兩個包：

 

# use module
use XML::Simple;
use Data::Dumper;

 

 

過程：

 

# create object
$xml = new XML::Simple;

#解析

$data = $xml->XMLin（xml檔案名稱）；

#取值

my $value=$data->{節點名字}

如果有子節點則為

 

my $value=$data->{節點名字}->{子節點名字}；

 

2.解析json

 

用到的perl包

use JSON;
use Data::Dumper;

 

要解析的jsco資料

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

$hash = decode_json($curl_result);
    $type = $hash->{'type'}. "/n";
    $data = $hash->{'data'}. "/n";

 

則type及data的值解析出來。。。

 

 

3.perl 調用curl庫

 

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);