This snippet will extract the src attributes any img tags that are found:

use strict;
use IO::File;
use HTML::Parser;    # version 3.15, by the way

# get the contents of the HTML file
my $fh = new IO::File('google.html');
my $html = do {local $/; <$fh>};

my $parser = HTML::Parser->new(api_version => 3);
$parser->handler(start => \&start, 'self,tagname,attr');
$parser->parse($html);

sub start {
    my ($parser,$tag,$attr) = @_;
    return unless $tag eq 'img';

    # insert code to process the image file
    print $attr->{src}, "\n";
}
[download]

Jeff

R-R-R--R-R-R--R-R-R--R-R-R--R-R-R--
L-L--L-L--L-L--L-L--L-L--L-L--L-L--

Hey Jeffa,
Thanks for the code snippet. I tried running it though and I got this error: "Can't locate object method "handler" via package "HTML::Parser" at parser.pl line 14 <GEN0> chunk 1". Any idea what's wrong?

-Stamp_Guy

-- Randal L. Schwartz, Perl hacker

You might also want to look at HTML::LinkExtor, which I don't think existed when merlyn wrote that column, but which is designed specifically around this kind of problem.

Update: merlyn is, of course, right--LinkExtor won't give you the context for reinserting the tags (bad ChemBoy! No coffee!). However, the reason I pointed it out is that HTML::Filter is deprecated--if you're going to write your own, similar program, HTML::TokeParser or HTML::PullParser is a more appropriate solution.




---

If God had meant us to fly, he would *never* have give us the railroads.
    --Michael Flanders

Well, HTML::LinkExtor is fine if you just want the links, but in a transformation like this, you also need all the non-link text as well. Unless you were just replacing the entire file with only a bunch of images. {grin}

-- Randal L. Schwartz, Perl hacker

I'm beginning to think that Vroom should place a "search merlyn's columns" box next to the "search cpan" box. that way we can find the answer to our questions easier and quicker. :~)

Stuffy
That's my story, and I'm sticking to it, unless I'm wrong in which case I will probably change it ;~)