如何用perl循环读取多个文本文件，并进行数据处理

[sinat_38169397]

perl如何循环读取多个txt文本，并计算某个字符出现的频率（例如有1.txt,2.txt,3.txt.....27.txt一共27个文本文件，每个文本都有出现apple，计算出apple在每个文本中出现的次数）并且结果输出到另一个文本appl.txt中?

[makoudada]

可以用glob获取文件夹下所有.txt文件的名字
@file=glob"*.txt";
foreach $t (@file){}