2个问题，实现一对多，然后 再多对一的表格可以吗，大侠们

zhxftj

用hash ，数组都可， 请赐教， 是2个问题
Input file:
cluster1 loc1 。。。
cluster1 loc2 。。。
cluster1 loc3 。。。
cluster1 loc4 。。。
cluster2 loc5 。。。
cluster2 loc6 。。。
cluster2 loc7 。。。
relationship file:
group1 cluster1 loc1
group1 cluster1 loc2
group2 cluster 1 loc3
group2 cluster 1 loc4
group3 cluster2 loc5
group3 cluster2 loc6
group3 cluster2 loc7

有求，问题一1）将每组分别存成一个文件
结果如下，请打印出
文件1:
group1 cluster1 loc1 。。。
group1 cluster1 loc2。。。
文件2:
group2 cluster 1 loc3。。。
group2 cluster 1 loc4。。。
文件3:
group3 cluster2 loc5 。。。
group3 cluster2 loc6。。。
group3 cluster2 loc7 。。。

解释 一对多在于一个group 对应几个cluster 和 loc 组合，

问题2） 多对一， 是用一个特定的组合可以找到所在group
仅在一个文件中给出
cluster1 loc4。。。
cluster2 loc5。。。
cluster2 loc6。。。

请打印出
cluster1 loc4 group2。。。
cluster2 loc5 group3。。。
cluster2 loc6 group3。。。

rubyish

input

1. cluster1 loc1 。。。
   
2. cluster1 loc2 。。。
   
3. cluster1 loc3 。。。
   
4. cluster1 loc4 。。。
   
5. cluster2 loc5 。。。
   
6. cluster2 loc6 。。。
   
7. cluster2 loc7 。。。

复制代码

rela

1. group1 cluster1 loc1
   
2. group1 cluster1 loc2
   
3. group2 cluster1 loc3
   
4. group2 cluster1 loc4
   
5. group3 cluster2 loc5
   
6. group3 cluster2 loc6
   
7. group3 cluster2 loc7

复制代码

Q2

1. cluster1 loc4。。。
   
2. cluster2 loc5。。。
   
3. cluster2 loc6。。。

复制代码

pl

1. #!/usr/bin/perl
   
2. my @files = qw/input rela Q2/;
   
3. my ( $i, $r, $q ) = map { open my ($f), $_; $f } @files;
   
4. my %i = map /(\w+\s+\w+)(.*)/, <$i>;
   
5. my ( $n, $fh, %g ) = 'test';
   
6. 
   
7. while (<$r>) {
   
8.     chomp;
   
9.     my ( $g, $c ) = split /\s+/, $_, 2;
   
10.     $g =~ /(\d+)/;
    
11.     open $fh, '>', 'DOC' . $1 if $n ne $1;
    
12.     print $fh "$g $c$i{$c}\n";
    
13.     ( $g{$c}, $n ) = ( $g, $1 );
    
14. }
    
15. 
    
16. s/(\w+\s+\w+\d+)/$1 $g{$1}/ and print while <$q>;
    

复制代码

1. perl abc.pl

复制代码

zhxftj

回复 2# rubyish
谢谢赐教 试下， 高手呀 :wink: ，呵呵

   

zhxftj

回复 2# rubyish
工作了 ，厉害呀

我要是有钱，就 雇你当我的程序员，呵呵

哎。。。可惜呀 。。

   

zhxftj

回复 1# zhxftj
诸位，map 太高深，有没有个，俺看的懂的实现方法呀，
我 的 最高水平也就 hash了。。。