PerlでHTMLからリンク抜き出すの教えてくだされ。 重複無しで整列して表示したりするのきぼー。
下のは練習に書いてみたやつ。 なぜか最後のprintでコンパイルエラー出まする。
study $html;
$pattern = '<A href="([^"]+)">';
while ( $html =~ /$pattern/is ) {
$html =~ s/$pattern//is;
push( @_, $1 );
print "$1\n";
}
#print "$_\n" foreach(@_);
