Re^3: RFC: Porting map() and grep() to AppleScript

[zentara]

... i thought it was twiiter :-)

...seriously.... the conventional way to introduce non-perl scripts here, is to wrap them in an here doc, like:

#/usr/bin/perl

my $scriptSrc = <<"EOF"; 
<SCRIPT LANGUAGE="APPLESCRIPT"> 

# all your applescript here

EOF

print $scriptSrc,"\n";

... then everybody is happy

[ambrus]

Indeed, you need to wrap it that way otherwise the site gets syntax coloring and reindenting wrong. You also need to add use warnings; use strict; though, or it will get rejected on the base that you'd find the trivial errors if you enabled those.