sorry about that. I am running this script on WIN2k. yes i checked the contents. $cmd1 Contents are: Attributes in VOB train $cmd2 COntents are: SYNC_CHECK
Regards j -----Original Message----- From: Sudarshan Raghavan [mailto:[EMAIL PROTECTED]] Sent: Monday, October 07, 2002 1:01 PM To: Perl beginners Subject: RE: statement 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]
