+ -
当前位置:首页 → 问答吧 → 二维数组的问题

二维数组的问题

时间:2010-10-22

来源:互联网

  1. #!/usr/bin/perl -w
  2. use strict;

  3. my @AoA= ( [ 0,0,0 ],
  4.                   [ 0, 0, 0 ],
  5.                      [ 0, 0, 0 ],
  6.                       [0, ],
  7.                );
  8. foreach my $i (0..2){
  9. foreach my $item (@{$AoA[$i]}[0]..@{$AoA[$i]}[2]){
  10.          $item+=1;print $item,"\n";
  11.          }
  12. }
复制代码
输出为
1
1
1

为嘛第二个数组没有操作啊,程序哪里有问题了,帮忙修改一下。谢谢。

作者: masylichu   发布时间: 2010-10-22

本帖最后由 zhlong8 于 2010-10-22 22:14 编辑

你的代码中这行
foreach my $item (@{$AoA[$i]}[0]..@{$AoA[$i]}[2]){

等于 foreach my $item (0 .. 0) {

所以,输出 1 1 1一点也不意外

作者: zhlong8   发布时间: 2010-10-22