最近的项目需要批量的把access或是excel里的内容加入到mediawiki里， 于是研究了一下mediawiki的api。 下面是一个perl的程序，用到了MediaWiki::API. 可以很方便的操作MediaWiki里的文章。 首先是创建一个Mediawiki的对象, 配置要使用的wiki，以及脚本调用的用户和密码 [code lang="perl"] my $mw = MediaWiki::API->new(); $mw->{config}->{api_url} = "http://wikisaddress.com/api.php"; $mw->login( { lgname => 'username', lgpassword => 'password' } ) || die $mw->{error}->{code} . ': ' . $mw->{error}->{details}; [/code] 之后就可以操作wiki里的文章了 [code lang="perl"] $mw->edit({ action => 'edit', #this must be set, even the method name is edit title => "title of [...]
Posts tagged Perl
Write a UTF8 file
open F, “>:utf8″, “file”;
Perl中unicode的问题
下面的程序会检测灵山的最新内容 两点需要注意： use utf8; 这句使得这个程序中的字符编码为utf8 $doc = Encode::decode(“gbk”, $doc); 这句的作用是把gbk的字符转换为utf8 #! /usr/bin/env perl use warnings; use LWP::Simple; use Encode; use utf8; $doc = get ‘http://www.birdsee.com/files/article/info/88/88291.htm’; $doc = Encode::decode(“gbk”, $doc); #print $doc; if ($doc =~ /.*回、(.*)<\/a>.*/) { print $1.”\n”; }
