Changeset 10412 for lang/perl/WebService-Simple

Timestamp:

04/25/08 12:10:01 (5 years ago)

Author:

yusukebe

Message:

google の検索結果が json で返ってくるのでそのサンプルを追加
結構便利

Location:

lang/perl/WebService-Simple/trunk/example

Files:

• flickr_json.pl (modified) (1 diff)
• flickr_search.pl (modified) (1 diff)
• google_search.pl (added)

lang/perl/WebService-Simple/trunk/example/flickr_json.pl

@@ -13 +13 @@
   $flickr->get( { method => "flickr.photos.search", text => "cat" } );
 print Dumper $response->parse_response;
-

lang/perl/WebService-Simple/trunk/example/flickr_search.pl

@@ -3 +3 @@
 use WebService::Simple;
 use Data::Dumper;
-use utf8;
-binmode STDOUT, ":utf8";
 
 my $api_key = $ARGV[0] || "your_api_key";