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. 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]
