(OT) Obfuscated Perl/Geek Humor

[Ovid]

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.

[belg4mit]

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 <[e-mail]> '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

[japhy]

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:??;

[VSarkiss]

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....

[Zecho]

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

[mexnix]

The regex and the 'rm -rf /bin/laden' are from thinkgeek.com. Pretty funny though :)

__________________________________________________


s mmgfbs nf, nfyojy m,tr yb-zya-zy,s zfzphz,print;
- thanks japhy :)

mexnix.perlmonk.org