因为我找不到一种方便的方法来检查是否$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);