¿Cómo pasar una matriz y una cadena como argumentos a una función?
Porque no puedo encontrar una manera conveniente de comprobar si$str
es en@array
, Estoy tratando de hacer uno mismo, pero no está funcionando.
Supongo que es debido a la mezcla de matriz y cadena. Sigue dando0
a$str
. Por favor, déjame saber cómo solucionarlo.
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);