G'day azheid,
You can just use the glob function: there's no need to use the shell.
#!/usr/bin/env perl -l use strict; use warnings; my @x = glob '{CAT,CAC}TGG{GTT,GTC,GTA,GTG}{CCT,CCC,CCA,CCG}'; print "@x";
Output:
CATTGGGTTCCT CATTGGGTTCCC CATTGGGTTCCA CATTGGGTTCCG CATTGGGTCCCT CATTG +GGTCCCC CATTGGGTCCCA CATTGGGTCCCG CATTGGGTACCT CATTGGGTACCC CATTGGGTA +CCA CATTGGGTACCG CATTGGGTGCCT CATTGGGTGCCC CATTGGGTGCCA CATTGGGTGCCG +CACTGGGTTCCT CACTGGGTTCCC CACTGGGTTCCA CACTGGGTTCCG CACTGGGTCCCT CACT +GGGTCCCC CACTGGGTCCCA CACTGGGTCCCG CACTGGGTACCT CACTGGGTACCC CACTGGGT +ACCA CACTGGGTACCG CACTGGGTGCCT CACTGGGTGCCC CACTGGGTGCCA CACTGGGTGCCG
Be aware that there's a system-dependent limit on the size of the result. See GLOB_LIMIT, in File::Glob, for details.
-- Ken
In reply to Re: System Command using Bash Expansion
by kcott
in thread System Command using Bash Expansion
by azheid
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |