perl如何在判断数组中没有该变量后才将变量存入数组

在 Perl 中，可以使用 grep 函数来判断数组中是否存在某个元素，如果不存在则将该元素存入数组。具体代码如下：

my @array = (1, 2, 3);
my $var = 4;
push @array, $var unless grep { $_ == $var } @array;

这段代码的意思是，如果数组 @array 中不存在元素 $var，则将 $var 存入数组中。如果存在，则不进行任何操作。