我如何使用Perl來提取HTML文件的特定部分

Question

我是Perl的新手，我試圖讀取HTML文件的<div class="one">之間的特定內容。

HTML文件：

<div class="one"> 

    <div id="two">Donec eu libero sit amet quam egestas semper. Aenean ultricies mi vitae est. Mauris placerat eleifend leo. 
    </div> 

    <pre>Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. 
    </pre> 

</div> 

Perl代碼：

my $file = "content.html"; 

if (-e $file) { 
    open(IN, $file); 
    while (<IN>) { 
     chomp($line = $_); 

     #print "$line\n"; 
    } 
} 

@contents = <IN>; 

#check to if content in html file is in the right location, 
#if content is in correct location (div class="one") 
#print content in div two and three if exist 

for (my $i = 0 ; $i <= $#contents ; $i++) { 
    if (!$contents[$i] =~ m/^\s*<div/ && $contents[$i] =~ m/class\s*=\s*"one"/) { 
     print "content in wrong location"; 
    } 
    else { 
     if ($contents[$i] =~ m/^\s*<div/) { 
      print "$_"; 
     } 
     else ($contents[$i] =~ m/^\s*<pre/) { 
      print "$_"; 
     } 
    } 
} 

Answer 1

我不得不使用HTML::TreeBuilder這是善於處理破碎HTML一些成功。