Extracting data from raw HTML

[deepuceg]

Hi everybody,
I had generated the links from and stored the web pages as text and i need to extract some fields from that text file using pattern matching

some portion of my text file is

<p><span>Contact Name:</span>Kent Busse</p>
 
<p><span>Contact Title:</span>Owner</p>
 

Now here is the which i had tried so far by parsing...

use bytes;

     $parser = HTML::Parser->new(text_h => [ sub { print TMPFILE shift },"dtext" ]);
    no bytes;
    $parser->parse($lines); #Parsing HTML files
 @lines= $lines;
     $name_tel;
    #my @content = <TMPFILE>;
     $temp;
     $cur_line;
     $prev_line;
     $full_content;
    foreach  $temp(@lines)
        { 
        # Searching Name and Telephone Number from the parsed text
    #    $temp = trim($cur_line);
        $temp =~ s/^\s+//;
        $temp =~ s/\s+$//;
        chomp($temp);
        $full_content .= $temp;
        }
 
        if ($cur_line ="~m/<h1> .+ </h1>/") 
           {
            print $prev_line .",";
            $name_tel .= $prev_line;
            push(@name_tel, $prev_line);
            $worksheet->write($row, 0, $prev_line); #Writing content in Excel Sheet
            $col++;
            }
 
        if ($cur_line =~m/<p> .+ <br>/) 
           {
            print $prev_line .",";
            $name_tel .= $prev_line;
            push(@name_tel, $prev_line);
            $worksheet->write($row, 1, $prev_line); #Writing content in Excel Sheet
            $col++;
            } 

etc..

I had written like this... Can anyone guide me in proceeding further..

[pbmods]

Heya, deepuceg. Welcome to TSDN!

Please use CODE tags when posting source code. See the REPLY GUIDELINES on the right side of the page next time you post.

Changed thread title to better describe the problem (did you know that threads whose titles contain phrases such as, 'need help' actually get FEWER responses?).