Hi All,
I am not getting the proper output in @vob_rep Array.
Following is my code
# Perl script to change the replica name
use strict;
use warnings;
my $fname = "/tmp/vob_list1";
open FILE,">",$fname or die $!;
my $fname1 = "/tmp/repl_list1";
open FILE1,">",$fname1 or die $!;
my $CT = '/usr/atria/bin/cleartool';
my $MT = '/usr/atria/bin/multitool';
my @vob_list = `$CT lsvob -s`;
print FILE @vob_list;
my @repl;
my @repl1;
foreach my $a (@vob_list)
{
@repl = `$CT lsreplica -s -invob $a`;
@repl1 = grep { /cmvobsvr1mum/i } @repl; print FILE1 @repl1; } my
@vob_rep = splice(@repl1, 0, -10); print @vob_rep;
close FILE1;
Plz help
Regards
Irfan.
