Question

perl删除第一列相同的行

如我有以下文件
AA 565 78 HHH
AA 545 75 YGY
BA 656 65 TGY
想用perl删除第一列相同的行，随意保留一行。如上文件只得到
AA 565 78 HHH
BA 656 65 TGY

Answer 1

这类文件处理的套路都是逐行读文件、判断条件是否写如新文件，控制是否写入就把第一个单词存起来，代码一般是这样：

open(F1,'1.txt');#原始文件
open(F2,'>2.txt');#新建文件
while($s=<F1>){
    ($k)=split(/\s+/,$s);
    print F2,$s if (! $KEYS{$k});#输出不存在的行
    $KEYS{$k}=1; #标记
}
close(F2);
close(F1);
#接下来根据需要删除文件F，更名F2为F1