[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl] dropping aliases on droplets



Rich Morin wrote:
>I'm fiddling with writing a file-renaming droplet.  At this point, it
>just prints out the names of the items dropped on it.
>
>As a test, I tried dropping an alias on it.  To my surprise, the name
>that got printed was the name of the item that the alias referenced!
>This surprised me no end.  Worse, I see no way to get back from the
>name I received to the name of the alias.
>
>Comments, workarounds, etc, are solicited...
>

I don't know that this will help solve your problem but the following code,
when saved as a droplet, will tell you whether the file dropped on it is an
alias or not.


#!perl5

$file = $ARGV[0];
$link = readlink($file);

if($link) { print "'$file'\n is an alias to\n'$link'.\n" }
else { print "'$file'\n is not an alias\n" }

__END__


If you succeed with your file-renaming droplet I'd appreciate a copy of it
so I can study your work around.

I hope this helps.

David Seay
http://www.mastercall.com/g-s



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