自動搜尋google

shihyu

UID: 25181
帖子: 2
积分: 4
在线时间: 10 分钟

1^# shihyu 发表于 2007-09-23 16:32

自動搜尋google

[Copy to clipboard] [ - ]

CODE:

use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");

# Create a request
my $req = HTTP::Request->new(GET => 'http://www.google.com.tw/search?q=%E4%B8%AD%E6%96%87&ie=utf-8&oe=utf-8');

# Pass request to the user agent and get a response back
my $res = $ua->request($req);

# Check the outcome of the response
if ($res->is_success) {
print $res->content;
}
else {
print $res->status_line, "\n";
}

請問上面代碼怎麼修改成可以輸入要搜尋的字符串 & 輸出成 HTML 文件?

謝謝

shihyu

UID: 25181
帖子: 2
积分: 4
在线时间: 10 分钟

2^# shihyu 发表于 2008-03-01 14:15

知道上面代码的朋友可以说一下吗?

谢谢

Nosferatu

UID: 5185
帖子: 94
积分: 216
在线时间: 12 小时

3^# Nosferatu 发表于 2008-03-01 14:40

放弃吧，很久以前Google就不吃这一套了

放驴娃

UID: 1065
帖子: 164
积分: 377
在线时间: 1 天 12 小时

4^# 放驴娃发表于 2008-03-01 15:21

search "Google" on CPAN

qiqi562877

UID: 6326
帖子: 1
积分: 2
在线时间: 10 分钟

5^# qiqi562877 发表于 2008-03-06 18:09

#!c:\perl\bin\perl -w
use strict;
use LWP;
use IO::File;
use URI;
use HTTP::Request::Common qw(GET);
use Content;
my $url="http://www.google.cn/search";
&google($url);
sub google
{
my $url=shift;
my $search_url=URI->new($url);
my $ua = LWP::UserAgent->new;
$ua->agent("Yenibot/1.0" . $ua->agent);
$ua->env_proxy;
$search_url->query_form(
'q'=>'DNA','meta'=>'','complete'=>'1','h1'=>'zh-CN',
);
my $response = $ua->get($search_url);
my $content=$response->content();
my $h=new IO::File(">>c:\\hao123.html");
$h->print($content);
}

qiqi562877

UID: 6326
帖子: 1
积分: 2
在线时间: 10 分钟

6^# qiqi562877 发表于 2008-03-06 18:10

检索内容存在，c:\hao123.html里！

shihyu

UID: 25181
帖子: 2
积分: 4
在线时间: 10 分钟

7^# shihyu 发表于 2008-03-08 11:06

Can't locate Content.pm in @INC (@INC contains: C:/Perl/site/lib C:/Perl/lib .)
at C:\thrth.pl line 7.
BEGIN failed--compilation aborted at C:\thrth.pl line 7.

Content.pm?? 这要怎么安装?

Cpan > install Content 好像不对

Lonki

UID: 21498
帖子: 1
积分: 2
在线时间: 10 分钟

8^# Lonki 发表于 2008-03-08 12:10

另一个方法是Win32::OLE, 只要IE能做它就能, 无须额外Module
CPAN也有在其上封装好的IE Automation

qiqi562877

UID: 6326
帖子: 1
积分: 2
在线时间: 10 分钟

9^# qiqi562877 发表于 2008-03-08 13:24

不好意思的，那个use Content是多余的，把use Content去掉就可以了！这是从其他模块中挑出的程序，可能当时忘了删了！应该没事了，我自己已经试了！

shihyu

UID: 25181
帖子: 2
积分: 4
在线时间: 10 分钟

10^# shihyu 发表于 2008-03-08 14:09

OK... 感谢