Introduction to Web Services with Perl

< > 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

#!/usr/bin/perl
# A test of the Google API

use strict;
use warnings;

use SOAP::Lite;

my $google_search = SOAP::Lite->service("file:./GoogleSearch.wsdl");

my $google_key='XXXXXXXXXXXXXXXXXXXXXXXXXXXXX';

my $query = 'kw.pm.org';

my $result = $google_search -> 
	doGoogleSearch(
		$google_key, $query, 0, 10, "false", "",  "false",
		"", "latin1", "latin1"
	);

die $google_search->call->faultstring if $google_search->call->fault;

print "About $result->{'estimatedTotalResultsCount'} results.\n";