1
我試圖使用MediaWiki API從某個維基百科標題獲取所有重定向,我想我幾乎在那裏,但我迷失在散列和數組的複雜數據結構中。如何從Perl中的MediaWiki :: API中提取重定向標題列表?
如何提取重定向標題列表?
在我詢問「日本」,應該得到看起來像這樣的列表,例如:
'JPN',"Land der aufgehenden Sonne","Das Land der aufgehenden
Sonne","Zipango","\x{65e5}\x{672c}","R\x{ec}b\x{11b}n"
(側面的問題:爲什麼我沒有得到UTF-8字符串的所有情況)
以下代碼由MediaWiki::API文檔改編而來。
use MediaWiki::API;
use warnings;
binmode STDOUT, ':utf8';
use JSON;
use Data::Dumper;
my $LANG="de";
my $mw = MediaWiki::API->new({ api_url => 'https://en.wikipedia.org/w/api.php' } );
my $mw_LANG = MediaWiki::API->new({ api_url => "https://$LANG.wikipedia.org/w/api.php" } );
my $wikititle ="Japan";
my $alltitles = $mw_LANG->api({
action => 'query',
titles => $wikititle,
prop => 'redirects',
format => 'json',
})
|| die $mw_LANG->{error}->{code} . ': ' . $mw_LANG->{error}->{details};
#just print to know how the structure looks like
print Dumper($alltitles);
my ($pageid,$langlinks) = each (%{ $alltitles->{query}->{pages} });
print "pageid $pageid\n";#yes works: this prints the page id
問題:如何獲得redirect-array
中的實際標題?
my $relinks = $alltitles->{'query'}->{'pages'}->{$pageid}->{'redirects'}; #no does not work!
foreach my $el (@{ $relinks->{'title'} }) {
print " $el $el->{'*'}\n";
}
'$ r - > {redirects} - > @ *'這是怎麼回事?是否類似於'$ _'的perl6版本?是不是需要一個特定的最低版本的Perl? – jmcneirney