perl Webserver 通讯code
2020-01-15
0 0 0
暂无评分
其他
如何获取积分?
perl Webserver 通讯获取Json string 然后进一步解析字符串,用于两个系统交互操作。
#!/bin/perl
use HTTP::Request;
use LWP::UserAgent;
my $inputstr = "";
my $temp1;
my @temp2;
my $jsonstr;
print "please input flow:\n";
my $flow=<STDIN>;
chomp($flow);
print "please input testerNo:\n";
my $tester=<STDIN>;
chomp($tester);
$inputstr = "flow=$flow&testerNo=$tester";
open FILE1,'>WebServiceFile.txt' || die "creat file fail!!!" ;
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');#如需发送请求头,
相关源码推荐
使用Java开发Android AOA Android开放式附件
0
0
暂无评分
Golang AOA Android开放式附件HID控制
0
0
暂无评分
pclite
0
0
暂无评分
GMSK线性接收机
0
0
暂无评分
传世AFT中变打金版版本--以前很火爆的,收藏很久
0
0
暂无评分
暂无评论