从Perl中的MediaWiki::API提取重定向标题列表,可以通过以下步骤实现:
cpan MediaWiki::API
use MediaWiki::API;
my $mw = MediaWiki::API->new(); $mw->base_url('https://your-wiki-site.com/w/api.php');
$mw->set_user_agent('YourBot/1.0');
$mw->login({lgname => 'YourUsername', lgpassword => 'YourPassword'});
my $result = $mw->get({action => 'query', list => 'allpages', apfilterredir => 'redirects', aplimit => 'max'});
my @redirects = map { $_->{title} } @{$result->{query}->{allpages}};
foreach my $redirect (@redirects) { print "$redirect\n"; }
以上步骤中,我们使用了MediaWiki::API模块来与维基站点进行交互,并通过查询API获取重定向页面的列表。最后,我们使用循环遍历打印出重定向标题列表。
腾讯云相关产品和产品介绍链接地址:
领取专属 10元无门槛券
手把手带您无忧上云