perl中如何实现判断一个数是不是在一个数组中？请给出代码

在 Perl 中，可以使用 grep 函数来判断一个数是否在一个数组中。下面是示例代码：

my @array = (1, 2, 3, 4, 5);
my $num = 3;

if (grep { $_ == $num } @array) {
print "$num is in the array.\n";
} else {
print "$num is not in the array.\n";
}

这段代码首先定义了一个数组 @array 和一个数 $num，然后使用 grep 函数来判断 $num 是否在 @array 中。如果在，则输出 "$num is in the array."，否则输出 "$num is not in the array."。