perl如何读入一个.txt文本中的内容,将文本里的内容放到一个数组里

Question

（文本一行作为数组的一个元素）急！！！
比如：kwList.txt里的内容是：
公司,45696
限公司,37212
有限公司,37188
店),7239
中心,5749
营部,5267
List.txt里的内容是：
公司
中心
现在就是要通过程序将两个文本读入，读入kwList.txt时,只要前面一部分,那些数字都不需要,然后读入的每一条记录去跟List.txt比较,如果这条记录在List.txt里没有出现过,就输出.请高手留下大概的代码框架!!

Answer 1

楼上正解!

不过用perl处理文件的话, 读入数组处理效率不高
可以试着这样

open(FD, "file.txt");
while(<FD>){
对每一行($_)进行处理
}
close(FD);

这样在处理超大文本时, 不会占用很多内存, 又利用了读磁盘与CPU运算之间的流水作业, 可以大大提高程序效率

Answer 2

很简单的，例子代码如下：

open(FD,"1.txt");
@lines=<FD>;
close(FD);

上面的代码之后，就可以使用@lines数组了，比如显示第三行的语句：

print $lines[2];

Answer 3

%kwhash;
open(LIST,"List.txt");
while(<LIST>){
chomp;
$kwhash{$_} = 1 ;

}
close LIST;
open(KW, "kwList.txt");
while(<KW>){
chomp;
my ($name) = split/\,/,$_;
#print $name;
next if (exists $kwhash{$name});
print $name;
print "\n";
}
close KW;
调试完成！！