Re: del files

2002-07-25 Thread John W. Krahn
[ Please don't top-post Please remove unwanted lines from your post. ( 122 lines trimmed ) ] Connie Chan wrote: > > 1. in the array > > Method 1 > for (my $x = 0; $x <= $#privates; $x++) > { $privates[$x] =~ s/^(.+)$/"$1"/ } > > Method 2 > for (0..$#privates) > { my $temp = shift(@privat

RE: del files

2002-07-25 Thread Timothy Johnson
y time he would get a non-zero result is the first time through the loop. -Original Message- From: Sudarshan Raghavan [mailto:[EMAIL PROTECTED]] Sent: Thursday, July 25, 2002 12:41 AM To: Timothy Johnson Cc: 'Javeed SAR '; '[EMAIL PROTECTED] ' Subject: RE: del files O

Re: del files

2002-07-25 Thread Connie Chan
way, anybody in list can tell ? 2. in the unlink loop [...] print "\"$_\""; [...] Rgds, Connie - Original Message - From: "Javeed SAR" <[EMAIL PROTECTED]> To: "Connie Chan" <[EMAIL PROTECTED]> Sent: Thursday, July 25, 2002 7:15 P

Re: del files

2002-07-25 Thread John W. Krahn
Javeed Sar wrote: > > I want to delete files. > > I am not able to delete , what is the wrong thing I am doing here. > I am able to see the file in @privates > > I am getting following output: > > 0 deleted > Attempting to delete M:\jav_test\train\k k k.mkelem.mkelem > > #!c:\perl\bin\perl >

Re: del files

2002-07-25 Thread Connie Chan
Thursday, July 25, 2002 2:07 PM > To: Javeed SAR; [EMAIL PROTECTED] > Subject: Re: del files > > for (@privates) > { chomp; > print "Attemp to del $_\n"; > unlink ($_) ? > {print "$_ unable to del" } : > {print "

Re: del files

2002-07-25 Thread Connie Chan
he "fail signal" send back from the unlink action. you will got 1 deleted if the unlink is success. Rgds, Connie - Original Message - From: "Javeed SAR" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Thursday, July 25, 2002 2:46 PM Subject: del files

Re: del files

2002-07-25 Thread Felix Geerinckx
on Thu, 25 Jul 2002 06:58:03 GMT, Javeed Sar wrote: If you had used strict, Perl would have noticed the problem. > #!c:\perl\bin\perl > @privates =`cleartool lsprivate -tag jav_test -other`; > #print "@privates"; > #print "Enter a pattern:"; > #my $pattern =<>; > #chomp $pattern; > foreach (@

RE: del files

2002-07-25 Thread Sudarshan Raghavan
mp them off. I think you want to > change that line to "unlink $_", followed by "$_ deleted". > > -Original Message- > From: Javeed SAR > To: [EMAIL PROTECTED] > Sent: 7/24/02 11:46 PM > Subject: del files > > > > > I want to

RE: del files

2002-07-25 Thread Timothy Johnson
wed by "$_ deleted". -Original Message- From: Javeed SAR To: [EMAIL PROTECTED] Sent: 7/24/02 11:46 PM Subject: del files I want to delete files. I am not able to delete , what is the wrong thing I am doing here. I am able to see the file in @privates I am getting followi

del files

2002-07-24 Thread Javeed SAR
I want to delete files. I am not able to delete , what is the wrong thing I am doing here. I am able to see the file in @privates I am getting following output: 0 deleted Attempting to delete M:\jav_test\train\k k k.mkelem.mkelem #!c:\perl\bin\perl @privates =`cleartool lsprivate -ta