[算法] 数据的合并问题

MMMIX

回复 8# patagonia2


    你这数据量也不大，直接循环就行了。

sunzhiguolu

回复 1# patagonia2
将你的文件 A,B 各贴出 100 行.
另外, A,B 文件的第二列数值表示什么含义? 峰值, 谷值各是是多少?

   

stanley_tam

来一发

1. #！perl
   
2. use strict;
   
3. use warnings;
   
4. use diagnostics;
   
5. use List::Util qw{max min};
   
6. 
   
7. sub main;
   
8. sub load_a_data;
   
9. sub find_the_nearest;
   
10. 
    
11. main;
    
12. 
    
13. sub main {
    
14.     my $a_data_href = load_a_data();
    
15.     my $max = max keys %{$a_data_href};
    
16.     my $min = min keys %{$a_data_href};
    
17. 
    
18.     # read file B
    
19.     my $file = 'B.txt';
    
20.     open my $fh, '<', $file or die "Unable to open file $file:$!$/";
    
21.     while (defined (my $line = readline $fh) ) {
    
22.         # body...
    
23.         chomp $line;
    
24.         $line =~ s{^\s+ | \s+$}{}gmix;
    
25.         next if not $line;
    
26. 
    
27.         my ($word, $num) = split /\s+/, $line;
    
28.         my $words_aref = find_the_nearest($num, $a_data_href, $max, $min);
    
29.         print "$word\t@{$words_aref}$/";
    
30.         
    
31.     }
    
32.     close $fh;
    
33. }
    
34. 
    
35. sub load_a_data {
    
36.     # body...
    
37.     my %data = ();
    
38.     my $file = 'A.txt';
    
39. 
    
40.     open my $fh, '<', $file or die "Unable to open file $file:$!$/";
    
41.     while (defined (my $line = readline $fh) ) {
    
42.         # body...
    
43.         chomp $line;
    
44.         $line =~ s{^\s+ | \s+$}{}gmix;
    
45.         next if not $line;
    
46. 
    
47.         my ($word, $num) = split /\s+/, $line;
    
48. 
    
49.         push @{ $data{$num} }, $word;
    
50.     }
    
51. 
    
52.     close $fh;
    
53. 
    
54.     return \%data;
    
55. }
    
56. 
    
57. sub find_the_nearest {
    
58.     # body...
    
59.     my ($num, $a_data_href, $max, $min) = @_;
    
60.     my $words_aref = [];
    
61. 
    
62.     if (exists $a_data_href->{$num}) {
    
63.         # if exactly matched
    
64.         $words_aref = $a_data_href->{$num};
    
65.     }
    
66.     else {
    
67.         if ($num < $min) {
    
68.             # only need to look for numbers greater than $num
    
69.             my $new_num = $num;
    
70.             while (1) {
    
71.                 $new_num += 1;
    
72.                 if (exists $a_data_href->{$new_num}) {
    
73.                     $words_aref = $a_data_href->{$new_num};
    
74.                     last;
    
75.                 }
    
76.             }
    
77.         }
    
78.         elsif ($num > $max){
    
79.             # only need to look for numbers smaller than $num
    
80.             my $new_num = $num;
    
81.             while (1) {
    
82.                 $new_num -= 1;
    
83.                 if (exists $a_data_href->{$new_num}) {
    
84.                     $words_aref = $a_data_href->{$new_num};
    
85.                     last;
    
86.                 }
    
87.             }
    
88.         }
    
89.         else {
    
90.             # look for numbers both way
    
91.             my $new_num_bigger  = $num;
    
92.             my $new_num_smaller = $num;
    
93. 
    
94.             while (1) {
    
95.                 $new_num_bigger  += 1;
    
96.                 $new_num_smaller -= 1;
    
97. 
    
98.                 my @words = ();
    
99.                 if (exists $a_data_href->{$new_num_bigger}) {
    
100.                     push @words, @{ $a_data_href->{$new_num_bigger} };
     
101.                 }
     
102. 
     
103.                 if (exists $a_data_href->{$new_num_smaller}) {
     
104.                     push @words, @{ $a_data_href->{$new_num_smaller} };
     
105.                 }
     
106. 
     
107.                 if (scalar @words) {
     
108.                     $words_aref = \@words;
     
109.                     last;
     
110.                 }
     
111.             }
     
112. 
     
113.         }
     
114.     }
     
115. 
     
116.     return $words_aref;
     
117. }
     
118. 
     
119. 
     
120. __END__

复制代码

patagonia2

回复 13# stanley_tam

谢谢大圣指导。

偶测试看看
   
   

patagonia2

回复 12# sunzhiguolu


谢谢指导。
第二列数值 > 0

patagonia2

回复 11# MMMIX

谢谢指导。

patagonia2

回复 7# 523066680

大圣为什么删除代码
   

substr函数

回复 13# stanley_tam


   

            while (1) {
                $new_num_bigger  += 1;
                $new_num_smaller -= 1;

方法简单而思路巧妙
确实非常巧妙，赞一个 [ ]

stanley_tam

多谢大神的赞 回复 18# substr函数


   

patagonia2

回复 19# stanley_tam


呵呵，就是这个意思。
非常感谢大圣，程序没有问题。