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

Re: [MacPerl] Applescript Returns...



At 12.18 -0400 1998.09.05, Strider wrote:
>I have an embedded applescript which is returned a filename by the program
>it talks to. I need it to return that filename to MacPERL. I think there
>are a few ways to do it, but I need opinions on which is the easiest or
>most efficient.

#!perl -wl
$file = MacPerl::DoAppleScript(<<EOS);
tell application "Finder"
  set my_file to select startup disk
end tell
return my_file
EOS
print $file;
__END__

That should do it ...

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