如何用perl读取txt文件中的数据

#!/usr/bin/perl

$textname="/存放路径/文件名.txt" #例如$textname="E:/lqf.txt"

open(FILE1,$textname)#打开文件

@line=<FILE1>#将文件的每一行读取到数组@line中，文件的每一行作为一个数组元素

close FILE1

#保存这个文件的内容，只要对@line数组进行 *** 作就可以了

open(FD,$ARGV[0])

my(@c,$g,$e,$l)#count,greater,equal,less

my($s,$n,$i)

$i=1

while($s=<FD>){

$s=~s/[^a]//g

$n=length($s)

$c[$i]=$n

$g++ if ($n>5)

$e++ if ($n==5)

$l++ if ($n<5)

$i++

}

close(FD)

$n=$g+$e+$l

print "a>5 $g ".($g*100/$n)."%\n"

print "a=5 $e ".($e*100/$n)."%\n"

print "a<5 $l ".($l*100/$n)."%\n"

上面的程序测试通过，完全满足你的要求，结果是正确的。

---