perl - 将项目添加到 perl cgi th

Question

有没有办法在使用 perl cgi 模块时向调用添加额外的参数（即类）？

我知道我们可以使用一堆打印/等，但我想看看我们是否可以使用 th

这是我的电话：

print th({-class=>'myClass'},['Col1','Col2',@MoreColumns]);

它为所有列设置 myClass。我只想为一列设置和/或为每列设置差异

我希望它是这样的：

<thead>
 <tr>
    <th class=specialClass>Col1
    <th class=AnotherClass>Col2
    <th class=ArrayClass>Col3FromArray
    <th class=ArrayClass>Col4FromArray
    <th class=ArrayClass>Col4FromArray
 </tr>
</thead>

perl cgi th([ 或者我需要使用一堆打印/循环吗？

Answer 1

1. 您预期的 HTML 或 XHTML 无效。<th>只能在<td>合法的地方使用；它不是特别的<tr>。如果您期待 XHTML（与 HTML 相对），还有两个问题：必须关闭所有标记并且必须引用所有属性值。

2. AFAIK CGI.pmHTML 构造方法也可以对单个字符串进行操作。下面的工作吗？

   print th({-class=>'specialClass'}, 'Col1'),
         th({-class=>'AnotherClass'}, 'Col2'),
         th({-class=>'ArrayClass'},   \@MoreColumns);