Sayed, Irfan (Irfan) wrote:
>
> 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;
John W. Krahn wrote:
>
> What is it doing that you don't want it to do? What is it not doing?
Sayed, Irfan (Irfan) wrote:
>
> Can any body please help on this
I can tell you what's probably wrong with your program Irfan, but I'm as
frustrated as Dani is that you didn't respond to John's question. You may as
well have written 'fix this please'.
The line
my @vob_list = `$CT lsvob -s`;
puts the output from lsvob into @vob_list which, because of the -short qualifier
is just a list of VOB tags, but each one is terminated with a newline. When you
go to use the tags in the lsreplica command the trailing newline is almost
certainly messing up the -invob qualifier, so I suspect your result is that no
replicas are found?
To fix it, just
my @vob_list = `$CT lsvob -s`;
chomp @vob_list;
I hope that works for you, but please try to explain your problem properly in
future and also try to appear to have worked on it a little yourself. And, like
Dani said, please bottom-post.
For others' benefit, cleartool is a version control system, A VOB is a Version
Object Base.
Cheers,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
