给大家贴个我写错的代码

zhlong8

1. sub t {
   
2.     return {'a' .. 'z'}
   
3. }
   
4. 
   
5. while (my($k, $v) = each %{t()}) {
   
6.     print "$k => $v\n";
   
7. }

复制代码

yybmsrs

死循环了

Perl_Er

回复 1# zhlong8


    每次调用t()永远返回第一对

sjdy521

每个hash的迭代器都是独立的，这种错误确实不容易及时发现

zhlong8

我觉得是这个模式用得太多了潜意识中把 while (($k,$v) = each %hash) {} 当成一种语法，或者说当成迭代器了。比如 ruby 里的 t().each {|k, v| ... }

illidanee

谢谢提醒，以后要多注意了。

zhlong8

举一反三下 t() 可以返回任意不同的 hash 引用，所以可以随时切换到另一个 hash 去循环

7looki

回复 1# zhlong8


     贴个each比较有趣的地方:

1. use strict;
   
2. use warnings;
   
3. use 5.014;
   
4. 
   
5. my @z = qw/a b c/;
   
6. 
   
7. foreach ( 6..8 ) {    ## 你也可以改为 4..6, 8..10, 结果都一样
   
8.     my ( $x,$y ) = each @z;
   
9.     print "$x : $y\n";
   
10. }

复制代码

1. use strict;
   
2. use warnings;
   
3. use 5.014;
   
4. 
   
5. my %z = ( 'a', 'A', 'b', 'B', 'c', 'C' );
   
6. 
   
7. foreach ( 6..8 ) {    ## 你也可以改为 4..6, 8..10, 结果还是一样
   
8.     my ( $x,$y ) = each %z;
   
9.     print "$x : $y\n";
   
10. }

复制代码

搞不清原理,不知道 Perl 内部是怎么运作的, 但结果肯定是正确的.

yybmsrs

回复 8# 7looki


    第一个应该是5.14的新用法，我在5.10上都用不了。

               When called in list context, returns a 2-element list
               consisting of the key and value for the next element of a hash,
               or the index and value for the next element of an array, so
               that you can iterate over it.  When called in scalar context,
               returns only the key (not the value) in a hash, or the index in
               an array.

ttcn_cu

    while (my($k, $v) = each %{{'a'..'z'}}) {
        print "$k => $v\n";
    }