Here 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;
foreach my $a (@vob_list)
{
my @repl = `$CT lsreplica -s -invob $a`;
my @repl1 = grep { /cmvobsvr1mum/i } @repl;
#print FILE1 @repl1;
}
print @repl1;
my @vob_rep = splice(my @repl1, -50);
print @vob_rep;
#close FILE1;
I already declared the @repl1 in foreach loop.
Please help
Regards
Irfan
_____
From: Igor Lopes [mailto:[EMAIL PROTECTED]
Sent: Wednesday, September 20, 2006 11:02 PM
To: Sayed, Irfan (Irfan)
Cc: beginners@perl.org
Subject: Re: array help
Global symbol "@repl1" requires explicit package name at
ch_repl_name.pl
line 24.
It seems you are using strict, but not declaring @repl1 anywhere. If you
post your code will be easier to help.
--
Igor Lopes <[EMAIL PROTECTED]>
