I love to use glob for such an exercise:
use strict; use warnings; use File::Glob 'bsd_glob'; my @dbs = ("db1","db2"); my @commands =( "HPRMCLI exch create -s EXCHDAGNODE1", "HPRMCLI exch mount -h RMEBackupSvr", "HPRMCLI exch validate -level Log", "HPRMCLI exch unmount", "HPRMCLI exch remove", "HPRMCLI exch create -s EXCHDAGNODE2 -nc", "HPRMCLI exch mount -h RMEBackupSvr", "HPRMCLI exch validate -level Full", "HPRMCLI exch unmount", "HPRMCLI exch remove"); $"=","; my @cmds = bsd_glob "{@commands} -mdb {@dbs}"; print "$_\n" for @cmds;
Update: Of course -- as the Perl Puritans did point out -- the use of any special variable should be localized:
my @cmds = do { local $"=","; bsd_glob "{@commands} -mdb {@dbs}" };
In reply to Re: Perl array output sorting
by hdb
in thread Perl array output sorting
by dvinay
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |