Changeset 10404
- Timestamp:
- 04/25/08 11:38:23 (4 months ago)
- Location:
- lang/perl/WebService-Simple/trunk
- Files:
-
- 1 added
- 3 modified
-
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)
Legend:
- Unmodified
- Added
- Removed
-
lang/perl/WebService-Simple/trunk/MANIFEST
r10399 r10404 3 3 example/flickr_json.pl 4 4 example/flickr_search.pl 5 example/hatenastar_jsonp.pl 5 6 example/lingr.pl 6 7 inc/Module/Install.pm -
lang/perl/WebService-Simple/trunk/example/flickr_json.pl
r10336 r10404 12 12 my $response = 13 13 $flickr->get( { method => "flickr.photos.search", text => "cat" } ); 14 ${ $response->content_ref } =~ s/jsonFlickrApi\((.+)\)/$1/;15 14 print Dumper $response->parse_response; 16 15 -
lang/perl/WebService-Simple/trunk/lib/WebService/Simple/Parser/JSON.pm
r10287 r10404 21 21 { 22 22 my $self = shift; 23 $self->{json}->decode( $_[0]->content ); 23 my $content =$_[0]->content; 24 # JSONP to pure JSON 25 $content =~ s/[a-zA-Z0-9_]+\((.+)\)/$1/; 26 $content =~ s/;$//; 27 $self->{json}->decode( $content ); 24 28 } 25 29
![(please configure the [header_logo] section in trac.ini)](/share/chrome/site/your_project_logo.png)