查看Perl笔记的源代码
←
Perl笔记
跳转到:
导航
,
搜索
因为以下原因,你没有权限编辑本页:
您刚才请求的操作只有这个用户组中的用户才能使用:
用户
您可以查看并复制此页面的源代码:
=== LWP UserAgent === <source lang=perl> use LWP::UserAgent; my $ua = LWP::UserAgent->new; $ua->agent("XXL/1.0"); my $req = HTTP::Request->new(POST => 'http://api.google.com:888/v2.0/node'); $req->header(Accept => "*/ *"); $req->header(nodid => "$uuid"); $req->header(token => "$token"); $req->header(type => "x1"); $req->content_type('text/html'); $req->content($body); my $ret = $ua->request($req); my $ct = $ret->content; if ($ret->is_success) { print STDERR $ct; } else { print STDERR $ret->status_line . "\t" . $ct; } </source> <br><br>
返回到
Perl笔记
。
个人工具
登录
名字空间
页面
讨论
变换
查看
阅读
查看源代码
查看历史
操作
搜索
导航
首页
社区专页
新闻动态
最近更改
随机页面
帮助
工具箱
链入页面
相关更改
特殊页面