RE: array help

[Sayed, Irfan \(Irfan\)]

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]>