求助，perl

MMMIX

回复 7# rubyish


    先加载所有数据，然后在遍历的过程中递归查找group，很直白的算法。

我的方法是逐行读取数据，让 element 始终指向其当前所在的 group：

1. 
   
2. use v5.14;
   
3. no warnings qw(experimental::autoderef);
   
4. 
   
5. my %group_of;
   
6. while (<>) {
   
7.     my @fields = split;
   
8. 
   
9.     my $group;
   
10.     $group->{$_} = 1 for (@fields, map { $_? keys $_ : () } @group_of{@fields});
    
11.     $group_of{$_} = $group for keys $group;
    
12. }
    
13. 
    
14. my %printed;
    
15. for (values %group_of) {
    
16.     unless ($printed{$_}) {
    
17.         say "@{[sort keys $_]}";
    
18.         $printed{$_} = 1;
    
19.     }
    
20. }
    

复制代码

MMMIX

回复 9# rubyish


    没有考虑后面的输入会将前面不相关的两个组结合在一块的情况。

j_cle

回复 10# rubyish


    这样看明朗了，多谢了，另外请问下@_ 这个数组，在这里是不是仅仅充当一个临时数组而已吧? 不涉及到参数的传递

MMMIX

回复 13# j_cle


    在 subroutine 之外，@_ 就是个普通的全局数组。

j_cle

回复 14# MMMIX


    了解

赛萌

回复 4# MMMIX

我去，大神级别的啊，您教导的对，是我不够努力，请问看完perl语言入门我接着应该看哪些书，我现在看的是Intermediate Perl ,请您不吝赐教！！万分感谢！！！
   

MMMIX

回复 16# 赛萌


    Programming Perl,
Perl Best Practices.

赛萌

回复 17# MMMIX


    谢谢，谢谢，我想问一下什么都不会的正常人一般得写代码多久才能达到您上面写的那个代码的水平啊！如果说的不对的地方，还望批评指正！！

赛萌

回复 2# rubyish

也谢谢您！！
   

MMMIX

回复 18# 赛萌


    半年吧。猛一点的估计两个月左右。