Question

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

我有个名为data.txt文件，如何用perl读取它，并将里面内容保存？

如：txt中的数据（按行排列的）

Steve Blenheim 101
Betty Boop 201
Igor Chevsky 301
Norma Cord 401
Jonathan DeLoach 501
Karen Evich 601

Answer 1

#!/usr/bin/perl
$textname="/存放路径/文件名.txt"; #例如$textname="E:/lqf.txt";
open(FILE1,$textname);#打开文件
@line=<FILE1>;#将文件的每一行读取到数组@line中，文件的每一行作为一个数组元素
close FILE1;
#保存这个文件的内容，只要对@line数组进行操作就可以了

Answer 2

你所说的保存是什么意思？我保存到数组里好了~
open IN, “<”, "data.txt" or die;
my @a = <IN>;
close IN;

Answer 3

如：txt中的数据（按行排列的）
Steve Blenheim 101
Betty Boop 201
Igor Chevsky 301
Norma Cord 401
Jonathan DeLoach 501
Karen Evich 601

open STDIN,"date.txt" or die "cannot open for :$!";
while(@date = <>){
chomp@a;
}

Answer 4

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