霜天部落 | 专注PHP研发,研究LAMP高性能架构部署与优化

Perl语言中的in_array数组函数

最近使用perl开发一些应用,需要使用一个类似于PHP的in_array数组函数,但perl语言本身没有这个系统函数。后来一查,发现很简单就可以实现in_array函数的功能。这说明我目前对perl了解的还不够深入。

下面是实现的代码:

# *************************************
# Checks if a value exists in an array and
# return the searched expression.

sub in_array {
my ( $needle, @haystack ) = @_;
return grep $_ eq $needle, @haystack;
}

example:

print "OK\n" if ( &in_array( "b", ( "a", "b", "c" ) ) );

 



There are 1 Comments to "Perl语言中的in_array数组函数"