Sayed, Irfan (Irfan) am Montag, 25. September 2006 14:50:
> Can any body please help on this
>
> Regards
> Irfan.
Hello
please read on at the bottom.
_____
>
> 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.
Please don't top post. The answer follows the question, that's the natural
order.
Did you read John W. Krahn's hints?
Please, if you expect help from people that can't read minds:
Describe your problem. What means "proper output"? What should be the output?
What improper output did you get?
Your script uses external programs that not everybody has installed (I think)
or even has heard of (at least me). This makes it difficult/impossible to
test your script.
It's not clear if that what goes wrong is on the external programs or the perl
level.
Please try to narrow down the place(s) where the "misfunction" may occur. Did
you insert some simple "debug" statements as for example warn calls to see if
the output is as you expect? Can you identify lines where something goes
wrong?
If you try to answer such questions, you may find the misfunction yourself. If
not, it makes you able to shorten the scripts to the relevant parts.
patient: "I'm feeling ill. What should I do?"
doctor : "Where do you feel ill?"
patient: (silence)
doctor : (waiting)
patient: "Please, can you help? I'm feeling ill!"
doctor : "Next patient please!"
Dani
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
