From:	Louis Pouzin	Date:	Sat Jul  7 11:43:19 2007
Subject:	[MacPerl] passing arguments: AppleScript to MacPerl

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.