Perl用LWP库简单发送Get/Post

最新推荐文章于 2025-11-13 16:14:33 发布

原创

最新推荐文章于 2025-11-13 16:14:33 发布 · 1.7k 阅读

0 ·

CC 4.0 BY-SA版权

这篇博客介绍了如何使用Perl的LWP库来发送GET和POST请求，从而读取网页内容。通过LWP库，程序员可以方便地生成HTTP请求，而无需手动构造完整的HTML。示例代码展示了如何发送GET和POST请求，对于GET请求，直接提供URL即可；而对于POST请求，除了URL外，还需要指定额外的参数。

有段时间没有更新日志了，刚收拾好心情，今天补上一篇，关于用Perl的LWP库来发送Get和Post信息的，也就是读取某一网址的方法。
在网上找了一些中文的帖子，感觉很杂，最后还是参考http://de.wikibooks.org/上的一篇文章，写的简单明了，测试了一下有效无误。不知道大多数朋友在网上是不是主要通过论坛的帖子来搜寻信息，国外有各种wiki，不仅有官方的Wikipedia，更有五花八门的各种专业或研究方向的wiki，不得不说用这个搜寻信息要比搜论坛的帖子来的快速，并且相对可靠点。

http协议简单来说就是通过用户向服务器发送request信息，然后服务器给用户发送response信息来实现的，Request信息有好几种类型，常用的是get和post，区别是post的entity-body不是空的，里面写有发送信息的内容，比如你搜索引擎里面你填写的搜索词，但get格式同样可以发送有内容的信息，方法就是将内容直接写在URL后面。
LWP是Library for WWW in Perl的简写，顾名思义就是perl下面用于web的库，很实用的功能就是生成request信息，你不用自己来写你要发送的全部html文件，而是通过调用这个库，写下你要访问的URL就可以了。比如说我现在做的毕设，用perl写get给smart switch来操纵连接在上面的灯泡开关和亮度，我只要将电脑连接到smart switch所在的局域网，在电脑上的运行的perl里输入它的ip地址，后面跟上参数值就可以实现无线操作了。

下面是发送get的code：

#!/usr/bin/perl

use strict;
use warnings;
use LWP 5.64;
my $browser = LWP::UserAgent->new();
my $seite = $browser->get('http://写你的访问网址');
my $seite_code = $seite->decoded_content();
print $seite_code;