求shell/awk/python/perl实现数字级联效果脚本

rubyish

maybe:

1. #!/usr/bin/perl
   
2. use 5.010;
   
3. 
   
4. my ( %har, $lista );
   
5. while (<DATA>) {
   
6.     my ( $dit, $dat ) = split;
   
7.     push @$lista, $dit unless $har{$dit};
   
8.     push @{ $har{$dit}{lista} }, $dat;
   
9. }
   
10. 
    
11. rabta();
    
12. 
    
13. # ____________________SUB____________________
    
14. 
    
15. sub rabta { R_( $lista, 1, [] ) }
    
16. 
    
17. sub R_ {
    
18.     my ( $lista, $premier, $kolek ) = @_;
    
19.     say join ' -> ', @$kolek unless @$lista;
    
20. 
    
21.     for my $dit (@$lista) {
    
22.         next if $premier and $har{$dit}{bekas};
    
23. 
    
24.         if ( !$har{$dit} ) {
    
25.             R_( [], 0, [ @$kolek, $dit ] );
    
26.         }
    
27.         else {
    
28.             $har{$dit}{bekas} = 1;
    
29.             R_( $har{$dit}{lista}, 0, [ @$kolek, $dit ] );
    
30.         }
    
31.     }
    
32. }
    
33. 
    
34. __DATA__
    
35. 57562        57782
    
36. 57562         57783
    
37. 57773         57778
    
38. 57782         57773
    
39. 57782         57796
    

复制代码