Re^6: How can one get all possible combinations of elements of different arrays using File::Glob(bsd

Hi hdb,

Thank you for the code. It works but the problem is that it produces all the combinations alongwith the desired 6-letter combinations i.e.

~A1T1C1G1A1C1~
~A1T1C1G2A1C1~
~A1T1C2G1A1C1~
~A2T3C1G1A1C1~
~A2T3C1G2A1C1~
~A2T3C2G1A1C1~
[download]

Here is the text output of your code:

~A1T1C1G1A1C1~
~A1T1C1G1~
~A1T1C1G1~
~A1T1C1G1~
~A1T1C1G1~
~A1T1C1G1~
~A1T1C1G1~
~A1T1C1G1~
~A1T1C1G2A1C1~
~A1T1C1G2~
~A1T1C1G2~
~A1T1C1G2~
~A1T1C1G2~
~A1T1C1G2~
~A1T1C1G2~
~A1T1C1G2~
~A1T1C2G1A1C1~
~A1T1C2G1~
~A1T1C2G1~
~A1T1C2G1~
~A1T1C2G1~
~A1T1C2G1~
~A1T1C2G1~
~A1T1C2G1~
~A1T1A1C1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1A1C1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1A1C1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1A1C1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1A1C1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1A1C1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A1T1~
~A2T3C1G1A1C1~
~A2T3C1G1~
~A2T3C1G1~
~A2T3C1G1~
~A2T3C1G1~
~A2T3C1G1~
~A2T3C1G1~
~A2T3C1G1~
~A2T3C1G2A1C1~
~A2T3C1G2~
~A2T3C1G2~
~A2T3C1G2~
~A2T3C1G2~
~A2T3C1G2~
~A2T3C1G2~
~A2T3C1G2~
~A2T3C2G1A1C1~
~A2T3C2G1~
~A2T3C2G1~
~A2T3C2G1~
~A2T3C2G1~
~A2T3C2G1~
~A2T3C2G1~
~A2T3C2G1~
~A2T3A1C1~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3A1C1~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3A1C1~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3A1C1~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3A1C1~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3A1C1~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~A2T3~
~C1G1A1C1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G2A1C1~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C2G1A1C1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~C1G1A1C1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G2A1C1~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C2G1A1C1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~C1G1A1C1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G2A1C1~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C2G1A1C1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~C1G1A1C1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G2A1C1~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C2G1A1C1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~C1G1A1C1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G2A1C1~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C2G1A1C1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~C1G1A1C1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G2A1C1~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C2G1A1C1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~C1G1A1C1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G2A1C1~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C2G1A1C1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~C1G1A1C1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G1~
~C1G2A1C1~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C1G2~
~C2G1A1C1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~C2G1~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
~A1C1~
~~
~~
~~
~~
~~
~~
~~
[download]

Here the input files i.e. k1.txt, k2.txt, k3.txt are small. When the input files are large, then I shall face problem in selecting the desired longest combinations from a very large cmd or text file output. It will be much easier if the output text file shows only the longest combinations as given above. I think it is not very easy task in perl. I think so because poj has also suggested a script which produces many unwanted combinations along with the desired 6-letter longest combinations. From the output text file, the unwanted combinations are to be deleted manually to retain only the longest correct, desired combinations. It will be a very time-taking task for more input files with large size. I wish perl could solve this problem.

Comment on Re^6: How can one get all possible combinations of elements of different arrays using File::Glob(bsd_glob)? Select or Download Code

Replies are listed 'Best First'.
Re^7: How can one get all possible combinations of elements of different arrays using File::Glob(bsd_glob)? by hdb (Monsignor) on Apr 25, 2013 at 07:31 UTC
Not what I get. I only get the six desired lines. Probabaly your k?.txt files have a lot of empty lines??? In which case, you need to modify the code by adding two more lines: `chomp $DNA; $DNA=~s/\n/,/g; $DNA=~s/,+$//g; # new $DNA=~s/,,+/,/g; # new $string .= "{$DNA}";` [download] This removes multiple commata or trailing commata created by empty lines. Let me know whether this solves the problem.	[reply] [d/l]
Re^8: How can one get all possible combinations of elements of different arrays using File::Glob(bsd_glob)? by supriyoch_2008 (Monk) on Apr 25, 2013 at 11:07 UTC
Hi hdb, Thanks a lot. I have put the two new lines given by you in the script. Now the script has worked nicely and I have got the results the way I wanted. My heartfelt thanks to you. I wish I could develop the skills like you in perl. It appears to me that possibly no problem in perl is insurmountable to you. My heart knew no bounds when I had found the correct results using the code given by you. With deep REGARDS to you for your kind help and guidance. I SALUTE your intellectual achievement. This is the message from my heart to you. My English is not very good and so I don't know which words or sentences I should use here appropriately to thank you.	[reply]