Question

perl 只提取第一行第一列的值，该怎么做。

例如，只提取下图中的“Name”

Answer 1

不是很懂你的意思, 如果只提取 "Name", 那麼 :

open F, "file" or die "Can't open file";
print ((split /\s+/, <F>, 2)[0]);
close F;

如果你是想提取 Name 那一直行, 那就:

open F, "file" or die "Can't open file";
print /([^\s]+)/ while <F>; # 直接打印出在
close F;

或者

my @want = ();
open F, "file" or die "Can't open file";
push @want, /([^\s]+)/ while <F>; # 存起在 @want 里
close F;

print "$_$/" foreach @want;

Answer 2

unix 下：cut -f 1 file | grep “sample” > out.txt

Answer 3

这不是txt吧？是excel或是电子表格吧？你要说清楚要操作的对象具体是什么，大家才好帮助你啊！
祝福你，朋友！

追问

这个是用excel打开的txt文件。对象是txt文件。

Answer 4

提取excel文件还是文本文件?

追问

文本文件

追答

while(){
my($name,$last)=split/\s+/,2;
print $name,"\n";

}
保存为a.pl

perl a.pl name.txt