※ 引述《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