for (@privates) { chomp; print "Attemp to del $_\n"; unlink ($_) ? {print "$_ unable to del" } : {print "$_ deleted" }; }
I didn't ever tried unlink @array like method, perhaps the problem is there. and you got 0 delete is the "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 > > > > 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]