A couple of links while del.icio.us is ill

December 19, 2005 at 9:25 am

Happy birthday, Perl! –

Perl was 18 today. In many jurisdictions, it can now drink intoxicating liquors, vote, and join the armed forces.

Global Warming Sceptic Bingo:

Just tick the box when they use the argument next to it. Get four in a row and you win!

Get well soon, del.icio.us.

Tags: , , , , , , , , ,

2 Comments »

  1. ben said,

    December 19, 2005 @ 11:02 am

    perl “joke” I saw on /. once:

    User 1: {)*&../”“%q)@$#^)K”[A-z}=#09#$<4>; User 2: Dude, you’ve just written a web server.

  2. Kae Verens said,

    December 19, 2005 @ 11:27 am

    another perl joke (legal, now that Perl is 18) (taken from here):

    #!/usr/games/perl

$SIG{'SLAP_IN_FACE'}='cold_shower';

@clothes=('shirt', 'bra', 'pants', 'underwear'); 

foreach $i (@clothes) { 
  unlink $i;                    # fsck bedroomfs to recover zombie clothes 
}                               # later

@zones=('lips', 'breasts', 'legs', 'crotch'); 

$idx = 2;                       # start with two minutes; each zone increases 
                                # by one minute
$oral = 0;                      # this should be run-time configurable

foreach $i (@zones) { 
  $idx++;
  unless ($i =~ /lips/) {       # lip massage? I don't think so. 
    &rub(60*$idx, $i);          # args are time-in-seconds, spot
  }

  unless ($i =~ /crotch/ && !$oral) { 
    &kiss(60*$idx, $i);
  }

}

&mount;                         # expect to catch that SLAP_IN_FACE signal
                                # here (if not earlier)

&screw;                         # catches SIGORGASM

# We made it!
&dismount; 
&smoke; 
return(0);

RSS feed for comments on this post

Leave a Comment

Comment text formatting: Markdown Extra syntax is supported, as is plain old HTML. (Quick reference for Markdown basics)

View blog reactions using Technorati