如何对作为perl脚本响应返回的数据进行对齐

时间:2013-11-07 12:29:41

标签: html perl alignment

我正在对perl脚本进行Jquery-Ajax调用以获取一些数据。 Perl脚本将进行数据库查询并将数据返回到HTML页面。

while (my @data = $statement->fetchrow_array())
{
    print "$data[6]  $data[3]  $data[5]";
    print "<br>";
}

返回的数据以胶合形式呈现在HTML页面中。我想以某种对齐形式显示数据。 数据[6]的最大长度可以是20.而其他两个的最大长度为10 10.

我该怎么做?任何帮助将受到高度赞赏。

1 个答案:

答案 0 :(得分:1)

正如mpapec所建议的那样:

print "<table>\n";
while (my @data = $statement->fetchrow_array()) {
    print "\t<tr>\n";
    print "\t\t<td>$_</td>\n" foreach ($data[6], $data[3], $data[5]);
    print "\t</tr>\n";
}
print "</table>\n";