0
点赞
收藏
分享

微信扫一扫

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

 

 

举报

相关推荐

0 条评论