perl6 HTTP::UserAgent (2)

http://www.cnblogs.com/perl6/p/6911166.html

之前这里有个小小例子， 这里只要是总结一下。

 

HTTP::UserAgent包含了以下模块:

----------------------------------------------------------------------------------------------
Module                 |Path-Name                    |File-ID
----------------------------------------------------------------------------------------------
HTTP::Header           |lib/HTTP/Header.pm6          |A2B86332480F329B842FC2F3922B81A1F7B1D4E9
HTTP::Cookie           |lib/HTTP/Cookie.pm6          |8BBC36DD2291BA0AA0055B55B7DE6FD9688D6C53
HTTP::Message          |lib/HTTP/Message.pm6         |36AD1387CCFFA8C668215E08B003366DCB85A964
HTTP::Cookies          |lib/HTTP/Cookies.pm6         |438D31E029F25512CB05696C78EE4AF41B40527A
HTTP::Request          |lib/HTTP/Request.pm6         |458DA83ACB4B7B3BA98573502EB4879AC1D92194
HTTP::Response         |lib/HTTP/Response.pm6        |992068840F9CBA1830BB4A29F4338946BABA70B5
HTTP::MediaType        |lib/HTTP/MediaType.pm6       |6970F2A79AC4473EED61B71050458E5BFC9702F2
HTTP::UserAgent        |lib/HTTP/UserAgent.pm6       |7789AD4CBAC37F02FE832B1C68B30593E2217384
HTTP::Header::Field    |lib/HTTP/Header/Field.pm6    |FDBA1F1A4186FD9C0D675459CB6D40479BA7ADE5
HTTP::Request::Common  |lib/HTTP/Request/Common.pm6  |9ED2E957313B252F4FFBF086D39C8918F6C7C4F0
HTTP::UserAgent::Common|lib/HTTP/UserAgent/Common.pm6|ECD443F272FDD584E9EBA9449AA32E9C84C87F26
----------------------------------------------------------------------------------------------

 

HTTP::UserAgent -> 创建一个浏览器($ua)

HTTP::Cookies -> 设置COOKIE

HTTP::Header -> 设置头部信息， 如User-Agent, Content-Type等

HTTP::Request -> 设置一个请求， 比如POST/GET等

 

我们先看一下数据包结构:

 

上面一部分中的User-Agent/Accept等头部修息， 可以用 HTTP::Header 设置。

Cookie 位置可以用 HTTP::Cookies 设置

下面的POST发送过去的数据， 我们可以用 HTTP::UserAgent 发送或用HTTP::Request设置后再发送。

 

我们先看一下HTTP::Cookies

> my $c = HTTP::Cookies.new
HTTP::Cookies.new(cookies => [], file => Any, autosave => 0)
> $c
HTTP::Cookies.new(cookies => [], file => Any, autosave => 0)
>

 

方法有如下几个:

> $c.^methods
(extract-cookies add-cookie-header save load clear-expired clear set-cookie push-cookie Str cookies
file autosave)

手动设置Cookie可以用 set-cookie 方法：

$c.set-cookie('Set-Cookie:a=b');

注意里面的 Set-Cookie字符串一定要有。

my $cookies = HTTP::Cookies.new;$cookies.set-cookie('Set-Cookie: name1=value1; Secure');$cookies.set-cookie('Set-Cookie: name2=value2; Expires=Wed, 09 Jun 2021 10:18:14 GMT');$cookies.clear; # 清除cookie

 

 

这就是 cookie 的设置。当然还有其他方法， 但个人觉得这个已经够用了。

 

我们来看 HTTP::Request:

> my $r = HTTP::Request.new;
HTTP::Request.new(method => HTTP::Request::RequestMethod, url => Any, file => Any, uri => Any, host
=> Str, port => Int, scheme => Str, header => HTTP::Header.new(fields => []), content => Any, protoc
ol => "HTTP/1.1", binary => Bool::False, text-types => Array[Str].new())
>

