Re: [MacPerl] MacPerl->Applescript

[Christian Huldt <chr@solvare.se>]

Shyam Hegde skrev/wrote:
>Is there any way in MacPerl to pass more than just one string to
>AppleScript?? I would like to pass back about 4-5 strings to AppleScript
>and have them take seperate variables in AppleScript for passage back to
>Tango in the form of a list of lists
>{{"blah","subblah"},{"moreblah","somefoo","fooey"}}

Hopefully someone else has a better solution but you could of course do it
in Applescript, i.e. something along the lines of this:

	tell application "MacPerl"
		set x to (Do Script "#!perl

	$dir = `pwd`;
	chomp $dir;
	@list = split (\":\",$dir);
	$reply = join ('|', @list);
	MacPerl::Reply ($reply);
	")
	end tell

	set AppleScript's text item delimiters to "|"
	set y to text items of x
	set AppleScript's text item delimiters to ""
	y


Christian
<http://www.solvare.se/individer/christian/>
______________________________________________________
Solvare     -    let's solve it!
<http://www.solvare.se>



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch