perl 语言 txt 文件 按条件 找数据 输出
发布网友
发布时间：2022-04-12 20:09
共2个回答
热心网友
时间：2022-04-12 21:38
while ($line=<F>) {
($s1,$s2,$s3,$s4,$s5,$s6)=split(/\s+/,$line);
push (@new, $s3);
$count{$_}++ for @new;
if ($s1==100 and $s2>24 and $count{$s3}>5) {
print "$s1,$s2,$s3,$s4,$s5,$s6\n";
}
}
