perl 解析xml ,json文件及curl工具的使用
1.解析xml ? 用到两个包: ? # use module ? ? 过程: ? # create object #解析 $data = $xml->XMLin(xml文件名); #取值 my $value=$data->{节点名字} 如果有子节点则为 ? my $value=$data->{节点名字}->{子节点名字}; ? 2.解析json ? 用到的perl包 use JSON; ? 要解析的jsco数据 #my $curl_result ='{"type": 1,"data": 2}'; $hash = decode_json($curl_result); ? 则type及data的值解析出来。。。 ? ? 3.perl 调用curl库 ? use WWW::Curl::Easy; my $res = $curl->setopt(CURLOPT_URL,www.baidu.com); ? open(my $fileb,">"/home/someone/file);
my $retcode=$curl->perform; close($fileb); (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |