Re^3: CPAN shell - passing params for module installation

Maybe next time, post, not anonymously and perhaps a bit more friendly?

like this perhaps?

perl -le 'print map{pack c,($-++?1:13)+ord}split//,"ESEL\c_:,("'
[download]

;-)

--shmem

update: the Anonymous Monk wasn't me.

_($_=" "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: CPAN shell - passing params for module installation Download Code

Replies are listed 'Best First'.
Re^4: CPAN shell - passing params for module installation by johngg (Canon) on Jan 18, 2007 at 10:15 UTC
I'm trying to work out how this is doing what it is doing. I don't understand the `$-` as I thought that had to do with lines left on a page for formats and `write`s. Please let me in on the secret. Cheers, JohnGG	[reply] [d/l] [select]
Re^5: CPAN shell - passing params for module installation by shmem (Chancellor) on Jan 18, 2007 at 10:38 UTC
Correct. But you can assign to `$-` e.g. to acommodate the page length for your clay tablet printer ¹. `$-` is `0` by default. The rest is easy - `ord(R) == ord(E)+13`, the other chars are offset -1 to the output (S,E,L -> T,F,M). German ESEL is English DONKEY, which is why I made that up in the first place. So the thingy is only acceptable with a smiley appended... ;-) --shmem 1)The code that link points to is from the first edition of Programming Perl (a.k.a Pink Camel) _($_=" "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}	[reply] [d/l] [select]
Re^6: CPAN shell - passing params for module installation by johngg (Canon) on Jan 18, 2007 at 11:04 UTC
Right, got it now! Thanks for the explanation. I might even have got the ESEL/DONKEY joke if my German school studies were not 30+ years in the past. Cheers, JohnGG	[reply]


go ahead... be a heretic
	PerlMonks