Changeset 10404

Timestamp:

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

Author:

yusukebe

Message:

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

Location:

lang/perl/WebService-Simple/trunk

Files:

• MANIFEST (modified) (1 diff)
• example/flickr_json.pl (modified) (1 diff)
• example/hatenastar_jsonp.pl (added)
• lib/WebService/Simple/Parser/JSON.pm (modified) (1 diff)

lang/perl/WebService-Simple/trunk/MANIFEST

@@ -3 +3 @@
 example/flickr_json.pl
 example/flickr_search.pl
+example/hatenastar_jsonp.pl
 example/lingr.pl
 inc/Module/Install.pm

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;
 

lang/perl/WebService-Simple/trunk/lib/WebService/Simple/Parser/JSON.pm

@@ -21 +21 @@
 {
     my $self = shift;
-    $self->{json}->decode( $_[0]->content );
+    my $content =$_[0]->content;
+    # JSONP to pure JSON
+    $content =~ s/[a-zA-Z0-9_]+\((.+)\)/$1/;
+    $content =~ s/;$//;
+    $self->{json}->decode( $content );
 }