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

[MacPerl] Passing values between AppleScript and MacPerl



I'm still relying extensively on AppleScript to do certain things. I know 
that there are ways of doing them in MacPerl, and I'll get around to 
learning them in time; for now, however, I find MacPerl::DoAppleScript() 
very useful.

One thing I'm battling with, though, is passing values between MacPerl 
and AppleScripts embedded in the same script. Would I be correct in 
stating that the way to do this is by following the examples on 
pp.249-250 of MPPE, like this:
-----------
#!perl -w
use strict;
my($result, $script);
$result = "";
$script = <<EOS;
tell application "MacPerl"
  return Do Script "MacPerl::Reply(join ('|', ('a'..'g')))"
end tell
EOS
$result = MacPerl::DoAppleScript($script) or die("Could not run script: 
$!\n");
print("$result\n");
-----------
This dies with the error: "No such file or directory".

If someone spots some idiotic error in my script and helps me get it to 
work, I've another question: Is it possible to send a more complex 
MacPerl script from an AppleScript within a MacPerl script, or is it 
limited to a single statement?

My brain hurts!
SeanC
                     Mediatek Training Institute
   1st Floor Media Park, 129 Moore Road, Berea, Durban, South Africa
   phone: +27 (0)31 305 4200              SeanC@mediatek.co.za
   fax: +27 (0)31 305 4236                SeanC@dmax.co.za


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