At 22:50 -0600 2002-02-28, Bruce A. Burdick, Jr. wrote:
>What about:
>set perlFileCall to perlFile & " " & myStr
>set myDate to do shell script perlFileCall

This works as long as the Perl script is stored in a separate file. When
embedding the Perl script inside the AppleScript I could not make it work
but in that case all data to be passed can be embedded in the text of the
Perl script itself - there is no need for command line arguments.

-------------------------------------------------------------

set argument to "This is passed to Perl"

set my text item delimiters to return
set perlScript to text items of "/usr/bin/perl <<'__END__'
my $argument = <<'EOFARGS';
" & argument & "
EOFARGS
chomp $argument;
print qq(Perl was passed: $argument);
__END__
"
set my text item delimiters to ascii character 10
do shell script (perlScript as text)

display dialog result

-------------------------------------------------------------

Whith this technique AppleScript droplets can be made that contain Perl
code just like MacPerl DropShell droplets do - but which work natively in
both Mac OS X and classic Mac OS, using the appropriate Perl.

Gero Herrmann
Nishinomiya, Japan

Reply via email to