注意上面的 $r 对象， 它参数中包含有一个 header => HTTP::Header.new()对象， 所以我们很容易想到, 当我们创建 request 对象时， 可以设置 HTTP::Header 对象的属性值。

至于 HTTP::Header 对象的方法， 我们一会再说。 先看看 request 对象的方法：

> $r.^methods;
(new set-method uri host port scheme add-cookies add-content add-form-data form-data make-boundary S
tr parse method url file add-content remove-field content-encoding push-field protocol text-types in
flate-content decoded-content AUTOGEN parse header charset is-text Str content new clear content-typ
e media-type is-binary binary)
>

 

方法挺多， 这里只是说明几个常用的， 比如设置Cookie, 设置Header。

 

0x1设置请求类型：

my $req = HTTP::Request.new;$req.set-method: 'POST';

你还可以设置成GET或HEAD之类的。

 

0x2设置请求的URL：

my $req = HTTP::Request.new;$req.uri: 'example.com';

 

0x3设置Cookie:

add-cookies(HTTP::Cookies $cookies)

上面说过HTTP::Cookies的用法， 如果你设置了一个HTTP::Cookies对象， 这里直接导入就行：

my $req = HTTP::Request.new;
#my $c = HTTP::Cookies.new;
#$c.set-cookie('Set-Cookie:user=root')
$req.add-cookies($c)

 

0x4设置POST参数:

my %data = :what<php>;#post
my $r = HTTP::Request.new;
$r.set-method: 'POST';
$r.add-form-data(%data);#添加post

 

0X5设置 HTTP::Header:

上面说到， 这个HTTP::Request对象的参数里包含了一个 header => HTTP::Header.new()。而且它有个方法叫header, 我们可以先看看这个header方法是什么东西：

> my $r = HTTP::Request.new;
HTTP::Request.new(method => HTTP::Request::RequestMethod, url => Any, file => Any, uri => Any, host
=> Str, port => Int, scheme => Str, header => HTTP::Header.new(fields => []), content => Any, protoc
ol => "HTTP/1.1", binary => Bool::False, text-types => Array[Str].new())
> $r.^methods;
(new set-method uri host port scheme add-cookies add-content add-form-data form-data make-boundary S
tr parse method url file add-content remove-field content-encoding push-field protocol text-types in
flate-content decoded-content AUTOGEN parse header charset is-text Str content new clear content-typ
e media-type is-binary binary)
> my $r = HTTP::Request.new;
HTTP::Request.new(method => HTTP::Request::RequestMethod, url => Any, file => Any, uri => Any, host
=> Str, port => Int, scheme => Str, header => HTTP::Header.new(fields => []), content => Any, protoc
ol => "HTTP/1.1", binary => Bool::False, text-types => Array[Str].new())
> $r.header.WHAT
(Header)
> $r.header.^methods
(new field init-field push-field remove-field header-field-names hash clear Str parse fields)
>

可以看到， 这个 $r.header 就是一个HTTP::Header对象。（HTTP::Header对象设置HEADER信息后面有说）

怎么设置Header信息呢？很简间， 下面是一个例子：

$r.header.field(:user-Agent<this is a ie>);#设置头部信息

把你要设置的header信息当成一个字典传入到$r.header.field()当参数就行

我们还可以在创建对象时设置GET/POST与HEADER信息:

 

multi method new(*%args)
multi method new(Str $method, URI $uri, HTTP::Header $header);
A constructor, the first form takes parameters like:
=item method => URL, where method can be POST, GET ... etc.
=item field => values, header fields
my $req = HTTP::Request.new(:GET<example.com>, :h1<v1>);

 

 

 

 

0x6使用这个HTTP::Request对象:

如果我们把我们要设置的都设置完了， 准备发送请求， 可以这样发送：

my $u = HTTP::UserAgent.new;
my $result = $u.request($r);

 

现在来说说 HTTP::Header。

方法:

new field init-field push-field remove-field header-field-names hash clear Str parse fields

 

0x1 field设置：

