如果你可以离开需要Perl v5.10，那么你可以使用下面的任何例子。

> smart match ~~运算符。

@H_502_4@if( $element ~~ @list ){ ... } if( $element ~~ [ 1,2,3 ] ){ ... }

>您也可以使用given/when构造。它在内部使用智能匹配功能。

@H_502_4@given( $element ){ when( @list ){ ... } }

>你也可以使用for循环作为“局部化”(意思是它设置$ _)。

@H_502_4@for( @elements ){ when( @list ){ ... } }

在Perl 5.12中会出现的一个事情是能够使用post的fix版本。这使得它更像是如果和除非。

@H_502_4@given( $element ){ ... when @list; }

如果你必须能够在旧版本的Perl上运行，还有几个选项。

>你可能认为你可以放弃使用List::Util::first，但有一些边缘条件，使它有问题。

在这个例子中，很明显我们想成功匹配0.遗憾的是，这段代码每次都会打印失败。

@H_502_4@use List::Util qw'first'; my $element = 0; if( first { $element eq $_ } 0..9 ){ print "success\n"; } else { print "failure\n"; }

你可以检查定义的first的返回值，但是如果我们实际上想要一个匹配undef成功的话，这将失败。
>但你可以安全地使用grep。

@H_502_4@if( grep { $element eq $_ } 0..9 ){ ... }

这是安全的，因为grep在标量上下文中被调用。数组在标量上下文中调用时返回元素的数量。所以这将继续工作，即使我们试图匹配undef。
>你可以使用一个封闭的for循环。只要确保你最后调用，退出循环成功的比赛。否则，您可能会多次运行代码。

@H_502_4@for( @array ){ if( $element eq $_ ){ ... last; } }

>你可以把for循环放在if语句的条件中…

@H_502_4@if( do{ my $match = 0; for( @list ){ if( $element eq $_ ){ $match = 1; last; } } $match; # the return value of the do block } ){ ... }

> …但是可能更清楚的是将for循环放在if语句之前。

@H_502_4@my $match = 0; for( @list ){ if( $_ eq $element ){ $match = 1; last; } } if( $match ){ ... }

>如果你只匹配字符串，你也可以使用哈希。这可以加快你的程序，如果@list很大，并且你要匹配％hash几次。特别是如果@array不改变，因为那时你只需要加载％哈希一次。

@H_502_4@my %hash = map { $_,1 } @array; if( $hash{ $element } ){ ... }

>你也可以做自己的子程序。这是使用prototypes有用的情况之一。

@H_502_4@sub in(&@){ local $_; my $code = shift; for( @_ ){ # sets $_ if( $code->() ){ return 1; } } return 0; } if( in { $element eq $_ } @list ){ ... }