求大神指点：第一列相同的情况下排序

321wangke321

文件1
A   a    1
A   b   2
A   c    5
A   f     8
B   i    7
B   h    5
B   g     2

文件2
a   10
c   100
g   1000
i     1
h    15

文件2中的ac都在文件1的A类中；ghi在B类中：
文件2中属于A类的a c由第二列从大到小的顺序为c a，如何相应地依据c a顺序调整文件1中A类行之间的顺序？
A   c    5
A   b   2
A   a    1
同理，B类的gih根据文件2大小顺序是ghi，相应地调整文件1中B类行的顺序
B   g   2
B   h    5
B   i     7
求大神指点！谢谢。

jason680

排序结果？

不在 文件2 如何排序？
A   b   2
A   f     8

stanley_tam

这样？

1. #!perl
   
2. use strict;
   
3. use autodie qw{open close};
   
4. 
   
5. my $file1 = 'file1.txt';
   
6. my $file2 = 'file2.txt';
   
7. 
   
8. # read data
   
9. my %weight_of = ();
   
10. open my $fh2, '<', $file2;
    
11. while ( defined(my $line = readline $fh2) ) {
    
12.     chomp $line;
    
13.     my @parts  = split /\s+/, $line;
    
14.     my $char   = $parts[0];
    
15.     my $weight = $parts[1];
    
16.     $weight_of{$char} = $weight;
    
17. }
    
18. close $fh2;
    
19. 
    
20. # again...
    
21. my $data_href = +{};
    
22. open my $fh1, '<', $file1;
    
23. while ( defined(my $line = readline $fh1) ) {
    
24.     chomp $line;
    
25.     my @parts = split /\s+/, $line;
    
26.     my $class = $parts[0];
    
27.     my $char  = $parts[1];
    
28. 
    
29.     $data_href->{$class}->{$char} = $line;
    
30. }
    
31. close $fh1;
    
32. 
    
33. # sort
    
34. for my $class (sort keys %{ $data_href }){
    
35.     my @sorted_chars = sort {
    
36.         $weight_of{$b} <=> $weight_of{$a}
    
37.     } keys %{ $data_href->{$class} };
    
38. 
    
39.     my @lines = map { $data_href->{$class}->{$_} } @sorted_chars;
    
40. 
    
41.     # print sorted lines
    
42.     print "$_$/" for @lines;
    
43. }
    
44. 
    
45. __END__

复制代码

104359176

请大神出来跳个舞吧.

hztj2005

楼主问题表述的不清，看好久也未必理解了。
我说一下解决思路：
1、读入文件1，取第一列为A的数据的第二列值，比如说第2行是c，到2中去查对应的值，c对应100，然后加入文件1该行的头部，就是2列：
100，“ A   b   2”
2、所有行处理完毕，再按第1列排序，排完序后，删除第一列，就得到结果。
3、A/B分开处理后，再合并。

321wangke321

stanley_tam 发表于 2016-08-15 18:16
这样？

谢谢大神，果然可以了。
请问
my $data_href = +{}是什么意思？

stanley_tam

一起学习中，大神不敢当。
哈希引用，为了避免编译猜测我这个为代码块，前面加了一个+号避免歧义。另外href就是提醒自己这是hash reference
回复 6# 321wangke321