送交者: bluesea 于 2005-11-09, 14:13:55:
回答: 偶要再这么写下去，偶要开公司赚钱了 由 xj 于 2005-11-09, 13:56:23:
我perl从来没有写过一行。不过看着应该是。问题是你要搞
来这个组件，不然的话就要自己开发一个了。
use strict;
use warnings;
use LWP 5.64;
my $browser = LWP::UserAgent->new;
my $word = 'tarragon';
my $url = 'http://www.altavista.com/sites/search/web';
my $response = $browser->post( $url,
[ 'q' => $word, # the Altavista query string
'pg' => 'q', 'avkw' => 'tgz', 'kl' => 'XX',
]
);