Question

perl 把第一列相同的元素所在的行输出到指定文件中去

eg:
一、源文件：
File1.txt（分隔符为Tab键，即：\t）
No1 swim
No2 dance
No3 sing
No1 violin
No2 piano
二、目标文件：
File2.txt(分隔符不变仍为TAB键)
No1 swim violin
No2 dance piano
No3 sing
在线等

Answer 1

my(%Data);
open(FD,'File1.txt');
while($s=<FD>){
    chomp($s);
    ($key,$val)=split(/\t/,$s);
    $Data{$key}.=$val.' ';
}
close(FD);
open(FD,'>File2.txt'); 
foreach $key (keys %Data){
    print FD $key .' '.$Data{$key}."\n";
}
close(FD);

追问

我试试啊，对了就采纳~马上~