perl 數(shù)據(jù)轉(zhuǎn)換

yinyuemi

回復(fù) 10# inchonline

就是不斷的替換～

A 1 2 3 4 5
A 2 3 4 5
A 3 4 5
...
   

zzwevil

MARK   ($h,@a)=split ;

kernel69

如果反過來那？
a文件

1. 1013 4
   
2. 1013 5
   
3. 1013 5
   
4. 1013 8
   
5. 1013 8
   
6. 1013 8
   
7. 1013 16
   
8. 1013 20
   
9. 1013 20
   
10. 1013 10
    
11. 1013 10
    
12. 1013 18
    
13. 1026 6
    
14. 1026 8
    
15. 1026 9
    
16. 1026 11
    
17. 1026 12
    
18. 1026 14
    
19. 1026 15
    
20. 1026 22
    
21. 1026 33
    
22. 1026 44
    
23. 1026 55
    
24. 1026 66
    
25. 1088 7
    
26. 1088 11
    
27. 1088 13
    
28. 1088 13
    
29. 1088 12
    
30. 1088 14
    
31. 1088 15
    
32. 1088 22
    
33. 1088 33
    
34. 1088 46
    
35. 1088 55
    
36. 1088 66

復(fù)制代碼

想格式化成b文件的格式
b文件如下

1. 1013          4        5        5        8        8        8        16        20        20        10        10        18
   
2. 1026          6        8        9        11        12        14        15        22        33        44        55        66
   
3. 1088          7        11        13        13        12        14        15        22        33        46        55        66

復(fù)制代碼

回復(fù) 2# rubyish


   

rubyish

kernel69 發(fā)表于 2013-03-19 14:11
如果反過來那？
a文件想格式化成b文件的格式
b文件如下回復(fù) 2# rubyish

1. 
   
2. my ( %h, @a );
   
3. 
   
4. while (<DATA>) {
   
5.     /(\d+)\s+(\d+)/;
   
6.     push @a, $1 if !$h{$1};
   
7.     push @{ $h{$1} }, $2;
   
8. }
   
9. 
   
10. say for map { $a = $_; map "$a $_", @{$h{$_}} } @a;
    

復(fù)制代碼

OR

1. my %h;
   
2. 
   
3. while (<DATA>) {
   
4.     /(\d+)\s+(\d+)/;
   
5.     print !$h{$1}++ ? "$/$1" : '', " $2";
   
6. }

復(fù)制代碼

kernel69

感謝，

1. !$h{$1}++

復(fù)制代碼

這一段有點不太明白，能否解釋一下
回復(fù) 14# rubyish


   

rubyish

kernel69 發(fā)表于 2013-03-20 14:28
感謝，這一段有點不太明白，能否解釋一下
回復(fù) 14# rubyish

1. print !$h{$1}++ ? "$/$1" : '', " $2";

復(fù)制代碼

就是

1.     unless ( $h{$1} ) { print "\n$1" }
   
2.     print " $2";
   
3.     $h{$1}++;

復(fù)制代碼