subroutine中prototype问题[已解决]

littlelittledog

今天在看high order perl，对prototype的用法有些疑惑，希望高手可以解释以下：
use strict;
use warnings;

sub upto {
    my ($m,$n)=@_;
    return Iterator  {
        return $m<=$n?$m++:undef;
    };
}

sub Iterator (&) {  return $_[0]}

my $it=upto(3,5);

while(defined(my $val=$it->())){
    print "$val\n";
}
                     
错误提示：
Can't use string ("3") as a subroutine ref while "strict refs" in use at ./upto.pl line 35.

但是如果改成下面的代码就没有问题：

sub upto {
    my ($m,$n)=@_;
    return Iterator（sub  {
        return $m<=$n?$m++:undef;
    });
}

sub Iterator (&) {  return $_[0]}

my $it=upto(3,5);

while(defined(my $val=$it->())){
    print "$val\n";
}
结果如下：
3
4
5
很明显，上面的错误是closure的编译时没有lazy evaluation,返回了值，而不是closure的问题。是不是modern perl（v5.10+)中不可以使用第一种方式了？

rubyish

我会写代码这样: ~

1. sub upto {
   
2.     my ( $m, $n ) = @_;
   
3.     sub {
   
4.         $m <= $n ? $m++ : undef;
   
5.     };
   
6. }
   
7. 
   
8. my $it = upto( 3, 5 );
   
9. 
   
10. while ( defined( my $val = $it->() ) ) {
    
11.     print "$val\n";
    
12. }

复制代码

rubyish

this is ok ~

1. sub Iterator (&) { return $_[0] }
   
2. sub upto {
   
3.     my ( $m, $n ) = @_;
   
4.     return Iterator {
   
5.         return $m <= $n ? $m++ : undef;
   
6.     };
   
7. }
   
8. 
   
9. my $it = upto( 3, 5 );
   
10. 
    
11. while ( defined( my $val = $it->() ) ) {
    
12.     print "$val\n";
    
13. }

复制代码

rubyish

非常有趣:

1. #!/usr/bin/perl
   
2. use 5.016;
   
3. use warnings;
   
4. 
   
5. package ABC;
   
6. sub XXX { say 'hello' }
   
7. 
   
8. package main;
   
9. 
   
10. XXX { 'ABC' };    # hello
    
11. 
    
12. sub Q {
    
13.     NHK { return 555 };
    
14. }
    
15. say Q;           # 555
    
16. 
    
17. sub P {
    
18.     BBC { 666 };
    
19. }
    
20. say P;           # Can't locate object method "BBC" via package "666"

复制代码

rubyish

顺序错误。非prototype的问题。~

littlelittledog

rubyish,你的答案很正确，谢谢。