從腳本中提取數據的Perl腳本

Question

我需要一個Perl腳本來解析一個簡單的2列HTML表格。

該表格包括：第1列用戶名和第2列他/她在線的時間。

我需要的數據爲：名稱Time_online

我試圖HTML::TreeBuilder和HTML::Parser但是沒有結果。

我想以某種方式獲取和操縱這些數據。謝謝！

<h1>Users currently online</h1> 
<table class="list-table" cellpadding="3" cellspacing="1" summary="Data for online_users"> 
<thead> 
<tr class="list-header"> 
<th class="list-table" id="online_users_name"> 
User name 
</th> 
<th class="list-table" align="right" id="online_users_online_time_pretty"> 
Online time   
</th> 
    </tr> 
    </thead> 

    <tbody> 
       <tr class="odd"> 
       <td class="list-table" headers="online_users_name"> 
       <a href="Link">Jack Boauldwin</a> 
       </td> 

       <td class="list-table" align="right" headers="online_users_online_time_pretty"> 
       11 minutes 
       </td> 
      </tr> 
     <tr class="even"> 

       <td class="list-table" headers="online_users_name"> 
       <a href="Link">Sarah James</a> 
       </td> 

       <td class="list-table" align="right" headers="online_users_online_time_pretty"> 
       1 minutes 
       </td>    
      </tr> 

       <tr class="odd"> 


       <td class="list-table" headers="online_users_name"> 
       <a href="Link">Greg Brown</a> 
       </td> 

       <td class="list-table" align="right" headers="online_users_online_time_pretty"> 
       0 minutes 
       </td> 

      </tr>  
</tbody> 
</table> 

Answer 1

使用HTML::TableExtract。