如何从数据库取出内容，动态生成二维数组，并打印出这个数组中的元素

zhlong8

你不需要明确增加，只要访问到它就会自动地安静地增长到长度8，不会报 ArrayOutOfRange 之类的异常的

MMMIX

回复 10# 草中宝


    我就不明白了，@rows 是个数组，它的成员也个个是数组（引用）。既然都是数组，那么给它新增成员还有什么要指导的？你用 unshift, push, splice, arr[idx] = val, 都可以达到目的。

sohusina

你的意思是把undef的变量值加入一个数组里面吧？

草中宝

sohusina 发表于 2015-09-14 09:12
你的意思是把undef的变量值加入一个数组里面吧？

楼上的各位高手，不好意思，上周有点忙。需求是这样的，比如数据库中现在的信息如下
id   name         ip                      port      status    stamp
---  ------------  -----------------  --------- --------- -------------------------
1     Server1     192.168.0.101   10000    1           2015-09-10 13:00:01
2     Server2     192.168.0.102   10000    1           2015-09-10 13:00:02
3     Server3     192.168.0.103   10000    1           2015-09-10 13:00:03

一共是3行6列数据。如果只是把上面的这个3行6列信息，放进二维数组中，确实是可以像MMMIX 说的，
my @rows;

while (@arr = $sth->fetchrow_array) {
     push @rows, [@arr];
}

执行后，@rows即是我需要的二维数据。但现在我要把从数据库中取到的3行6列数据信息，先测试下对应的ip是否可以ping通，对应的端口号是否开着的，比如测试结果都是1吧（红色字体表示），
1     Server1     192.168.0.101   10000    1           2015-09-10 13:00:01     1
2     Server2     192.168.0.102   10000    1           2015-09-10 13:00:02     1
3     Server3     192.168.0.103   10000    1           2015-09-10 13:00:03     1

这样就不能简单的
while (@arr = $sth->fetchrow_array) {
     push @rows, [@arr];
}
啦，因为每一行测试的结果“1”还没有加进去呢。或者说在“push @rows, [@arr];”之前，这个增加测试结果的赋值语句该怎么写呢（不是测试语句）。

这样说，大家应该明白我的意思了吧？

请大家别见笑，对perl确实是不懂。

sohusina

while里面加入一行，

push @arr,1;

MMMIX

草中宝 发表于 2015-09-14 09:58
对perl确实是不懂。

可以看出来。所以还是先学学 Perl 的基础知识吧，然后你就不会再在这种基础问题上浪费时间了。

sohusina

Perl允许在数组中随时填加新的数组单元，这个时候系统会在新加入数组单元时自动扩展数组的存储空间和长度，所以说，Perl中的数组是动态数组。

草中宝

感谢MMMIX 、sohusina 、zhlong8 等不厌其烦的回复，我先按sohusina 的方法测试下。

以前没有接触过perl，这段时间看了一下，才知道perl确实太厉害了，能完成太多的工作了。之所以没接触perl，主要是平时工作没有用到perl。公司的项目，底层开发用C++，上层用java，尽管在这个论坛也注册了10多年了，但仍然对perl的用途一直都不明白。

草中宝

sohusina 发表于 2015-09-14 10:13
while里面加入一行，

push @arr,1;

这个可以，感谢。

sohusina

回复 19# 草中宝


    互相学习。呵呵。