如何实现Perl类重载@{}，让foreach迭代时每次触发自定义函数？

你碰到的这个情况其实是Perl里foreach和@{}重载的工作机制决定的：当你在foreach里写@$class时，Perl会一次性调用你重载的@{}方法，拿到数组引用后就直接遍历这个数组的所有元素了，所以你的next子程序只跑了一次。而<>运算符在while循环里是每次迭代都会触发一次重载方法，这就是为啥它符合你的预期，但foreach不吃这一套。

解决方案：用Tie::Array实现实时触发的自定义遍历 #

要让foreach每次迭代都执行自定义逻辑，最靠谱的原生方案是用Perl的Tie::Array模块，把你的类的内部数组绑定到一个自定义的tie数组上——这样每次foreach访问数组元素时，都会自动调用我们写的自定义方法。

修改你的overloaded.pm代码如下：

package overloaded;
use strict;
use warnings;
use Tie::Array;

# 定义继承自Tie::StdArray的子类，重写FETCH方法实现自定义逻辑
package overloaded::TiedArray;
use base 'Tie::StdArray';

sub FETCH {
    my ($self, $index) = @_;
    # 这里放你每次迭代要执行的自定义代码
    print("reading next item...\n");
    # 调用父类的FETCH获取实际元素
    return $self->SUPER::FETCH($index);
}

# 回到主类
package overloaded;

sub new {
    my ($class, %args) = @_;
    my @fields;
    # 把数组绑定到我们的自定义tie类
    tie @fields, 'overloaded::TiedArray';
    $args{fields} = \@fields;
    return bless { %args }, $class;
}

sub add {
    my ($self, $elem) = @_;
    push(@{$self->{fields}}, $elem);
}

# 重载@{}，直接返回绑定后的数组引用
use overload '@{}' => sub { shift->{fields} };

1;

你的测试脚本overloading.pl不需要修改，执行后会得到如下输出：

reading next item...
NEXT ITEM: Hi
reading next item...
NEXT ITEM: Hello
reading next item...
NEXT ITEM: Yeet
reading next line...
NEXT ITEM: Hi
reading next line...
NEXT ITEM: Hello
reading next line...
NEXT ITEM: Yeet
reading next line...

补充：如果不想用Tie模块的替代思路 #

如果你不想依赖Tie::Array，也可以通过生成惰性列表的方式模拟，但本质上还是一次性生成所有元素（只是每个元素生成时执行自定义逻辑），适合元素预先存在的场景：

# 在overloaded.pm中修改@{}的重载逻辑
use overload '@{}' => sub {
    my $self = shift;
    my $pos = 0;
    # 返回一个匿名列表，每个元素生成时触发自定义逻辑
    return [ 
        map {
            print("getting next array item\n");
            $self->{fields}->[$pos++]
        } 1..scalar @{$self->{fields}} 
    ];
};

不过这种方法和Tie::Array的实时触发还是有区别——如果你的元素是动态生成的（比如从文件/数据库逐次读取），Tie::Array的方案会更灵活。

总结一下 #

• @{}重载在foreach里只会被调用一次，因为Perl需要先拿到整个数组的内容才能遍历；
• <>运算符的调用逻辑适合while循环的逐次触发，但foreach不支持这种模式；
• Tie::Array是实现foreach每次迭代执行自定义逻辑的原生、可靠方案。

内容的提问来源于stack exchange，提问作者bluppfisk