不是很懂你的意思, 如果只提取 "Name", 那麼 :
open F, "file" or die "Can't open file";如果你是想提取 Name 那一直行, 那就:
open F, "file" or die "Can't open file";或者
my @want = ();这个是用excel打开的txt文件。对象是txt文件。
文本文件
追答while(){
my($name,$last)=split/\s+/,2;
print $name,"\n";
}
保存为a.pl
perl a.pl name.txt