From:	Nobumi Iyanaga	Date:	Sun Jul  1 18:49:08 2007
Subject:	Re: [MacPerl] passing arguments: AppleScript to MacPerl

Hello Louis,

On Jun 29, 2007, at 10:36 AM, Louis Pouzin wrote:

> Hi,
>
> Calling a macperl script (dog) from AS, with arguments a, b c,  
> would read:
> 	tell perl to do script {dog, a, b, c}
>
> Assuming that a, b, c are strings, they are copied to @ARGV in dog.
>
> The problem I have is passing a list of arguments, e.g.
> 	set names to selection -- nb of selected objects not predictable
> 	tell perl to do script {dog, names} -- names conversion fails
>
> Then I can converts names to a list of strings:
> 	set snames to {}
> 	repeat with nam in names
> 		set snames to snames & (nam as text)
> 	end repeat
> 	tell perl to do script {dog, snames} -- dog is called, @ARGV is empty
>
> dog could be:
> 	$\ = "\n"; # print with EOL
> 	print "nb args: ", scalar @ARGV;
> 	$" = "\n"; # separator
> 	print "@ARGV";

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.

Best regards,

Nobumi Iyanaga
Tokyo,
Japan