Re: [MacPerl] passing arguments: AppleScript to MacPerl

On Jun 28, 2007, at 6:36 PM, Louis Pouzin wrote:

> 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

Right, AppleScript doesn't have interpolating lists like Perl does.

> 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

'&' is a string concatentation operator.  I think you mean "copy nam  
to end of snames".  If instead you wrote 'set snames to ""', you'd  
tell perl to do script { dog, "foo bar baz" } rather than { dog,  
"foo", "bar", "baz" }.

> dog could be:
> 	$\ = "\n"; # print with EOL
> 	print "nb args: ", scalar @ARGV;
> 	$" = "\n"; # separator
> 	print "@ARGV";
>
> Could anyone suggest a way around ?

set names to {...}
set argv to names
copy dog to beginning of argv
tell perl to do script argv

(The double-set is there for clarity and can be elided.)

These days I don't use MacPerl anymore -- I have my own port of perl  
to a Unix-like environment that runs on classic Mac OS.

Josh