Re: [MacPerl] Mac::AppleEvents::Simple feedback

[riechert@miyako.japanologie.kultur.uni-tuebingen.de (Andreas Marcel Riechert)]

Kevin,

That one looks more like "AppleScript2ApperlScript".
Anyway, it seems to be the answer I deserve:-)
Just wondering how much work it would take to write
a real AppleScript2perl --or lets say AppleScript to
"AppleEvent with some perl arround".

Andreas Marcel


Kevin Reid wrote:
>#!perl -w
>
>@ARGV == 1 or die "Only one file at a time, please!";
>
>open OUT, "> $ARGV[0].pl" or die "Open failed: $!";
>
>print OUT <<"END";
>#!perl
>
>MacPerl::DoAppleScript <<"EOAS";
>END
>
>while (<>) { print OUT "  $_"; }
>
># print join "\n", map {"  $_"}, <>; # use only for small files
>
>print OUT <<"END";
>
>EOAS
>END
>
>__END__
>
>-- 
>  Kevin Reid.      |         Macintosh.
>   "I'm me."       |      Think different.


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