Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

(OT) Obfuscated Perl/Geek Humor

by Ovid (Cardinal)
on Nov 07, 2001 at 04:15 UTC ( [id://123735]=perlmeditation: print w/replies, xml ) Need Help??

Snippets sent to me by a co-worker. Source unknown. My apologies in advance if the last two are offensive.

Perl:

$shakespeare =~ /^bb|[^b]{2}/;

Un*x:

rm -fr /bin/laden chmod a+x /bin/laden

Any others?

Cheers,
Ovid

Update: Yes, I already know that mandog had sumbitted this node for consideration to be deleted because he felt that this node wasn't enough about Perl to be worth keeping here. There is nothing wrong with that. Let me restate that:

mandog was right to do what he did.

Now, I'm not saying that I want this node reaped or that it should be reaped. All I'm saying is that, IMHO, mandog did what he thought was appropriate. He 'voted his conscience', so to speak. If more of us did what we felt was the right thing, the world would really, really be a better place. While I don't think this node should be reaped, I have absolutely no problem with mandog considering it.

Side note: if you search some of my past posts, I recognize that I post a fair amount of off-topic material. Admittedly, these are Meditations about project management, database issues, and whatnot -- and therefore at least peripherally of interest to many of us. However, it may be the case that some people cut me some slack because of my XP. If you think the posts shouldn't be here, feel free to consider them, downvote them, or make replies telling me that I'm outta line. If you feel that they're out of place, I'll respect that. Otherwise, I'll keep posting 'em.

By the way, I'm having carburetor troubles. Can anyone help? ;)

Update 2: Just for the record, I don't know who removed my node from consideration, but it wasn't I.

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.

Replies are listed 'Best First'.
Re: (OT) Obfuscated Perl/Geek Humor
by japhy (Canon) on Nov 07, 2001 at 04:20 UTC
    Fun with C:
    char broil; long and; short of_it; time_t o_die;

    _____________________________________________________
    Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
    s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

Re: (OT) Obfuscated Perl/Geek Humor
by VSarkiss (Monsignor) on Nov 07, 2001 at 05:02 UTC

    Bad/cheap csh gags:

    152 % got a light? No match. 153 % ^what do you think of light beer? Bad substitute.
    Yep, they're pretty sad, but you asked....

Re: (OT) Obfuscated Perl/Geek Humor
by belg4mit (Prior) on Nov 07, 2001 at 06:09 UTC
    These are a bit drawn outand not exactly obfuscated... At MIT they have a script called tellme so you can find out useful info like the root password on the workstations etc.
    #!/bin/sh # $Id: tellme,v 1.3 2001/10/01 16:32:10 cfox Exp $ if [ -z "$1" ]; then echo "Usage: $0 root|combo" exit 1 fi while [ "$1" ]; do case "$1" in root) if [ -f /etc/athena/rc.conf ]; then . /etc/athena/rc.conf if [ "${PUBLIC}" != "true" ]; then if [ -x /etc/athena/dialuptype ]; then echo "Note: This is a dialup. It does not have the +" echo "Athena root password." else echo "Warning: This is a private workstation. It m +ay not" echo "have the Athena root password." fi echo "" fi fi echo "The Athena root password is *." ;; combo) echo "The combo is *." ;; the\ [Uu]niverse) echo "The Universe is shaped like a banana." ;; [Uu]niverse) echo "Universe is something else entirely." ;; why) echo "because..." ;; 42) echo "What do you get when you multiply six by nine?" ;; off) echo "Fvck you." ;; *) echo "I don't know about "$1"." ;; esac shift done
    A Makefile I concocted long ago
    # Made by Jerrad Pierce <belg4mit@mit.edu> '97 emptyrule:: @echo make: @echo " babies, fire, fun, haste, love, marmalade, me, meatloa +f" @echo " merry, mess, money, more, noise, pancakes, peace, quic +he" @echo " rain, suggestion, time, trouble, war" all light world: @echo Fiat Lux! babies love: @echo You pervert, I\'m just a computer! fire: @echo Step 1. Take a match... fun: @echo ${USER} can\'t integrate -pdV haste: @echo \* Festina lente \* @echo Make haste slowly -- Emperor Augustus marmalade: @echo But I don\'t like SPAM! me: @echo Stop being so infantile meatloaf: @echo Mmmmm meatloaf merry: @echo Fa la la la la la la mess: @echo Bad boy! mistake: @echo Blasphemer! I am incapabale of such \* human \* behavio +r money: @echo I don\'t think the Secret Service is too keen on that id +ea more: @echo You haven\'t finished what\'s on your plate! noise: @echo BRRRAPPP!!! pancakes: @echo We\'re out of eggs peace: @echo Well... apologize already! quiche: @echo Try meatloaf instead rain: @echo Are you sure? @echo There, done. suggestion: @echo Get a hair-cut time: @echo Good! @echo For you will never \* find \* the time to do anything trouble: @echo Can\'t we all just get along? war: @echo make love not war
Re: (OT) Obfuscated Perl/Geek Humor
by Zecho (Hermit) on Nov 07, 2001 at 19:02 UTC
    A few snippets I came up with on my own from Friar

    Poor reasons to consider a node include:

    • Personal preference. If you don't like a node, downvote it, respond to it, contact the author, or do all three.
    • The question has been resolved and, in your opinion, did not involve enough Perl. The monastery tolerates general off-topic questions occasionally, and some monks even know a little bit about operating systems, web servers, databases, and the like. Perl is a glue language, and occasionally it has to interact with other things. Sometimes the problem is with the poster's code, sometimes not. If the question has come up before, it will probably come up again. Let the archives take it.
    • Other reasons here. You're a Friar, you should have a good feel for how the Monastery operates. You have this power because we trust you to be reasonable and objective. Make wise decisions. Don't jump to conclusions. Don't get wrapped up in "not wasting precious database space" and enforcing "node purity". Relax. It's a good system, and there's room to be flexible with people.

    Update: me ferget tuh add </ul>

    visualize whirrled peas

Re: (OT) Obfuscated Perl/Geek Humor
by mexnix (Pilgrim) on Nov 07, 2001 at 09:06 UTC

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlmeditation [id://123735]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2024-03-28 23:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found