On Thu, 25 Jul 2002, Timothy Johnson wrote:
>
> Your script states "Attempting to delete $_", but when you actually go to
> delete it, you have "unlink @private", which translates to "unlink a file
> whose name is the number of elements in @private.
No, unlink takes a list of files to delete and returns the number of files
successfully deleted. His statement is just fine.
Javeed,
Not sure how the output of cleartool lsprivate looks like, the reason for
unlink returning a 0 maybe the presence of newlines in the output. If so
you will have to chomp 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 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 -tag jav_test -other`;
> #print "@privates";
> #print "Enter a pattern:";
> #my $pattern =<>;
> #chomp $pattern;
> foreach (@privates)
> {
> print "\nAttempting to delete $_\n";
> $delo=unlink @private;
> print "\n $delo deleted";
> }
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
