リストの中に要素Xがあるかどうかを調べる
sub search { my ($val, @list) = @_; return scalar (grep { $_ eq $val } @list); } print search("a", qw(b c d a g)); #=> 1 print search("a", qw(b c d e g)); #=> 0
sub search { my ($val, @list) = @_; return scalar (grep { $_ eq $val } @list); } print search("a", qw(b c d a g)); #=> 1 print search("a", qw(b c d e g)); #=> 0