Question

以下是我的循环（作为perl-CGI脚本的一部分编写）。我希望它使用html表标签在我的网页中打印。我该怎么做？

for($ff=0;$ff<scalar @phi;$ff++)
{

    print $res[$ff],"---->";
    printf("%0.2f",$omg[$ff]);
   print "<br>";
   print "\n";


}

Answer 1

我建议创建一个包含您感兴趣的数据的数据结构。

my @rows;
# Strange that you're getting the indexes from @phi
# and the data from two different arrays, @res and @omg
for (0 .. $#phi) {
  push @rows, {
    res => $res[$_],
    omg => sprintf('%0.2f', $omg[$_]),
  };
}

然后使用Template Toolkit处理该数据。

use Template;

my $tt = Template->new;
$tt->process('page.tt', { rows => \%rows });

在page.tt中你会有这样的事情：

<html>
  <head>
    <title>Data Page</title>
  </head>
  <body>
    <h1>Data Page</h1>
    <table>
[% FOR row IN rows -%]
      <tr><td>[% rows.res %]</td><td>[% rows.omg %]</td></tr>
[% END -%]
    </table>
  </body>
</html>

将这样的演示文稿分开可以更容易地更改数据的呈现方式。您甚至可以将模板提供给前端设计师以使其看起来更好 - 而且他们不需要知道Perl。

如何使用HTML标记以表格格式打印每个CGI脚本的输出

1 个答案: