用WWW::Mechanize来写twiki

之前基本没有用过WWW::Mechanize。上周工作不是很忙，简单实践了这个模块，感觉还是很强大的。

我的想法是：

用一个脚本来登录公司的twiki，然后跳转到一个固定的link。安排程序每天将一些统计的数据放到这个twiki下。（期间也实践了一下上传文件部分）

代码如下：

#!/usr/local/bin/perl use strict; use warnings; use Data::Dumper; use WWW::Mechanize; use HTTP::Cookies; use LWP::Debug qw(+); use HTTP::Request; use LWP::UserAgent; use HTTP::Request::Common; use POSIX qw(strftime); # 配置信息 my $topic = 'YourLink'; my $domain= 'twiki.test.com'; my $url = "http://$domain/twiki/bin/view.pl/Tech/$topic"; my $un = 'xx'; ##用户名 my $pw = 'xx'; ##密码 my @datas = qw(data1 data2); ## test data # 构建agent my $agent = WWW::Mechanize->new(cookie_jar => {}, autocheck => 0); $agent->{onerror}=/&WWW::Mechanize::_warn; $agent->agent('Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.2.3) Gecko/20100407 Ubuntu/9.10 (karmic) Firefox/3.6.3'); $agent->get($url); # 用户名/密码登录 $agent->submit_form( form_number => 1, fields => { password => $pw, username => $un }, ); die unless ($agent->success); ##页面上所有link my @links = $agent->links(); my $write_url; ## 编辑twiki内容的url my $attach_url; ## 上传附件的url for my $wlink (@links) { my $url_str = $wlink->url; if ($url_str =~ /$domain//twiki//bin//edit.pl//Tech//$topic/?t/ ) { $write_url = $url_str; } if ($url_str =~ ///twiki//bin//attach.pl//Tech//$topic/ ) { $attach_url = $url_str; } } if ($write_url) { #print "Write Twiki/n"; write_twiki(); } if ($attach_url ) { #print "Attache File/n"; attach_file(); } ############## sub write_twiki { $agent->credentials($un, $pw); ### HTTP Basic authentication for all sites and realms until further notice $agent->get($write_url); if ($agent->success ) { #print $agent->content; my $text_inputs = ($agent->find_all_inputs( ## 第一个textare type => 'textarea', name_regex => qr/^text$/, ))[0]; ## 编辑twiki的数据 my $orig = $text_inputs->value; ## 原来的内容 my $att_img =""; ## 上传的图片放到twiki最后(或者其他位置) if ($orig =~ /(<img/ssrc.*?ATTACHURLPATH[^>]+//>).*/) { $att_img = $1; } $orig =~ s//*/s*test/.gif: <br //>//ig; $orig =~ s/$att_img//g; $orig =~ s//s+$//g; my $today = strftime("%Y.%m.%d", localtime( time() ) ); my $content = $orig."/n---++ $today/n"; ## twiki语法 for my $data (@datas) { $content .= " 1 $data OK. /n"; } $content .= "$att_img /n"; #print $content; $agent->submit_form( form_number => 1, fields => { text => $content}, ); die unless ($agent->success); } else { #print $agent->content; print $agent->status(); my $res= $agent->response(); print $res->as_string } } sub attach_file { $agent->credentials($un, $pw); ### HTTP Basic authentication for all sites and realms until further notice $agent->get($attach_url); if ($agent->success ) { #print $agent->content; $agent->form_number(1); $agent->field('filepath' =>'image/test.gif'); $agent->field('createlink' => 1); $agent->submit(); die unless ($agent->success); } }

感觉还是不错的。基于此基础，可以干很多事情哦～

用WWW::Mechanize来写twiki相关推荐

python模块学习---mechanize(模拟浏览器)
mechanize是非常合适的模拟浏览器的模块. 它的特点主要有: 1 http,https协议等. 2 简单的HTML表单填写. 3 浏览器历史记录和重载. 4 Referer的HTTP头的正确添加 ...
php和python写爬虫-可以写爬虫的那么多，为什么只有python火了？
原标题:可以写爬虫的那么多,为什么只有python火了? 网络爬虫: 网络爬虫(又被称为网页蜘蛛,网络机器人,在FOAF社区中间,更经常的称为网页追逐者),是一种按照一定的规则,自动地抓取万维网信息的 ...
php和python写爬虫-python和php哪个更适合写爬虫
python和PHP相比较,python适合做爬虫.原因如下抓取网页本身的接口相比与其他静态编程语言,如java,c#,C++,python抓取网页文档的接口更简洁:相比其他动态脚本语言,如per ...
python模拟浏览器模块,python模块学习---mechanize(模拟浏览器)
mechanize是非常合适的模拟浏览器的模块. 它的特点主要有: 1 http,https协议等. 2 简单的HTML表单填写. 3 浏览器历史记录和重载. 4 Referer的HTTP头的正确添加 ...
TWiki 语法格式(TWiki语法教程及TWiki使用技巧)
TWiki 语法格式(TWiki语法教程及TWiki使用技巧) Winter 翻译用TWiki 编辑就和平时直接写文本一样简单 -- 就像写email.如果你喜欢,你可以使用HTML代码,但是并不要 ...
用python写网络爬虫第2版 pd_用Python写网络爬虫(第2版)
用Python写网络爬虫(第2版)电子书畅销的Python网络爬虫发实战图书全新升级版,上一版年销量近40000册. 针对Python 3.6版本编写. 提供示例完整源码和实例网站搭建源码,确保用户 ...
python为什么叫爬虫-可以写爬虫的那么多，为什么只有python火了？
原标题:可以写爬虫的那么多,为什么只有python火了? 网络爬虫: 网络爬虫(又被称为网页蜘蛛,网络机器人,在FOAF社区中间,更经常的称为网页追逐者),是一种按照一定的规则,自动地抓取万维网信息的 ...
python中脚本是指什么_你用Python写过最牛逼的程序/脚本是什么？
有网友在 Quora 上提问,「你用 Python 写过最牛逼的程序/脚本是什么?」.本文摘编了 3 个国外程序员的多个小项目,含代码. Manoj Memana Jayakumar, 3000+ 顶 ...
Python实例教程Mechanize模块编写爬虫的要点解析
Python使用Mechanize模块编写爬虫的要点解析 mechanize是对urllib2的部分功能的替换,能够更好的模拟浏览器行为,在web访问控制方面做得更全面.结合beautifulsoup ...

用WWW::Mechanize来写twiki

用WWW::Mechanize来写twiki相关推荐

最新文章

热门文章