用perl处理数据 第一列名字相同的行以TXT格式存放

hkldd

     我想将mac.txt数据文件中,第一列数相同的行全部取出来,保存在新的txt文件中，并以第一列名字命名该文档， 请问如何用perl实现，求解答，谢谢！祝大家新年快乐！

需要分类的样本文件：
mac.txt
1a 25 65 13 26 75
1a 55 36 17 1f 07
2b 14 11 5b 6a 3c
5c 26 87 25 47 9c
3d 14 58 1f 39 2a
3d 44 52 3a 2b dd
3d 44 35 5c 6b 9c

得到以下分类文档
1a.txt
1a 25 65 13 26 75
1a 55 36 17 1f 07

2b.txt
2b 14 11 5b 6a 3c

5c.txt
5c 26 87 25 47 9c

3d.txt
3d 14 58 1f 39 2a
3d 44 52 3a 2b dd
3d 44 35 5c 6b 9c

b114213903

1. #!/usr/bin/perl
   
2. use strict;
   
3. 
   
4. open (IN,"<mac.txt");
   
5. my %ids;
   
6. while(my $line=<IN>){
   
7.         my ($id,$data)=split (/\s+/,$line,2);
   
8.         unless($ids{$id}){
   
9.                 $ids{$id}++;
   
10.                 print "Now:\t$id\n";
    
11.                 open (OUT,">$id.txt");
    
12.                 print OUT "$line";
    
13.         }else{
    
14.                 print OUT "$line";
    
15.         }
    
16. }
    
17. print "Finished!\n";

复制代码

hkldd

谢谢你！帮我解决了大难题，真心谢谢！经测试已通过