從表中讀取數據到散列

Question

我想從表中讀取數據轉換爲散列，然後將數值和價格拆分成數組。 例如： 然後，我想用用戶輸入過濾添加價格。 如果用戶選擇附屬品然後我想讀的配件，是001的值，然後得到的001的價格是10

所有的編碼是Perl

完成感激，如果有人給我一些想法。

感謝

Answer 1

檢查：http://www.perl.com/pub/2003/09/17/perlcookbook.html

「從CPAN使用HTML :: TableContentParser模塊：

use HTML::TableContentParser; 

$tcp = HTML::TableContentParser->new; 
$tables = $tcp->parse($HTML); 

foreach $table (@$tables) { 
    @headers = map { $_->{data} } @{ $table->{headers} }; 
    # attributes of table tag available as keys in hash 
    $table_width = $table->{width}; 

    foreach $row (@{ $tables->{rows} }) { 
    # attributes of tr tag available as keys in hash 
    foreach $col (@{ $row->{cols} }) { 
     # attributes of td tag available as keys in hash 
     $data = $col->{data}; 
    } 
    } 
} 

」