Maybe I am over simplifying this, but all those modules and all that code looks a little overkill, if the HTML file mentioned is the only file. Something quick'n'dirty like this would do too (to start with, of course), right?
$\="\n"; print "<Products>"; open FH, "<prodnr.html"; while(<FH>) { if($_ =~ /HREF="(.*pdf)".*(\d{7}) ([^<]+)/) { print "<Product>"; print "\t<Name>$3</Name>"; print "\t<PDF>$1</PDF>"; print "\t<Number>$2</Number>"; print "</Product>"; } } close FH; print "</Products>";
In reply to Re: HTML::Parser problem
by b10m
in thread HTML::Parser problem
by Peamasii
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |