Perl函数each求助

zhanghanqing

大佬们，perl中each函数用来提取哈希中的键值对，我为什么循环中each(%hash)每次返回的都是第一个键值对，这个东西不应该是自己一个键值对一个键值对的返回吗？

yangqi666

each可以用来迭代哈希的key-value,

1. %hash = qw(a 1 b 2 c 3 );
   
2. while ( my ( $key, $value ) = each %hash ) {
   
3.     say "$key --> $value";
   
4. }
   

复制代码