相关疑难解决方法(0)

在另一个Stack Overflow问题中, Leon Timmermans断言:

我建议你不要使用原型.它们有它们的用途,但对大多数情况并非如此,绝对不是在这个例子中.

为什么这可能是真的(或其他)？我几乎总是为我的Perl函数提供原型,而且我从来没有见过其他任何人说使用它们的坏事.

因为我找不到方便的方法来检查是否$str在@array,我正在尝试自己制作一个,但它不起作用.

我想这是因为数组和字符串的混淆.它一直给0到$str.请让我知道如何解决它.

use 5.010;
use strict;
use warnings;

sub ifin {
    my (@array, $str) = @_;
    for my $i (@array) {
        if ($i eq $str) {
            return 1;
        }
    }
    return 0;
}

my @f = (1, 2, 3, 4);
my $k = 1;
print ifin(@f, $k);