CGI和表循环问题

时间:2015-12-04 06:12:47

标签: html perl loops cgi

我尝试使用cgi创建一个表,用数组中的内容填充它,但我似乎无法在线找到解决我问题的任何答案。我只有Java和C ++等语言方面的经验,所以我不完全确定我在编写脚本方面做了什么,但这就是我所拥有的。

$c -> start_html(-title=>'Hello World'),

$c -> start_table({ -border => 1, -width => %50},
    while($i <= 4){
            $c -> tr({
                while($j <= 7 && $i + $j <=26){
                    $c -> td($alpha[$i + $j]),
                    $j++,
                }}),
            $i++,
    },
$c -> end_table,

$c -> end_html;

在我看来,这似乎可以工作,但它在while($ i&lt; = 4)时不断返回编译错误,并且没有说明错误。我真的可以帮助理解这一点。

1 个答案:

答案 0 :(得分:1)

为了获得与你想要做的相同的效果,你可以使用带有范围的“map”功能,你最终会得到类似的东西。

my $i=0;
$c->table({-border=>1, -width => "%50"},
    map { $c->Tr(
        map { $c->td(($i<=26 ? $alpha[$i++] : ""),
            ); } (0..7)
        ) } (0..4)
    );