in reply to MediaWiki::API problem
#!/usr/bin/perl use strict; use warnings; use MediaWiki::API; my $url = 'http://en.wikipedia.org/w/api.php'; my $mw = MediaWiki::API->new( {api_url => $url} ); binmode STDOUT,':encoding(utf8)'; if ( my $ref = $mw->api({ action => 'query', meta => 'siteinfo' } )) { print $ref->{query}->{general}->{sitename}, "\n"; } my $page = $mw->get_page( { title => 'Main Page' } ); print $page->{'*'}, "\n";
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: MediaWiki::API problem
by danj35 (Sexton) on May 25, 2011 at 09:46 UTC | |
by Khen1950fx (Canon) on May 25, 2011 at 14:37 UTC | |
by NightRain (Initiate) on Sep 15, 2011 at 00:35 UTC |