RE: Proper output

[Sayed, Irfan \(Irfan\)]

 
Can any body please help on this
 
Regards
Irfan.
 

  _____  

From: Sayed, Irfan (Irfan) 
Sent: Friday, September 22, 2006 12:59 PM
To: beginners@perl.org
Subject: Proper output



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.