Try this:
if ( $response->is_success ) {
my $tp = HTML::TokeParser->new( \$response->decoded_content )
|| die "Can't open: $!";
while ( my $token = $tp->get_tag('img') ) {
print $token->[1]->{'src'}, qq{\n};
}
}
else {
print $response->decoded_content;
die $response->status_line;
}
__END__
Starting...<br /><br /><br />Success!http://www.projectwonderful.com/n
+ojs.php?id=39770&type=5
http://www.questionablecontent.net/images/patreonad.png
../images/logo14.png
http://www.questionablecontent.net/comics/2845.png
http://www.questionablecontent.net/images/1s1k.gif
http://www.questionablecontent.net/images/station.gif
http://www.questionablecontent.net/images/qc-vol04.jpg
http://www.questionablecontent.net/images/yelingboard.jpg
http://www.questionablecontent.net/images/18x24.jpg
http://www.questionablecontent.net/images/mlgshirt.jpg
../images/ag.gif
http://api.flattr.com/button/flattr-badge-large.png
http://www.questionablecontent.net/images/patreonad2.png
http://www.projectwonderful.com/nojs.php?id=138&type=2
Update: Added output. NB.: Saw solution above too late :-(
Regards, Karl
«The Crux of the Biscuit is the Apostrophe»
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|