Changeset 10404 for lang/perl/WebService-Simple/trunk/example

Timestamp:

04/25/08 11:38:23 (7 months ago)

Author:

yusukebe

Message:

jsonp 形式 を pure json にするハックを JSON.pm に加えた

Location:

lang/perl/WebService-Simple/trunk/example

Files:

• flickr_json.pl (modified) (1 diff)
• hatenastar_jsonp.pl (added)

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

@@ -12 +12 @@
 my $response =
   $flickr->get( { method => "flickr.photos.search", text => "cat" } );
-${ $response->content_ref } =~ s/jsonFlickrApi\((.+)\)/$1/;
 print Dumper $response->parse_response;