develooper Front page | perl.macperl | Postings from June 2007

passing arguments: AppleScript to MacPerl

Thread Next
From:
Louis Pouzin
Date:
June 29, 2007 05:50
Subject:
passing arguments: AppleScript to MacPerl
Message ID:
200706290136.l5T1aQJU012861@merlin.enst.fr
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";

Could anyone suggest a way around ?

Thanks

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About