Perl Sex

During _my_ Perl-absorption period, I caught myself thinking in Perl when I was being, ehr, intimate with my girlfriend. I was always thinking about how to codify the process. There were signals, subroutines, variables, device drivers, the whole nine yards (pun intended). It went something like this:



@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) {
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!

Come to think of it, this goes a long way to explaining why I don’t have a girlfriend anymore. 馃檪 Oh, well, I’ve got Perl and emacs now, who needs anything else?



Introduce tus datos o haz clic en un icono para iniciar sesi贸n:

Logo de

Est谩s comentando usando tu cuenta de Cerrar sesi贸n / Cambiar )

Imagen de Twitter

Est谩s comentando usando tu cuenta de Twitter. Cerrar sesi贸n / Cambiar )

Foto de Facebook

Est谩s comentando usando tu cuenta de Facebook. Cerrar sesi贸n / Cambiar )

Google+ photo

Est谩s comentando usando tu cuenta de Google+. Cerrar sesi贸n / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: