Re: Winning an Intranet competition with the aid of WWW::Mechanize

[merlyn]

Why did you use:

    my $text = $mech->content;

    my $tp = HTML::TokeParser->new(\$text);

    while (my $tag = $tp->get_tag('img')) {
        print "Found image: ", $tag->[1]{src}, "\n";
    }

and not simply:

for ($mech->images) {
  print "Found image: ", $_->url_abs, "\n"
}

See, I would have won. Less typing. :)