perl如可查找一个数组里？

perl如可查找一个数组里面是否包含800到1200之间的数

2024年11月16日 06:02

有3个网友回答

网友（1）：

查找数组中800到1200之间仿蠢运备梁的数档扒的perl程序如下

网友（2）：

#! /usr/bin/perl
@a = qw/桥梁带敏芦600 590 890 1200 300 900 2000 700 1100/;
@b = grep{$_=~/\S/} map {if($a[$_] >= 800 && $a[$_] <= 1200){$a[$_]}}0..$#a;
print"@b";

这是渣歼用map的方法

网友（3）：

my @array; #此数组为你需要查找滚宴或的数组
my @newarray; #此数组祥碧为在查找到的800到1200之间得到的组成新的数组
foreach $element (@array)
{
if( $element >= 800 && $element <大伍= 1200)

{

push @newarray,$element;

}
}