[MacPerl] passing arguments: AppleScript to MacPerl

[Louis Pouzin]

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