Google Web APIs を使ってみる

手前味噌ですみませんが、書籍のご紹介 (宣伝)。 Web サービスの解説をしているムック本、 最新 Web サービス API エクスプローラ が 2005/9/23 に発売されました。 この中の Google の記事を執筆させて頂きました。 　 技術評論社 最新 Web サービス API エクスプローラ 〜Amazon、はてな、Google、Yahoo! 4大Webサービス完全攻略 B5 判／176 ページ 　 2005年9月23日発売／1554円 (税込)／ISBN4-7741-2496-6

	java -classpath googleapi.jar com.google.soap.search.GoogleAPIDemo ライセンスキー search 検索語

	GoogleSearch google=new GoogleSearch();
	google.setKey(自分のライセンスキー);
	google.setQueryString(検索文字列);
	google.setLanguageRestricts("lang_ja");		// 日本語サイトに制限 (オプション)
	
	GoogleSearchResult result=google.doSearch();

	GoogleSearchResultElement[] element=result.getResultElements();
	for (int i=0;i<=element.length-1;i++)
	{
		// element[i] の情報を使う
	}

	use SOAP::Lite;
	
	my $googleSearch = SOAP::Lite -> service("file:GoogleSearch.wsdl");
	my $key='ライセンスキー';
	my $query="検索語";
	
	my $result = $googleSearch -> doGoogleSearch($key, $query, 0, 10, "false", "", "false", "", "latin1", "latin1");
	print "About ".$result->{"estimatedTotalResultsCount"}."results.\n";

	use SOAP::Lite;
	use Jcode;
	
	my $googleSearch = SOAP::Lite -> service("file:GoogleSearch.wsdl");
	my $key='ライセンスキー';
	my $query="検索語";
	
	my $result = $googleSearch -> doGoogleSearch($key, jcode($query)->utf8, 0, 10, "false", "", "false", "lang_ja", "UTF-8", "UTF-8");
	print "About ".$result->{"estimatedTotalResultsCount"}."results.\n";

	use SOAP::Lite;
	use Encode qw/encode decode/;
	use Encode::Guess qw/euc-jp shiftjis 7bit-jis/;
	
	my $googleSearch = SOAP::Lite -> service("file:GoogleSearch.wsdl");
	my $key='ライセンスキー';
	my $query="検索語";
	
	my $result = $googleSearch -> doGoogleSearch($key, decode("Guess",$query), 0, 10, "false", "", "false", "lang_ja", "UTF-8", "UTF-8");
	print "About ".$result->{"estimatedTotalResultsCount"}."results.\n";