HTML::Parser

[Matej Kovacic]

Hi,

I have the following problem. I have the database with HTML documents in
each line. I want to extract all links from the HTML code.

So the program should look like this:

use HTML::Parser;
use strict;

# open the file...

while(<FILE>)
{
  my $fullhtml= $_;

  my  @tags;
  my $p=HTML::Parser->new(start_h=>[\@tags,"text"],
       end_h=>[\@tags,"text"]);
  $p->parse($fullhtml);
  @tags=map($_=$$_[0],@tags);

  print "TAGS: @tags\n";
}

But @tags are empty!

Any help?

bye, Matej