perl算法请教

dark_tom

现有文件如下格式：

aaa  1 (1~2)
bbb  2  (2~5)
ccc  6  (4~
...

一共有多少行是不定的，需要根据这一份文件产生 n 份文件，当aaa bbb ccc 是变量，括号中（1~2） (2~5)  (4~6) 是变量的范围，产生的文件赋值有排列组合的效果，想得头都大了就是想不出来啊
产生的文件如下：

第一份文件：
aaa 1
bbb 2
ccc 4
.....

第二份文件：
aaa 2
bbb 2
ccc 4
....

第三份文件：
aaa 1
bbb 3
ccc 4
...

第四份文件：
aaa 2
bbb 3
ccc 4
.....

只是一个红薯

没明白是说什么意思，第一份文件就包含你说那3个变量的所有排列组合？
aaa1
bbb2
ccc4
aaa1
bbb2
ccc5
aaa1
bbb2
ccc6
aaa1
bbb3
ccc4
aaa1
bbb3
ccc5
aaa1
bbb3
ccc6
aaa1
bbb4
ccc4
aaa1
bbb4
ccc5
aaa1
bbb4
ccc6
aaa1
bbb5
ccc4
aaa1
bbb5
ccc5
aaa1
bbb5
ccc6
aaa2
bbb2
ccc4
aaa2
bbb2
ccc5
aaa2
bbb2
ccc6
aaa2
bbb3
ccc4
aaa2
bbb3
ccc5
aaa2
bbb3
ccc6
aaa2
bbb4
ccc4
aaa2
bbb4
ccc5
aaa2
bbb4
ccc6
aaa2
bbb5
ccc4
aaa2
bbb5
ccc5
aaa2
bbb5
ccc6
回复 1# dark_tom


   

dark_tom

每一份文件是一种组合，n份文件就是n个组合

只是一个红薯

1. #!user/bin/perl
   
2. use v5.016;
   
3. use Modern::Perl;
   
4. my $i=1;
   
5. foreach my $aaa(glob'{aaa}{1,2}'){
   
6.     foreach my $bbb(glob'{bbb}{2,3,4,5}'){
   
7.         foreach my $ccc(glob'{ccc}{4,5,6}'){
   
8.             my $out= "$aaa"."\n"."$bbb"."\n"."$ccc\n";
   
9.             my $file=$i++;
   
10.             open FH,'>>',"$file.txt";
    
11.             print FH $out;  
    
12.         }
    
13.     }
    
14. }#不知道行不？这样写有问题的话，请指教。

复制代码

回复 3# dark_tom


   

dark_tom

只是一个红薯 发表于 2012-12-20 11:44
回复 3# dark_tom

如果有100个参数，那岂不是有100个foreach 循环？
而且参数的个数是不定的。

刚在CSDN那边悬赏拿到了答案，用递归算法。

不过还是谢谢你的帮助！

只是一个红薯

能贴下代码么，看怎么实现的？

dark_tom 发表于 2012-12-20 12:35
如果有100个参数，那岂不是有100个foreach 循环？
而且参数的个数是不定的。

rubyish

想得头都大了

1. #!/usr/bin/perl
   
2. 
   
3. my ( $f, $i, $g ) = ( 'file', 1 );
   
4. while (<DATA>) {
   
5.     /(\w+).*\((\w+)~(\w+)/;
   
6.     $g .= '{' . join( '|,', map "$1@" . $_, $2 .. $3 ) . '|}';
   
7. }
   
8. 
   
9. for ( glob $g ) {
   
10.     s/\|/\n/g;
    
11.     s/@/ /g;
    
12.     open my $fh, '>', $f . $i++;
    
13.     print $fh $_;
    
14. }
    
15. __DATA__
    
16. aaa  1 (1~2)
    
17. bbb  2  (2~5)
    
18. ccc  6  (4~6)

复制代码