小编Dul*_*ude的帖子

use POSIX;
my $test = "";
my $elements = scalar(@array);
my $tablecount = ($elements / 100);
my $tblnum = ceil($tablecount);
my @hundred;
 foreach $test (@array) {
   until ($tblcnt == $tblnum){
   @hundred(@array, 0, 99);
   print qq~<table id="$tblcnt"><tr><td>~;
     foreach $test (@hundred){
     print qq~<tr><td>$test</td></tr>~;
     }
   print qq~</table>~;
   $tblcnt++;
   }
}

UG!我正在努力学习这一点但是,我无法做到这一点!

我试图动态生成"x"个html表,每个表最多填充100行数据.

我可以获得所需的表计数,我可以循环,我可以添加,但有一件事是肯定的:我不能写代码.

这是想要的结果:

1-我有一个数组的1027行数据.

2-我希望我的脚本制作11个html表,每个表最多100行.(实际上是图层)默认情况下不会通过css看到.这样我可以在桌子上做一些隐藏,如"下一个上一页"导航.我不需要跨浏览器css的帮助.)

3-如果有更好的方法,无论如何我都能理解的方法,除了使用visible =方法之外,请详细说明!

我放弃了尝试让Perl制作100页,其中"next prev"链接到数据,所以我使用css javascript onclick = yadayada来"显示数据".

我认为在循环中移出100行数组并将这些行放在他们自己的html表中会更容易.不.

我悲惨地失败了,需要帮助.