in reply to Problems with cruft-finding script
As a general strategy, when in doubt, Dumper :)
use HTML::LinkExtractor; use Data::Dumper; my $input = q{ <blockquote cite="http://crazyinsomniac.perlmonk.org/index2.html"> Now that's some goood feedass (ass back it's all good) %') </blockquote> If <a href="http://perl.com/"> I am a LINK!!! </a> <IMG SRC="YODAYODAYODAYODAYODAYODAYODAYODAYOD.png" ALT="It's YODA +!"> }; my $LX = new HTML::LinkExtractor(); $LX->parse(\$input); print Dumper($LX->links); __END__ $VAR1 = [ { 'cite' => 'http://crazyinsomniac.perlmonk.org/index2.html' +, '_TEXT' => '<blockquote cite="http://crazyinsomniac.perlmo +nk.org/index2.html"> Now that\'s some goood feedass (ass back it\'s all good) %\') </blockquote>', 'tag' => 'blockquote' }, { '_TEXT' => '<a href="http://perl.com/"> I am a LINK!!! </a +>', 'href' => 'http://perl.com/', 'tag' => 'a' }, { 'alt' => 'It\'s YODA!', 'src' => 'YODAYODAYODAYODAYODAYODAYODAYODAYOD.png', 'tag' => 'img' } ];
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Problems with cruft-finding script
by aarestad (Sexton) on Dec 10, 2003 at 18:12 UTC |