perl 程序修改，改变实现的结果

zxp209

大家好！
     从咱们论坛上找了一个递归求通路的代码，但是我这边的需求稍有差别。
源地址：
http://bbs.chinaunix.net/forum.p ... mp;fromuid=25526646

我用了

1. #!/usr/local/bin/perl
   
2. 
   
3.     use strict;
   
4.     use Data::Dumper;
   
5. 
   
6.     my %Raw;
   
7.     open(FILE,"test4.txt");
   
8.     while(my $line = <FILE>) {
   
9.         next if($line !~ /(\S+)\s+(\S+)/);
   
10.         push @{$Raw{$1}}, $2;
    
11.     }
    
12.     close(FILE);
    
13. 
    
14. 
    
15.     my %Reslut;
    
16.     foreach my $BeginPoint (keys %Raw) {
    
17.         $Reslut{$BeginPoint} = 1;
    
18.         &traversal(\%Raw,$BeginPoint,$BeginPoint,\%Reslut);
    
19.     }
    
20. 
    
21.     foreach my $key (sort keys %Reslut) {
    
22.         print "$key\n";
    
23.     }
    
24. 
    
25.     sub traversal() {
    
26.         my ($Raw,$Value,$EPoint,$Reslut) = @_;
    
27.       
    
28.         for (my $i=0; $i<=$#{$Raw->{$EPoint}}; $i++) {
    
29.             my $NewPoint = $Raw->{$EPoint}[$i];
    
30.             next if($Value =~ $NewPoint);
    
31.             
    
32.             my $NewValue = $Value.$NewPoint;
    
33.             $Reslut{$NewValue} = 1;
    
34.             &traversal($Raw,$NewValue,$NewPoint,$Reslut);
    
35.         }
    
36.       
    
37.         return 0;
    
38.     }

复制代码

假如test4.txt的内容如下

a        b
a        c
b        e
b        f
c        e
c        f
b        c
e        f

那么这个代码打印的结果是
a
ab
abc
abce
abcef
abcf
abe
abef
abf
ac
ace
acef
acf
b
bc
bce
bcef
bcf
be
bef
bf
c
ce
cef
cf
e
ef

我现在想实现各个字母之间用逗号分隔，不知道大家有什么建议没有，谢谢啦。例如：

a，b，c，f
a，b，e
a，b，e，f
a，b，f
a，c
a，c，e
a，c，e，f
a，c，f
b，
b，c
b，c，e，
b，c，e，f
b，c，f
b，e
b，e，f
b，f
c，
c，e
c，e，f
c，f
e，
e，f

ludio333

print join ",",split (//,$key);
print "\n";

zxp209

回复 2# ludio333


    这种方法是把每个字母分开了，但是我想要的是把每个元素分开。

比如我的元数据是这样的：

ab   bc
bc    cd
cd     ef

最后我想打印出：
ab,bc
ab,bc,cd
ab,bc,cd,ef
bc,cd
bc,cd,ef
cd,ef

ludio333

改my $NewValue

kk861123

32行

1. my $NewValue = $Value.$NewPoint;
   

复制代码

改为

1. my $NewValue = “$Value,$NewPoint";
   

复制代码

jason680

回复 3# zxp209

http://bbs.chinaunix.net/forum.p ... ;page=1#pid22003503
   

zxp209

回复 5# kk861123


    谢谢啦。