> 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