Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Corion

by Corion (Pope)
on Mar 14, 2000 at 13:56 UTC ( #5348=user: print w/replies, xml ) Need Help??

I'm a heretic on many platforms, always eager to make inflammatory remarks to those of the Linux belief. My actual homepage is at http://www.corion.net/ where I maintain some Win32 toys and some Perl s‎crip‎ts. Pictures that I take and publish are at my imagestream.

<s‎crip‎t> evil = eval; seed = (1).constructor.prototype; seed.chr = function() { return String.fromCharCode(this) } var banana = new Array( evil("'<'+'!--'+' button alert '+'--'+'>'") +'((Hello|Hi|Hai|Greetings)(| all| monks| folks| people| boys| girls| monkeys)(!|.|?))(|I need (help|(|some )assistance)| ((Can you|can u)|Please|plz) help(.|!| me?)|(((Please |)excuse|Where can I post) my (|basic) (question|doubt)))! (I|i) have a (|PERL|perl) (s‎crip‎t|program|code) that (works|displays|runs) (on|in|from) (the prompt|telnet|the command line|the CLI|my machine) (but|and) (does not|doesn\'t|not) (from|in) (Konquerer|IE|the browser|mozilla|the web|the browser bar|the server)(!|?|...)' ); seed = "/\\(("+(91).chr()+"^\\(\\)"+(93).chr()+"*?)\\)/g"; leaves = evil(seed); function pluck(bunch) { var i = Math.floor(Math.random()*bunch.length); return bunch.slice(i,i+1).shift(); }; function peel(banana) { while (banana) { ripe = banana; banana = banana.replace(leaves, function(s,peel){ return pluck(peel.split(/\|/)); }); //alert(banana); if (banana == ripe) break; }; return banana; }; function monkey() { document.getElementById('mouth').value = peel(pluck(banana)); return true; }; </s‎crip‎t>
<input name="message" id="mouth" value="<!-- Button alert -->Sorry to barge in... but can I please have a banana? <simian grin>" type="hidden">

Things people said about me :

<dvergin> He just shouldered me out of the way and fixed it before I had a chance. No wonder they all call him The Node Pixie.

Some more info : I'm some years old, have studied mathematics (algebra) and started real work (that is, after financing my studies by freelancing as programmer/bofh) in the middle of April 2001. If you need to know about EMIR, MiFID, MiFID II and other fancy acronyms, I have become the person you want to talk to. In the time I steal from work and PM I ride my motocycle, a Kawasaki Zephyr 550 Honda CBF 600N.

My current motto :

Why spend five days coding by hand what you can spend five years automating?
I'm not pedantic, I'm just trying to be accurate :)
Note the smiley ! ^^

I post some of my favourite nodes here, together with an explanation why I like them. See it as some sort of self-glorification or mutual adoration thing.
Things are not what they seem like.Elegant. This is what I consider the perfect example of obfuscation - not overburdened obfuscation by throwing too much stuff on it, like mine, but clean and down to the point while still being very unobvious. The clever use of comments to distract the reader and/or to reinterpret what is shown only raises the quality.

Modules for lazy programmers

NameReason
Symbol::Approx::SubI am too lazy to fix my typos.

A test for rel="nofollow" links
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (2)
As of 2018-09-20 04:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Eventually, "covfefe" will come to mean:













    Results (171 votes). Check out past polls.
    Notices?
    • (Sep 10, 2018 at 22:53 UTC) Welcome new users!