[算法] 数据的合并问题

sunzhiguolu

回复 20# patagonia2
试下: (测试环境: Windows 7)

1. 
   
2. tr -s [:blank:] < a.txt | sort -t" " -k2n -o a.txt
   

复制代码

代码如下:

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use Tie::File;
   
6. 
   
7. my ($sFileA, $sFileB, @aData) = ('File A Path', 'File B Path');
   
8. tie (my @aFileA, 'Tie::File', $sFileA, mode => 'O_RDONLY');
   
9. open (my $fhFileB, '<', $sFileB);
   
10. while (<$fhFileB>){
    
11.     my ($sB1, $sB2) = split;
    
12.     foreach my $sLine (@aFileA){
    
13.         my ($sA1, $sA2) = split /\s+/, $sLine;
    
14.         unless (@aData){
    
15.             @aData = ($sB1, $sA1, $sA2);
    
16.         }else{
    
17.             if (abs ($sA2 - $sB2) <= abs ($aData[-1] - $sB2)){
    
18.                 if ($aData[-1] == $sA2){
    
19.                     @aData = ($aData[0], $aData[1] . ' ' . $sA1, $aData[-1]);
    
20.                     next;
    
21.                 }
    
22.                 $aData[1] = $sA1;
    
23.                 $aData[-1] = $sA2;
    
24.                 next;
    
25.             }
    
26.             last;
    
27.         }
    
28.     }
    
29.     printf "%s %s\n", @aData[0,1];
    
30.     @aData = ();
    
31. }
    
32. close ($fhFileB);
    

复制代码

输出结果如下:

1. 
   
2. Q12 Babushkin
   
3. D23 Azov
   
4. Y11 Aznakayevo
   
5. U10 Balashikha Balashov
   
6. Q45 Babayevo
   
7. A11 Bagrationovsk
   
8. R08 Babayevo
   
9. ZAA Babayevo
   

复制代码

sunzhiguolu

回复 20# patagonia2
将代码的第 6 行:
'File A Path', 'File B Path' 替换成你自己的文件路径!

   

substr函数

回复 19# stanley_tam


大神 [   ]
加好友

substr函数

回复 13# stanley_tam

大神
大神我想问一个
感觉

如果

1. 
   
2.         if ($num < $min) {
   
3.             # only need to look for numbers greater than $num
   
4.             my $new_num = $num;
   
5.             while (1) {
   
6.                 $new_num += 1;
   
7.                 if (exists $a_data_href->{$new_num}) {
   
8.                     $words_aref = $a_data_href->{$new_num};
   
9.                     last;
   
10.                 }
    
11.             }
    
12.         }
    

复制代码

可以

1. 
   
2.         if ($num < $min) {
   
3.             $words_aref = $a_data_href->{$min};
   
4. 
   
5.         }
   

复制代码

我的理解哪里有偏差? 还请大神指点...
谢谢大神
   

stanley_tam

多谢大神指点
真是众里寻他千百度，蓦然回首。。。

1. sub find_the_nearest {
   
2.     # body...
   
3.     my ($num, $a_data_href, $max, $min) = @_;
   
4.     my $words_aref = [];
   
5. 
   
6.     if (exists $a_data_href->{$num}) {
   
7.         # if exactly matched
   
8.         $words_aref = $a_data_href->{$num};
   
9.     }
   
10.     else {
    
11.         if ($num < $min) {
    
12.             $words_aref = $a_data_href->{$min};
    
13.         }
    
14.         elsif ($num > $max){
    
15.             $words_aref = $a_data_href->{$max};
    
16.         }
    
17.         else {
    
18.             # look for numbers both way
    
19.             my $new_num_bigger  = $num;
    
20.             my $new_num_smaller = $num;
    
21. 
    
22.             while (1) {
    
23.                 $new_num_bigger  += 1;
    
24.                 $new_num_smaller -= 1;
    
25. 
    
26.                 my @words = ();
    
27.                 if (exists $a_data_href->{$new_num_bigger}) {
    
28.                     push @words, @{ $a_data_href->{$new_num_bigger} };
    
29.                 }
    
30. 
    
31.                 if (exists $a_data_href->{$new_num_smaller}) {
    
32.                     push @words, @{ $a_data_href->{$new_num_smaller} };
    
33.                 }
    
34. 
    
35.                 if (scalar @words) {
    
36.                     $words_aref = \@words;
    
37.                     last;
    
38.                 }
    
39.             }
    
40. 
    
41.         }
    
42.     }
    
43. 
    
44.     return $words_aref;
    
45. }

复制代码

回复 24# substr函数