1#!/usr/bin/perl 2 3BEGIN { 4 use FindBin qw($Bin); 5 use lib ("$Bin/../blib/lib"); 6} 7use strict; 8use Data::Dumper; 9use WebService::Technorati; 10use XML::XPath; 11use constant DEBUG => 1; 12 13 14my $apiKey = 'XXXX_api_key_XXXX'; 15my $keyword = 'http://www.arachna.com/roller/page/spidaman'; 16my $t = WebService::Technorati->new(key => $apiKey); 17my $q = $t->getSearchApiQuery($keyword); 18if (DEBUG) { 19 my $result_xp = XML::XPath->new(filename => "$Bin/../t/testdata/search.xml"); 20 $q->readResults($result_xp); 21} else { 22 $q->execute; 23} 24my $term = $q->getSubjectSearchTerm(); 25print "term: $term\n"; 26print Dumper($term); 27my @matches = $q->getSearchMatches(); 28 29for my $match (@matches) { 30 print Dumper($match); 31} 32