Как добавить ссылку на ячейки, используя HTML :: TagTree? - PullRequest
Новая
       8

Как добавить ссылку на ячейки, используя HTML :: TagTree?

0 голосов
/ 20 февраля 2019

Я использую HTML :: TagTree, поскольку кажется, что легко создать HTML-файл для таблицы.Я хочу добавить HTML-ссылки на текст в некоторых ячейках.

Из предоставленной документации здесь я не могу получить четкий ответ о том, как добавить новый тег для текста внутри ячейки.Вот мой код.

Основная строка, на которой нужно сфокусироваться: $ 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();

1 Ответ

0 голосов
/ 20 февраля 2019

После некоторых попыток, я думаю, я нашел один способ сделать это: 

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');
...