[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

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



> Chris,
> When can we expect to get as2p (AppleScript2Perl). 
> There was a reason for a[wk]2p[erl] which could be the
> same as for as2p. 
> Don't tell me, you never thought about that one.

#!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