foreach (@vob_list)
{
my @repl = `$CT lsreplica -invob $_ | grep cmvobsvr1mum`;
print @repl;
}
Could you use perl's grep instead?Like:
for (@vob_list){
my @repl = `$CT lsreplica -invob $_`;
my @repl2 = grep { /cmvobsvr1mum/ } @repl;
print @repl2;
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
