从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获取重定向页面的列表。最后,我们使用循环遍历打印出重定向标题列表。
腾讯云相关产品和产品介绍链接地址:
云+社区技术沙龙[第14期]
云+社区技术沙龙[第4期]
第四期Techo TVP开发者峰会
云+社区技术沙龙[第7期]
云+社区技术沙龙[第22期]
云+社区技术沙龙[第21期]
云+社区技术沙龙[第8期]
腾讯云GAME-TECH沙龙
云+社区技术沙龙[第10期]
云+社区技术沙龙[第15期]
云+社区开发者大会 长沙站
领取专属 10元无门槛券
手把手带您无忧上云