[Perl]SimpleAPI Wikipedia APIのサンプルコード

Fri, 24 Sep 2010 20:05:21 +0900

ユーザーローカルが提供しているWikipediaの記述の一部を取得できるWeb APIを、Perlから呼び出すためのサンプルコード。コードの文字エンコードはUTF-8。標準出力へもUTF-8のまま出力。

#!/usr/bin/perluse strict;use warnings;# for warning "Wide character in print at ..."binmode(STDOUT, ":utf8");use URI::Escape;use LWP::Simple;use XML::Simple;my $item = '２ちゃんねる';$item = uri_escape($item);my $url = "http://wikipedia.simpleapi.net/api?keyword=$item";my $content = get($url);my $xml = XML::Simple->new();my $response = $xml->XMLin($content);print "language: $response->{result}->{language}\n";print "datetime: $response->{result}->{datetime}\n";print "body    : $response->{result}->{body}\n";print "strict  : $response->{result}->{strict}\n";print "length  : $response->{result}->{length}\n";print "redirect: $response->{result}->{redirect}\n";print "url     : $response->{result}->{url}\n";print "id      : $response->{result}->{id}\n";print "title   : $response->{result}->{title}\n";

Link(1) | Trackback(0) | Comment(0)

キーワード

Web API Wikipedia Perl サンプル プログラム

語句ログ - ニュース、プログラミング、システムトレードの用語解説 - 日本の注目ニュース、コンピュータープログラミング（C/C++,Perl,PHP,SQL）、システムトレード（FX,CFD,株価指数,先物）に関する語句（Word）を日本語や英語で解説