Question

perl 语言 txt 文件 按条件 找数据 输出

最近在学perl语言编程，据说perl处理数据的能力非常强大，但是初学计算机语言真是一件充满荆棘的过程呀~~~
割~~~~~~~~~~~~废话不多说了，下面是问题的具体描述
这是一张txt文本文件的截图，从左到右，分为6列数据，依次第1,2,3,4,5,6列，从中找出想要的一行或几行数据，用perl语言编程来实现。这个数据的要求是：

第一、第1列的数据数值为100，第2列的数据数值大于24，找出符合这两个要求的数据
第二、再从这些数据里，找出第3列数据数值在整列中出现次数大于5次的数据数值。高大上，我的语言未开窍呀~~~希望你们能理解

Answer 1

open F,"F:/1.txt"; #是你画面上的文件
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";
	}
	          }