为什么我的 for 循环是非法声明

Question

我创建了两个子程序，一个用于执行斐波那契数列，另一个用于测试偶数。当我调用它时，它说我的 for 循环在第 7 行中的 sub Fibonacci 是非法的，为什么？

#!/usr/bin/perl
use strict;
use warnings;


my ($x,$y);
my $num = 0;

sub Fibs($start,$stop){
    for ($start..$stop){
        ($x, $y) = ($y, $x+$y);
            my $total += $y;
        }
    print "$total \n"
}

sub even($num){
    if ($num % 2 == 0){
        return $num;}
}

my $big_total = Fibs(even($num), 3999999)

根据以下建议进行编辑。

显然我错过了一些东西。从反馈更新到新版本。

#!/usr/bin/perl
use strict;
use warnings;


my ($x,$y);
my $num = 0;

sub Fibs{
    my ($start, $stop) = @_ ;
    for ($start..$stop){
        my ($x, $y) = (0,2);
            if ($x % 2 == 0){
                ($x, $y) = ($y, $x+$y);
                    my $total += $y;
        }
}

my $big_total = Fibs(0, 3999999)

Answer 1

除了缺少左大括号之外，Perl 不支持这种子例程参数声明。

而不是

sub Fibs($start, $stop) {
    ...
}

您需要编写类似的内容：

sub Fibs {
    my($start, $stop) = @_;
    ...
}

（Perl 确实有原型，但它们并不是真正用于声明参数的类型，并且它们不提供名称。请参阅 这篇文章进行讨论。）

其他问题：

您应该添加

use strict;
use warnings;

You never use the $x 和 $y< /code> 您在外部声明的 范围。

您的 even 函数似乎不完整。如果它的参数是奇数，它不会（显式）返回值。它到底想做什么？