Jak przekazać jedną tablicę i jeden ciąg jako argumenty funkcji?
Ponieważ nie mogę znaleźć wygodnego sposobu sprawdzenia, czy$str
jest w@array
, Staram się sam zrobić, ale to nie działa.
Myślę, że jest to spowodowane pomieszaniem tablicy i ciągu. Ciągle daje0
do$str
. Daj mi znać, jak to naprawić.
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);