Perl用LWP库简单发送Get/Post

前端之家收集整理的这篇文章主要介绍了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

猜你在找的Perl相关文章