关于匿名hash的数组的foreach问题，很奇怪

lipch

有如下代码，
@newhash = (
{a,1},{b,2}
);
my ($newkey,$newvalue) = each %{$newhash[0]};
print "$newkey,$newvalue\n";
print "ok\n";
foreach my $newnewhash (@newhash) {
                        my ($key1,$value1) = each %{$newnewhash};
                                print "$key1,$value1\n";
                       
}

其输出结果是
a,1
ok
,
b,2

本意是 希望在 在foreach中输出@newhash全部匿名hash引用的值，即

a,1
ok
a,1
b,2

但为何少输出了一部分？ 如果#掉第一个my，则后面可以正常输出，不解，求高人指点。！！！
中途试过将@newhash 赋给一个副本，对副本进行一次同样的第一个my后面的操作，问题依旧，小白有点惶恐！！

[ 本帖最后由 lipch 于 2007-10-13 12:22 编辑 ]

milkharbor

each在取得hash的"键=>值"对的同时将其从hash中删除,因此你在foreach循环中是看不到{a,1}的

如果你在循环前重新赋值就可以得到正确的结果

lipch

原帖由 milkharbor 于 2007-10-13 12:59 发表
each在取得hash的"键=>值"对的同时将其从hash中删除,因此你在foreach循环中是看不到{a,1}的

如果你在循环前重新赋值就可以得到正确的结果

能否给出相应的代码？！！！！！！

milkharbor

@newhash = ( {a,1},{b,2} ); my ($newkey,$newvalue) = each %{$newhash[0]};   ### 你在这里之后@newhash = ({}, {b, 2}); 所以下面的循环其实是没有问题的 print "$newkey,$newvalue\n"; print "ok\n"; foreach my $newnewhash (@newhash) {                         my ($key1,$value1) = each %{$newnewhash};                                 print "$key1,$value1\n";                          }

[ 本帖最后由 milkharbor 于 2007-10-13 13:15 编辑 ]

milkharbor

你用each取走了匿名hash中的值,但是该匿名散列的地址还在

并且你利用中间变量保存的也只是散列地址而已，所以当你重新赋值的时候还是没有效果的

如果你重新赋值:

@newhash = ( {a,1},{b,2} ); foreach my $newnewhash (@newhash) {                         my ($key1,$value1) = each %{$newnewhash};                                 print "$key1,$value1\n";                          }

是没有问题的

lipch

原帖由 milkharbor 于 2007-10-13 13:18 发表
你用each取走了匿名hash中的值,但是该匿名散列的地址还在

并且你利用中间变量保存的也只是散列地址而已，所以当你重新赋值的时候还是没有效果的

如果你重新赋值:
@newhash = (
{a,1},{b,2}
);
foreac ...

有什么办法能取出@newhash中的值但又不会删掉它呢？除了你说的重新赋值之外。我上面只是写了一个原型，实际上的@newhash是通过很复杂的运算最后得到的，难道我需要再重新把前的过程再运算一次吗？ 这个过程需要运算大概30分钟。

有什么更好的办法，还请不吝赐教，甚谢！

[ 本帖最后由 lipch 于 2007-10-13 13:27 编辑 ]

milkharbor

比较cool的方法我不知道有没有,但是你多加一层循环就可以了啊

比如:

@newhash = ( {a,1},{b,2} ); foreach my $newnewhash (@newhash) {    for (keys %{$newnewhash}){       ... ...    } }

[ 本帖最后由 milkharbor 于 2007-10-13 13:32 编辑 ]

Lonki

对于each, 请配合while来使用.

单独的each, 会继续前次的遍历.

lipch

that's cool， 不过，对于其原理不是很明白，不知在oreilly哪本书上有介绍过这种情况吗？

另外，不知大侠有无msn之类的？

milkharbor

原帖由 Lonki 于 2007-10-13 13:37 发表
对于each, 请配合while来使用.

单独的each, 会继续前次的遍历.

配合while可以解决这个问题吗?能不能讲得清楚些?