Question

perl 读取文件夹下所有txt,并处理数据

Answer 1

open(
fh,
"data.txt"
);
#打开文件
foreach
$line
(
){
#循环读取文件
$line
=~
s/\x0d?\x0a?$//;
#取得一行，去掉结尾换行符
@datas
=
split("
",$line);
#把空格当中分隔符，取得数据
$dats[0];
#steve
$dats[1];
#blenheim
$dats[2];
#101
#接下来处理取得的数据
}