Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re: My first obfu

by chargrill (Parson)
on Apr 20, 2006 at 03:38 UTC ( #544503=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    sed s/eval/print/ | perl | sed s/eval/print/ | perl | perl -MO
  2. or download this
    @_ = (104, 97, [112, 2], 121, 32, 98, 105, 114, 116, 104, 100, 97, 121
    +, 10);
    foreach $_ (@_) {
        print chr $_ if not ref $_;
        print chr($$_[0]) x $$_[1] if ref $_;
  3. or download this
  4. or download this
    $,=42;for(34,0,-3,9,-11,11,-17,7,-5){$*.=pack'c'=>$,+=$_}for(reverse s
    ){$%++?$ %%2?push@C,$_,$":push@c,$_,$":(push@C,$_,$")&&push@c,$"}$C[$#
    >$#c)?($ c=\@C)&&($ C=\@c):($ c=\@c)&&($C=\@C);$%=$|;for(@$c){print$_^

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://544503]
[marto]: configure whatever client you use to use a repositry you like?
[Corion]: usemodperl: Why would you want HTTP there? If you want/need to use wget without SSL libraries, set (or whatever) as your uplink?
[marto]: I suspect more trolling...
[usemodperl]: Because the audience for my apps have old, locked down versions of perl that can't install modules or update perl and now all that is horribly broken without HTTP. Of course I can go outside Perl anytime but that impacts portability
[usemodperl]: I can find cpan mirrors on http but not with plain files, only tar.gz, does something like meta exist on http?
[marto]: run your own mirror minicpan
[marto]: or just fatpack/package your apps
[Corion]: usemodperl: No. I think your approach to "downloading modules" is horribly misguided. I recommend you use the standard tools, and/or move your own tools to standard interfaces. Or maybe just set up your own plaintext mirror if that's what you need.

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (9)
As of 2018-06-24 16:17 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (126 votes). Check out past polls.