1 #!/usr/bin/perl 2 3 use strict; 4 use warnings; 5 use SOAP::Lite; 6 use Data::Dumper; 7 8 SOAP::Data->import('name'); 9 10 my $response = SOAP::Lite 11 -> uri( 'urn:GoogleSearch' ) 12 -> proxy( 'http://api.google.com/search/beta2' ) 13 -> doGoogleSearch( 14 15 name( 'key' => 'yourdeveloperkeyhere' )->type( 'string' ), 16 name('q','chicago.pm')->type('string'), 17 name('start',0)->type('int'), 18 name('maxResults',2)->type('int'), 19 name('filter',1)->type('boolean'), 20 name('restrict','')->type('string'), 21 name('safeSearch',0)->type('boolean'), 22 name('lr','')->type('string'), 23 name('ie','')->type('string'), 24 name('oe','')->type('string') 25 26 ); 27 28 my $result = $response->result(); 29 print Dumper( $result ); |