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