如何使用TCL将两个数组组合成两个列数据

Question

我还有另外一个问题，我如何将两个数组组合成两列。

我看过一个zip命令，例如 set n $a.zip(b) puts $output $n

但是当我保存文件时，它只是一行。请建议。

Answer 1

您可以使用lmap模拟zip函数：

out.C

如果您使用的是早于8.6的Tcl版本，那么您必须自己模仿% set a {1 2 3} % set b {4 5 6} % lmap x $a y $b {list $x $y} {1 4} {2 5} {3 6} % puts [join [lmap x $a y $b {list $x $y}] \n] 1 4 2 5 3 6 ，例如显示here。

Answer 2

我认为没有任何内置功能，但实施起来非常简单：

<?php while($row = mysqli_fetch_array($result))
{

    echo '<tr>';
    echo '<td class='.$row['si_grade'].'></td>';
    echo '<td class='.$row['att_grade'].'></td>';
    echo '<td class='.$row['pro_grade'].'></td>';
    echo '<td class='.$row['qot_grade'].'></td>';
    echo '<td class='.$row['qoe_grade'].'></td>';
    echo '</tr>';
}