作者littleshan (我要加入剑道社!)
看板perl
标题Re: [问题] 一段抓网页的程式
时间Thu Oct 21 03:38:36 2004
※ 引述《krist99 (只爱Calvin Klein)》之铭言：
: use LWP::Simple;
: use HTML::Parse;
: use HTML::Element;
: use URI::URL;
: $html = get $ARGV[0];
: $parsed_html = HTML::Parse::parse_html($html);
: for (@{ $parsed_html->extract_links((“a”)) }) {
是"a"
不是“a”
後者是全型符号
: $link = $_->[0];
: $url = new URI::URL $link;
: $full_url = $url->abs($ARGV[0]);
: print “$full_url\n”;
: }
: 请问为什麽没办法run??
: perl get.pl http://neural.cs.nthu.edu.tw/jang
: Unrecognized character \241 at get.pl line 7.
: 不懂错误讯息的意思??不认得第七行的字元\241???
: 另外请问要怎麽改成把网址就放在第五行??
: 而不要执行的时候在下参数??
: 谢谢^^
$html = get "
http://xxx.xxx.xxx/";
--
use BigInt
':constant';
eval{
local $SIG{ALRM}=
sub{
die "alarm\n"};
alarm 10;
foreach (
1..
2**
1024){}
alarm 0;
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.244.211