use HTTP::Header; 
my $h = HTTP::Header.new;
$h.field(Accept => 'text/plain');
say $h.field('Accept');
$h.remove-field('Accept');

0x2 在new 时设置：

 my $head = HTTP::Header.new(:h1<v1>, :h2<v2>);

 

0x3 push-header：

文档里有这个方法， 但本人没测试成功。

my $head = HTTP::Header.new;
$head.push-header( HTTP::Header::Field.new(:name<n1>, :value<v1>) );
say ~$head;

也就是说， 用push-header导入一个HTTP::Header::Field对象， 这个对象设置header时可以用如下方法:

use HTTP::Header::Field;
my $header = HTTP::Header::Field.new(:name<Date>, values => (123, 456));

注意这个 name, values 关键字是固定的。

0x4清除设置的header:

my $head = HTTP::Header.new(:h1<v1>, :h2<v2>);
$head.clear;

 

一般来说， 你知道HTTP::Header方法后， 当你创建一个HTTP::Request后， 就可以直接用  $request.header.field(:user-agent<firefox>) 这种型式设置即可。

 

HTTP::UserAgent

0x1 GET请求:

my $u = HTTP::UserAgent.new;
my $result = $u.get($url);

0x2 POST请求：

my $u = HTTP::UserAgent.new;
my %data = :user<root>,:password<password>;
my $result = $u.post($url, %data);

0x3设置HEADER信息:

我们可以不先创建request，再用request设置好header后，再导入request到HTTP::UserAgent中用$u.request($request)去请求。我们可以在GET/POST请求时设置好HEADER。

下面是get的方法定义

multi method get(Str $url is copy, :bin?, *%headers) returns  HTTP::Response
multi method get(URI $uri, :bin?, *%headers) returns HTTP::Response

下面是post方法定义

multi method post(URI $uri, %form, *%header ) -> HTTP::Response
multi method post(Str $uri, %form, *%header ) -> HTTP::Response

可以看到， get/post请求时， 都有一个%header字典， 那我们就可以这样设置:

> my $result =$a.get('http://localhost/1.php', :user-agent<ooooooooooooo>)
> my $result =$a.post('http://localhost/1.php', (:a<1>),:user-agent<ooooooooooooo>)

注意POST请求时第二个参数是必须要有的， 这个就是POST的数据， 而第三个参数是一个收集型的hash的设置， 是设置header用的， 收集型参数可以不传送数据。

 

0x4设置COOKIE:

我们看一下HTTP::UserAgent的对象：

> $a
HTTP::UserAgent.new(timeout => 180, useragent => Any, cookies => HTTP::Cookies.new(cookies => [], fi
le => "C:\\Users\\ADMINI~1\\AppData\\Local\\Temp\\mKsrWNHtC8", autosave => 1), auth_login => Any, au
th_password => Any, max-redirects => 5, redirects-in-a-row => 0, throw-exceptions => Bool, debug =>
Any, debug-handle => IO::Handle, http-proxy => Any, no-proxy => [])
>

可以看到， 里面有一个 cookies => HTTP::Cookies， 我们看一下 HTTP::UserAgent的方法有哪些：

> $a.^methods
(BUILD auth get post request get-content get-chunked-content get-response get-connection is-cgi get-
proxy no-proxy use-proxy setup-auth use-auth timeout useragent cookies auth_login auth_password max-
redirects redirects-in-a-row throw-exceptions debug debug-handle http-proxy)
>

里面有一个cookies方法， 我们可以查看一下这个方法是什么:

> $a.cookies;
HTTP::Cookies.new(cookies => [], file => "C:\\Users\\ADMINI~1\\AppData\\Local\\Temp\\mKsrWNHtC8", au
tosave => 1)
> $a.cookies.WHAT;
(Cookies)
> $a.cookies.^methods;
(extract-cookies add-cookie-header save load clear-expired clear set-cookie push-cookie Str cookies
file autosave)
>

这个原来就是前面所说的HTTP::Cookies对象。

所以设置cookies时， 我们可以这样设置：

 

