求助！！！如何使用REST-Google？

[kit_9875507]

我用perl编程，使用REST-Google-Search模块提供的搜索功能，测试程序如下：

#!/usr/bin/perl
#! usr/bin/perl
use Encode;
use LWP::Simple;
use REST::Google::Search;

        REST::Google::Search->http_referer("http://ajax.googleapis.com/ajax/services/search/web");
    
        my $res = REST::Google::Search->new(
                q => "泰国语";
				
        );

        die "response status failure" if $res->responseStatus != 200;

        my $data = $res->responseData;
		my $index = 0;
      
        my @results = $data->results;
        print scalar(@results)."\n";
        foreach my $r (@results) {
                printf "\n";
                printf "title: %s\n",  $r->title ;
                printf "url: %s\n", $r->url;
				

但是这个程序每次只返回 4个结果，手动在Google上搜索结果是很多的

不知道怎么解决这个问题.还请各位大虾牛人热心帮助！！！！
跪谢！

[iambic]

加上参数start => 4返回后四条。

[kit_9875507]

[Quote=引用 1 楼 iambic 的回复:]
加上参数start => 4返回后四条。
[/Quote]
关键我是想要它把结果集全部返回 而不是4条

[iambic]

几百万结果都返回给你？那是不可能的。自己需要多少就自己多次调用吧，就是几行代码的封装而已。

[iambic]

看了下Google API的文档：
http://code.google.com/apis/websearch/docs/reference.html
可以加个rsz => 8，但是最大只能是8了。貌似加个filtered_cse可以到10，但是没仔细看对结果有影响没有。

[kit_9875507]

[Quote=引用 3 楼 iambic 的回复:]
几百万结果都返回给你？那是不可能的。自己需要多少就自己多次调用吧，就是几行代码的封装而已。
[/Quote]
感谢你的提示，我刚接触perl，对它的编程思路还没形成体系，我老觉得模块应该有一个接口让我设置

返回具体条目的参数...

没办法的话也只能多次调用了

[iambic]

这就像google网页搜索，不会一下子把所有的返回给你，而是分页。