Hello Nobumi,
Great to hear from you again. Thank you for your suggestions. Indeed I am using
Mac OS on old MACs. One OS is 7.5.5, the other 9.0.4.
I have tried your scheme.
On OS 9.0.4, it fails, and I don't understand why.
-- args is an argument list of class "list", each item is a string
copy dog to the beginning of args
activate perl
tell perl to do script args -- error on script
or
tell perl
Do Script args mode batch -- error on script
end tell
The diag is: end of line, etc. expected but "script" found
On OS 7.5.5 the statement "tell perl to do script args" calls dog.
"Do Script args mode batch" fails on "mode", with the diag:
Expected end of line but found identifier
However, even when dog is called, no argument is copied to @ARGV. It seems that
I'll have to rig the perl script and use the clipboard (or resort to the
perlfire interface I wrote years ago). But I'd prefer the classic interface via
@ARGV.
Best regards
- -
On Mon, 2 Jul 2007 09:49:08 +0900, Nobumi Iyanaga wrote:
>If you are using Classic MacPerl, then this works on my machine:
set my_script to "myDocument:Users:ni:Desktop:dog.pl"
set args to {"dog", "cat"}
set perl_arg to {}
set perl_arg to perl_arg & my_script
set perl_arg to perl_arg & args
tell application "MacPerl"
Do Script perl_arg mode Batch
end tell
I hope this helps you.