$a.cookies.set-cookie('Set-Cookie:a=1')

 

0x5 request方法：

HTTP::UserAgent里有一个request方法， 这个方法就是用来导入前面所说的HTTP::Request对象用的:

my $r = HTTP::Request.new;
#do something
my $ua = HTTP::UserAgent.new;
my $result = $ua.request($r);

 

 

 

HTTP::Response响应对象

> my $rp = HTTP::Response.new
HTTP::Response.new(status-line => "200 OK", code => 200, request => HTTP::Request, header => HTTP::H
eader.new(fields => []), content => Any, protocol => "HTTP/1.1", binary => Bool::False, text-types =
> Array[Str].new())
> $rp.^methods;
(BUILD new content-length is-success has-content is-chunked set-code next-request Str status-line co
de request add-content remove-field content-encoding push-field protocol text-types inflate-content
decoded-content AUTOGEN parse header charset is-text Str content new clear content-type media-type i
s-binary binary)
>

 

上面是它的对象方法

0x1获取响应状态码：

> $rp.status-line;
200 OK
>

 

0x2获取返回内容:

> $result.content
<pre>array(0) {
}
array(0) {
}
ooooooooooooo
> $result.Str
HTTP/1.1 200 OK
Date: Fri, 07 Jul 2017 15:51:43 GMT
Server: Apache/2.4.23 (Win32) OpenSSL/1.0.2j mod_fcgid/2.3.9
X-Powered-By: PHP/5.3.29
Connection: close
Transfer-Encoding: chunked
Content-Type: text/html<pre>array(0) {
}
array(0) {
}
ooooooooooooo>

可以用content或Str

有时可能也要用到decoded-content:

> $result.decoded-content
<pre>array(0) {
}
array(0) {
}
ooooooooooooo
>

 

 

 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 提示: get/post方法中， url不要有空格， 空格要用%20代替， 否则会报错。

如果要查看设置好后的包数据， 可以像这样：

 


这里的$html为response对像
> $html.request.WHAT
(Request)
> $html.request.^methods
(new set-method uri host port scheme add-cookies add-content add-form-data form-data make-boundary S
tr parse method url file add-content remove-field content-encoding push-field protocol text-types in
flate-content decoded-content AUTOGEN parse header charset is-text Str content new clear content-typ
e media-type is-binary binary)
> $html.request.host
localhost
> $html.request.Str
POST /1.php HTTP/1.1
Host: localhost
Content-Length: 11
Content-Type: application/x-www-form-urlencoded
Connection: close5=6&1=2&3=4>
当然 ， 如果$r为request对像， 也可以像下面这样查。
> $r.Str
POST /1.php HTTP/1.1
Host: localhost
Content-Length: 11
Content-Type: application/x-www-form-urlencoded
Connection: close

5=6&1=2&3=4


 

 

 

 

 

 

参考链接:

https://github.com/sergot/http-useragent

 

转载于:https://www.cnblogs.com/perl6/p/7134600.html

本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如若转载，请注明出处：http://www.mzph.cn/news/572244.shtml

如若内容造成侵权/违法违规/事实不符，请联系多彩编程网进行投诉反馈email:809451989@qq.com，一经查实，立即删除！

相关文章

Java会话技术

Java会话技术

会话技术&#xff1a; 会话指的是客户端浏览器和服务端之间的度偶次请求和响应当打开浏览器&#xff0c;访问网站地址后&#xff0c;会话开始&#xff0c;当关闭浏览器&#xff08;或者到了过期时间&#xff09;&#xff0c;会话结束。就像打电话只要不挂电话就是一次会话。 会…
阅读更多...
【调用IP宏文件进行仿真】modelsim仿真时出现 Instantiation of 'xxx' failed. The design unit was not found....

【调用IP宏文件进行仿真】modelsim仿真时出现 Instantiation of 'xxx' failed. The design unit was not found....

