Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re^3: 'perl -e' and '__DATA__' What's wrong?

by shmem (Canon)
on Dec 10, 2007 at 12:41 UTC ( #656101=note: print w/ replies, xml ) Need Help??

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.


_($_=" "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}

Comment on Re^3: 'perl -e' and '__DATA__' What's wrong?
Download Code
Replies are listed 'Best First'.
Re^4: 'perl -e' and '__DATA__' What's wrong?
by Skeeve (Vicar) 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 ++...


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://656101]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (13)
As of 2015-11-30 15:47 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (774 votes), past polls