perl如可查找一个数组里？

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

2024-11-16 06:02:24

推荐回答（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;

}
}