Perl用LWP库简单发送Get/Post

有段时间没有更新日志了，刚收拾好心情，今天补上一篇，关于用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; 再来是发送post的code： #!/usr/bin/perl ? use strict; use warnings; use LWP 5.64; ? my $browser = LWP::UserAgent->new(); my $url = '写你访问的网址'; ? print "Bitte geben sie den Suchbegriff ein:n"; my $suchbegriff = <>; chomp $suchbegriff; ? my $seite = $browser->post($url,[query => $你的搜索信息,mode => '模式',]);? ? print $seite->decoded_content; 参考：http://de.wikibooks.org/wiki/Perl-Programmierung:_LWP