#!/usr/bin/perl
use strict;
use warnings;
=pod
闲着无事,就是写了这个小函数,该函数是用来检测一个值是否是数组中的
成员。使用方法 &in(值,数组),如果为存在返回True,否则返回False
=cut
sub in()
{
my $value = shift;
my @arr = @_;
die "Useage: in(value,array)\n" if(!$value);
die "Useage: in(value,array)\n" if(!@arr);
if(grep {$_ eq "$value"}@arr)
{
return "True";
}
else
{
return "False";
}
}
检测数组成员
最新推荐文章于 2020-05-07 21:07:44 发布