1

我有这个代码

...
    my $line = '';
        foreach $line ( split( /\n/x, $raw ) ) {
            chomp $line;
            my ( $key, $val ) = split( /=/x, $line );
            $param{$key} = $val;
        }
...

在 perlcritic 检查后,我收到消息“循环迭代器不是词法”。怎么了?

我可以用

 #my $line = '';
            foreach my $line ( split( /\n/x, $raw ) )

但为什么?:)

4

2 回答 2

6

PerlCritic 希望循环变量只在循环内有一个范围,即循环结束后该变量不应该存在。这可能被认为过于纯粹/迂腐,但我倾向于同意,并且通常也以这种方式编写我的 Perl 代码。

此外,这看起来像一个可配置的选项

于 2016-03-31T05:50:44.043 回答
4

来自 cpan Perl::Critic::Policy::Variables::RequireLexicalLoopIterators

在您看到类似的代码之前,这似乎没什么大不了的

my $bicycle;
for $bicycle (@things_attached_to_the_bike_rack) {
    if (
            $bicycle->is_red()
        and $bicycle->has_baseball_card_in_spokes()
        and $bicycle->has_bent_kickstand()
    ) {
        $bicycle->remove_lock();

        last;
    }
}

if ( $bicycle and $bicycle->is_unlocked() ) {
    ride_home($bicycle);
}

这不会让您及时到达与家人共进晚餐,因为循环外的 $bicycle 不会被循环更改。你可能已经解锁了你的自行车,但你不记得是哪一辆了。

于 2016-03-31T05:53:17.747 回答