http://www.perlmonks.org?node_id=656101


in reply to Re^2: 'perl -e' and '__DATA__' What's wrong?
in thread 'perl -e' and '__DATA__' What's wrong?

Then I'd rewrite that as follows
on do_stuff_with(an_item) do shell script "perl -e " & (quoted form of " use strict; use warnings; use Getopt::Long; # get Template from the command line my $TEMPLATE; GetOptions("template=%s",\$TEMPLATE); # and now process while (<>) { # do something with the line and the # TEMPLATE } ") & " " & (quoted form of "--template=" & some_user_changeable_config +_stuff) & " " & (quoted form of POSIX path of an_item) end do_stuff_with

yay, first AppleScript hacking I did did do! ;-)

Dunno whether I got everything right, but the idea is to stuff into a command line argument that which you wanted to stuff into the DATA section.

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

Replies are listed 'Best First'.
Re^4: 'perl -e' and '__DATA__' What's wrong?
by Skeeve (Parson) on Dec 11, 2007 at 09:06 UTC

    You didn't get everything right I fear, but I got the idea!

    Thank you! YOU ARE MY HERO!

    Too bad I just can give 1 ++...


    s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
    +.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e