perl Webserver 通讯code
暂无评分
perlWebserver通讯获取Jsonstring然后进一步解析字符串,用于两个系统交互操作。
#!/bin/perl
useHTTP::Request;
useLWP::UserAgent;
my$inputstr="";
my$temp1;
my@temp2;
my$jsonstr;
print"pleaseinputflow:\n";
my$flow=<STDIN>;
chomp($flow);
print"pleaseinputtesterNo:\n";
my$tester=<STDIN>;
chomp($tester);
$inputstr="flow=$flow&testerNo=$tester";
openFILE1,'>WebServiceFile.txt'||die"creatfilefail!!!";
my$ua=LWP::UserAgent->new;
my$req=HTTP::Request->new('POST'=>'http://192.168.1.58:8280/Time.asmx/GetMESInfo');
$req->content_type('application/x-www-form-urlencoded');#post请求,如果有发送参数,必须要有这句
$req->header('Accept-Language'=>'zh-cn,zh;q=0.8,en-us;q=0.5,en;q=0.3');#如需发送请求头,