从表中读取数据到哈希

Question

我想将表中的数据读入哈希值，然后将值和价格拆分为数组。 例如： 然后我想用用户输入过滤添加价格。 如果用户选择了附件1，那么我想读取附件的值为001，然后得到001的价格为10。

所有编码都在perl中完成

感谢有人给我一些想法。

由于

Answer 1

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

＆＃34;使用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};
    }
  }
}

＆＃34;