出现错误类似&#xff1a;modelsim 仿真fifo时出现 Error: (vsim-3033) E:/Programs/ModelSim/fifo/ps2_fifo.v(75): Instantiation of scfifo failed. The design unit was not found.仿真波形不对&#xff0c;调用的ip核没有输出&#xff08;白色虚线&#xff09;等情况&…
阅读更多...
Java Server Page

Java Server Page

JSP JSP全称是Java Server Page&#xff0c;基于Java和Servlet一样是sun公司推出的一套开发动态web资源的技术&#xff0c;称为JSP/Servlet规范。JSP的本质其实就是一个Servlet。jsp是一种动态网页技术标准&#xff0c;jsp部署在服务器上可以处理客户端的请求&#xff0c;并根据…
阅读更多...
HDFS概述（2）————Block块大小设置

HDFS概述（2）————Block块大小设置

参考&#xff1a;HDFS概述&#xff08;4&#xff09;————HDFS权限HDFS概述&#xff08;3&#xff09;————HDFS FederationHDFS概述&#xff08;2&#xff09;————Block块大小设置HDFS概述&#xff08;1&#xff09;————HDFS架构问题Q: 一个常被问到的一个问题是…
阅读更多...
BZOJ 1083: [SCOI2005]繁忙的都市【Kruscal最小生成树裸题】

BZOJ 1083: [SCOI2005]繁忙的都市【Kruscal最小生成树裸题】

1083: [SCOI2005]繁忙的都市 Time Limit: 10 Sec Memory Limit: 162 MBSubmit: 2925 Solved: 1927[Submit][Status][Discuss]Description 城市C是一个非常繁忙的大都市&#xff0c;城市中的道路十分的拥挤&#xff0c;于是市长决定对其中的道路进行改造。城市C的道 路是这样分…
阅读更多...
Mysql介绍与安装LinuxmacOS系统

Mysql介绍与安装LinuxmacOS系统

数据库&#xff1a; 用于存储和管理数据的仓库 数据库的好处&#xff1a; 可以持久化存储数据方便存储和管理数据使用了统一的方式操作数据库 – SQL 常见的数据库&#xff1a; Oracle&#xff1a;收费的大型数据库&#xff0c;Oracle公司的产品。Oracle收购SUN公司&#xff0c…
阅读更多...
如何查看Laravel版本号的三种方法

如何查看Laravel版本号的三种方法

1.PHP artisan --version 2.vim vendor/laravel/framework/src/Illuminate/Foundation/Application.php 3&#xff1a;可以写在路由里 5.4版本的路由文件夹是routes。我们可以写在routes\web.php里。 Route::get(laravel-version, function(){ $laravel app(); return…
阅读更多...
02_反汇编_反编译

02_反汇编_反编译

实际上安卓的应用都是zip包,只不过把zip扩展名修改了,修改成了APK.所以如果你想拿到它的图片的话,实际上特别简单&#xff0c;你就把它这个.apk换成.zip.换成.zip之后这里的图片资源就都可以拿到了. 有些公司可能美工的水平或者美工的人数比较少&#xff0c;项目还比较急&#…
阅读更多...
SQL约束语法

SQL约束语法

约束 作用&#xff1a;对表中的数据进行限定&#xff0c;保证数据的正确性、有效性、完整性&#xff01; 约束分类&#xff1a; 约束说明PRIMARY KEY主键约束PRIMARY KEY AUTO_INCREMENT主键、自动增长UNIQUE唯一约束NOT NULL非空约束FOREIGN KEY外键约束FOREIGN KEY ON UPDAT…
阅读更多...
修改项目名称之后，访问不到项目的问题

修改项目名称之后，访问不到项目的问题

转载于:https://www.cnblogs.com/Joke-Jay/p/7190187.html
阅读更多...
stanford-parser for C#

stanford-parser for C#

在项目里用到C#对英文句子进行词性标注。比較成熟的英文词性标注软件是stanford-parser。它个C#版本号&#xff0c;也是借助于IKVM完毕JAVA-C#的转换。详细配置过程例如以下&#xff1a; 1、下载stanford-parser的jar包 http://nlp.stanford.edu/software/lex-parser.shtml 2…
阅读更多...
【bzoj】 1412: [ZJOI2009]狼和羊的故事

