Question

我正在使用HTML :: TagTree，因为它似乎很容易为表格创建html文件。我想将html链接添加到某些单元格中的文本。

从here提供的文档中，我无法获得有关如何为单元格中的文本添加新标签的明确答案。这是我的代码。

要关注的主线：$ new_row-> td（$ 1，'style = text-align：center'，'a：href =“ second_page.html”'）

我认为我不太清楚如何添加更多标签和属性。有人可以帮忙吗？

#!/usr/bin/env perl
use strict;
use warnings;
use HTML::TagTree;

my $filename = 'list.txt';
my $html = HTML::TagTree->new('html');   # Define the top of the tree of objects.
my $head = $html->head();                # Put a 'head' branch on the tree.
my $body = $html->body();                # Put a 'body' branch on the tree
$head->title("Report");
$head->meta('', 'name=author CONTENT="xxx"');
$body->div->h1('Main page name');           # Example of method chaining to create
                                         # a long branch.
my $table = $body->table('', 'width=100% border=1');
my $row1 = $table->tr();
$row1->td('Feature Code','style=background-color:khaki;text-align:center');
$row1->td('Feature Name','style=background-color:khaki;text-align:center');
$row1->td('% completed','style=background-color:khaki;text-align:center');

open(my $fh, '<', $filename)
  or die "Could not open file '$filename' $!";

while (my $row = <$fh>){
    if($row =~ m/([.\d]+): (.+)/){
        my $new_row = $table->tr();
        $new_row->td($1,'style=text-align:center','a:href="page_for_each_item.html"');  
        $new_row->td($2);  
    }
}


# Print to STDOUT the actual HTML representation of the tree
$html->print_html();

Answer 1

经过几次尝试，我认为我找到了一种方法：

my $new_row = $table->tr();
my $text = $html->object();
$text->a($original_text,"href=second_page.html");
$new_row->td($text,'style=text-align:center');

如何使用HTML :: TagTree将链接添加到单元格？

1 个答案: