On Mon, 7 Oct 2002, Javeed SAR wrote:
>
>
> This is my script, what changes should i make.
How am I supposed to say that if you are not going to post the error
message?
>
>
> #+++++++++
> #!c:\perl\bin\perl
Have you tried use strict; and use warnings;. They might throw out
something interesting.
> open(FD,"<c:\\att.txt");
> #open(FD,"<\\\\blrk35ed\\temp1\\vob.txt");
> @vobs=<FD>;
> chomp($_);
>
> foreach $cmd1(@vobs){
Why not while (<FD>) on the filehandle, why do you read it into an array
and foreach on that array.
> chomp($cmd1);
> #print "Attributes in VOB $cmd1\n";
> @cmd_merge=`cleartool lstype -kind attype -s -invob \\$cmd1`;
> foreach $cmd2(@cmd_merge){
> chomp($cmd2);
> #print "$cmd2";
> #@attt=`cleartool desc attype:$cmd2`;
> #@attt="cleartool desc attype:$cmd2\@vob:/$cmd1";
> #@attt = 'cleartool desc attype:$cmd2\@vob://$cmd1';
> @attt = "cleartool desc attype:$cmd2\@vob://$cmd1";
Backticks are fine here, did you read my other post on this thread. I
posted a few questions there and you have not answered any of them.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
