Re: [MacPerl] Unlocking files

[Richard Christensen <richard@crl.com>]

I have tried holding down the option key and this doesn't work for these 
file.  The finder doesn't complain, it just doesn't delete them.

-- 
         /\                  /\       .       /\____
 _-_    /  \       _/\      /  \     /\      /      \        /\ 
/   \  /    \     /   \  /\/    \   /  \_/\_/   Y    \  /\/\/  \
  u  \/      \___/     \/        \ /                  \/        \
----------------------------------v--------------------------------
Richard Christensen                                          KC7JPQ     
Austin, TX
richard@crl.com

On Mon, 14 Dec 1998, Chris Nandor wrote:

> At 07.59 -0500 1998.12.14, Richard Christensen wrote:
> >I have tried both of these.  Both chmod and FSpRstFLock fail to unlock
> >the file. So why can I unlock it with ResEdit and not with these? Sharing
> >is not enabled on these files and the files reside on my hard drive.  I
> >just want to trash them, but so far the only way I can is to use ResEdit,
> >which doesn't seem to mind about access privileges when the file in on my
> >harddrive.  The only problem is that I have over 100 of these files I
> >want to throw away.  I have tried shareware idea and what not. I thought
> >for sure that MacPerl could force the unlink.  Any ideas?
> 
> I can't recall ever being unable to unlock a file from the Finder, which
> you said was also a symptom.
> 
> Maybe this will suit you: if the files are all in one place, just drag them
> to the trash and empty the trash while holding down "option".  This will
> delete locked files.  If they are not all in one place or you want to move
> them to the Trash with MacPerl for some other reason, use the rename()
> function to move it to the trash, and then empty it while holding down
> option.
> 
> #!perl -w
> use Mac::Files;
> my @files = ('Bourque:Desktop Folder:perltodo.pod copy');
> foreach (@files) {
>   (my $file = $_) =~ s/^([^:]+):.*:([^:]+)$/$1:Trash:$2/;  # abs. paths only
>   rename($_, $file) or die "can't rename $_ to $file: $!";
> }
> 
> --
> Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
> %PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])
> 

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch