use HTML::TokeParser; use LWP::Simple; my $stuff = get('http://some_url.com); my $file = HTML::TokeParser->new("$stuff"); while ( my $token = $file->get_tag("a")) { my $url = $token->[1]{href} || "-"; my $text = $file->get_trimmed_text("/a"); print "<a href=$url>$text</a><br>"; }
In reply to Re: Re: LWP and TokeParser
by silent11
in thread LWP and TokeParser
by silent11
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |