Re: [MacPerl] That Do Script thing

[Gero Herrmann <herr@ils.uec.ac.jp>]

At 21:31 -0700 2000-09-06, Mikael Hansen wrote:
>I'm wondering if it is possible to pass a list of strings and let the Perl
>script return a value, e.g.
>
>    set r to (Do Script (PerlScript, aList))

The Do Script command takes a list value of which the first can contain
either the text of a Perl script or the path to a MacPerl script saved in any
form. The rest of the elements of the list go into the @ARGV array.

Gero Herrmann
Nishinomiya, Japan

---start calling AppleScript---
set PerlArgs to {"x", "y"}
set PerlFile to "PowerBook HD:Desktop Folder:untitled 2"

tell application "MacPerl"
    set r to (Do Script {PerlFile} & PerlArgs)
end tell
---end calling AppleScript---

---start called Perl script---
#!perl -w

MacPerl::Reply( join '', @ARGV );
---end called Perl script---

# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org