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

乔纳斯826

如有测试数据：
57562        57782
57562         57783
57773         57778
57782         57773
57782         57796
经过处理后得到：
57562->57782->57773->57778
57562->57782->57796
57562->57783

输入测试数据：
57562        57782
57774         57778
57783         57773
经过处理后得到：
57562->57782
57774->57778
57783->57773
求shell/awk/python/perl实现级联效果的脚本。输入数据只有2列，第一列数据可能重复，第二列数据不会重复。

乔纳斯826

回复 2# 本友会机友会摄友会

第一列为系统资源（如数据库中表上的锁）的拥有者，第二列为系统资源的申请者。当有输入数据时，即表示有锁链产生。此时需要获取此锁链。锁链可能是级联的。如a锁住b,b又锁住c，需要脚本实现a->b->c。请大神指导

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
    

复制代码

乔纳斯826

回复 4# rubyish

功能已实现，能否将脚本函数功能部分放一个单独的脚本？如： cat data.txt |perl test.pl   实在不懂perl脚本，多谢大神。

yinyuemi

回复 1# 乔纳斯826

1. awk 4.0+

复制代码

1. awk '{a[$1][$2]}END{for(i in a){for(j in a[i]){if(!(j in o))printf fun(i"->"j,j)}}}function fun(t,n){if(n in a){o[n];for(m in a[n]){t=t"->"m;fun(t,m);t=i"->"j}}else{o[n];print t}}' data
   

复制代码

乔纳斯826

回复 6# yinyuemi

多谢大神回复。你的脚本输出为：57782->57796
57782->57773->57778
57562->57782->57796
57562->57782->57773->57778
57562->57783



我还有2个问题：
1. 能否将红色部分去掉呢？因为下面的锁链中已经包含了此部分
2. awk的版本在4.0以上才能执行成功。我的Redhat 6.5上awk版本为3.1。有在awk 3.1版本实现的脚本吗？awk版本升级不方便

jason680

回复 1# 乔纳斯826

$ cat data
57562        57782
57562         57783
57773         57778
57782         57773
57782         57796
57778         57782
57796         57782

$ perl list.pl data
57562 -> 57782 -> 57773 -> 57778 -> 57782(Cycled)
57562 -> 57782 -> 57796 -> 57782(Cycled)
57562 -> 57783

$ cat data1
57562        57782
57774         57778
57783         57773

$ perl list.pl data1
57774 -> 57778
57562 -> 57782
57783 -> 57773

$ cat list.pl
use strict;
use warnings;

my(%hData, %hParent);

while(<>){
  my($sData, $sNext) = split;
  push @{$hData{$sData}}, $sNext;
  $hParent{$sNext} = 1;
}

my %hCycle;
for(keys %hData){
  next if exists $hParent{$_};
  %hCycle = ($_, 1);
  get_next($_, $_);

}

sub get_next{
  my($sKey, $sStr) = @_;
  if(! exists $hData{$sKey}){
    print "$sStr\n";
    return;
  }
  
  foreach(@{$hData{$sKey}}){
    if(exists $hCycle{$_} and $hCycle{$_}){
      print "$sStr -> $_(Cycled)\n";
      next;
    }
    $hCycle{$_} = 1;
    get_next($_, "$sStr -> $_");
    delete $hCycle{$_};
  }
}

yinyuemi

回复 7# 乔纳斯826

1. echo '57562        57782
   
2. 57562         57783
   
3. 57773         57778
   
4. 57782         57773
   
5. 57782         57796' |awk '{a[$1][$2]}END{for(i in a){for(j in a[i]){if(!(j in o))printf fun(i"->"j,j)}}}function fun(t,n){if(n in a){o[n];for(m in a[n]){t=t"->"m;fun(t,m);t=i"->"j}}else{o[n];print t}}'
   
6. 57562->57782->57773->57778
   
7. 57562->57782->57796
   
8. 57562->57783
   

复制代码

我执行没问题啊，只有三个输出
关于版本问题，你自己编译一下吧

乔纳斯826

回复 8# jason680

功能完美实现，还有cycle判断，脚本很给力。感谢大神！