【bzoj】 1412: [ZJOI2009]狼和羊的故事

Description “狼爱上羊啊爱的疯狂&#xff0c;谁让他们真爱了一场&#xff1b;狼爱上羊啊并不荒唐&#xff0c;他们说有爱就有方向&#xff0e;&#xff0e;&#xff0e;&#xff0e;&#xff0e;&#xff0e;” Orez听到这首歌&#xff0c;心想&#xff1a;狼和羊如此和谐&am…
阅读更多...
计算机基础--网络

计算机基础--网络

互联网协议 互联网协议的功能&#xff1a;定义计算机如何接入internet&#xff0c;以及接入internet的计算机通信的标准。 互联网协议按照功能不同分为osi七层或者tcp/ip五层或tcp/ip四层 每层常见物理设备 因为学习python编程只需要了解tcp/ip五层模型&#xff0c;所以我们只需…
阅读更多...
万字详解数据库连接池

万字详解数据库连接池

数据库连接池的概念 数据库连接是一种关键的、有限的、昂贵的资源&#xff0c;这一点在多用户的网页应用程序中体现得尤为突出。对数据库连接的管理能显著影响到整个应用程序的伸缩性和健壮性&#xff0c;影响到程序的性能指标。数据库连接池正是针对这个问题提出来的。数据库连…
阅读更多...
编译OSG的FreeType插件时注意的问题

编译OSG的FreeType插件时注意的问题

使用自己编译的freetype.lib&#xff0c;在编译osgdb_freetype插件项目时&#xff0c;报错LINK错误&#xff0c;找不到png的一堆函数 最简单的方式是不要使用PNG编译freetype。记住不要犯贱。 转载于:https://www.cnblogs.com/coolbear/p/7205906.html
阅读更多...
高动态范围红外图像压缩

高动态范围红外图像压缩

BF&DRC 近期看了一篇高动态范围红外图像压缩的文章&#xff0c;《New technique for the visualization of high dynamic range infrared images》.这篇文章主要利用双边滤波器把宽动态红外图像切割为基本图像和细节图像&#xff0c;再分别对基本图像和细节图像进行处理。对…
阅读更多...
Mybatis构建sql语法

Mybatis构建sql语法

构建sql&#xff1a; 之前通过注解开发时&#xff0c;相关 SQL 语句都是自己直接拼写的。一些关键字写起来比较麻烦、而且容易出错。MyBatis 给我们提供了 org.apache.ibatis.jdbc.SQL 功能类&#xff0c;专门用于构建 SQL 语句 常用方法&#xff1a; 查询功能的实现&#xf…
阅读更多...
在cli命令行上显示当前数据库，以及查询表的行头信息

在cli命令行上显示当前数据库，以及查询表的行头信息

在$HIVE_HOME/conf/hive-site.xml文件下加入以下配置文件 <property><name>hive.cli.print.header</name><value>true</value><description>Whether to print the names of the columns in query output.</description> </proper…
阅读更多...
SAS笔记(2) RETAIN语句

SAS笔记(2) RETAIN语句

本文重点&#xff1a; 使用RETIAN,INPUT在每次循环执行时保留上一次PDV中的变量值。SUM语句和SET语句会自动RETAIN变量。1. RETAIN语句 1.1 Example 1 先来看看在DATA步不使用和使用RETAIN语句的差异 没有使用RETAIN: DATA WITHOUT_1;PUT "Before the INPUT statement: &…
阅读更多...
Hive优化策略

Hive优化策略

hive优化目标 在有限的资源下&#xff0c;运行效率高。常见问题 数据倾斜、Map数设置、Reduce数设置等 hive运行 查看运行计划 explain [extended] hql 例子 explain select no,count(*) from testudf group by no; explain extended select no,count(*) from testudf group …
阅读更多...
推荐文章
最新文章

Copyright @ 2022~2023