Löysin tälläisen, idea on sinällään ihan hauska, mutta toteutus vielä puolivillainen ja tiedän kyllä että syntaksi on päin persettä.
# Nörttiruno a’la Charles Bukowski
# Ver. 0.0.1
# 2005/27/10
#
# Author: Johannes Knektman
# Date: 27-10-2005
# —————————————–
# Väitteet:
# 1: enemmistöpäätöksen epäasiallinen tiedonhalu
# 2: ontologisen nenäkkyyden oppii tiede(nu)kunnassa
# 3: itsesäätelevästä kaikkeudestä sikiää itkettäviä älyttömyyksiä
#
# Huomio: Aika jonka varaat tämän lukemiseen, on ajoittain värisevä!
Käytä::tikapuuhermostoasi::sääntöjen mukaan;
Käy::olusilla::saunankuistilla::pimeän aikaan;
Käytä::paikallista aikaa;
# ————————————————-
# Hae vastaväitteet auktoriteetiltasi
# ————————————————-
#
#
### Ensimmäinen väittämä = enemmistöpäätöksen epäasiallinen tiedonhalu
$polku/a kuljette = työvuoron mukaan(@ARGV);
### Toinen väittämä = ontologisen nenäkkyyden oppii tiede(nu)kunnassa
$Samaavanhaaroskaa = siirry arestiin(@ARGV);
### Kolmas väittämä = itsesäätelevästä kaikkeudestä sikiää itkettäviä älyttömyyksiä
$keksi_jotain_uutta = siirry pois edestä(@ARGV);
@oluet/viinit = olut::etsi::säännöt->olut()
->sieltä(”$jääkaapista”);
Anna_jokaiselle $nimi (@oluet)
{
## Sopivatko väittämät pirtaasi?
jos ($nimi =~ /\.oluet$|.juo$|\.tyhjäksi$/)
{
tulosta “$nimi \n”;
# Harvoin sitä
# tulosta aikaiseksi saa
## Tallenna oivalluksen päiväys / aika
$Tallenna_päiväys = tilastoi($nimi)->munhumala;
## Avaa pullo
Avaa (IN, “$nimi”) || avaa_monta $!;
## Ulosta sisältö .posliinialttariin
avaa (OUT, “>$nimi.posliinialttari”) || oksenna $!;
Sillävälin ($_ = ) {
## Jos nousuhumala kasvaa
## Etsi = lisää olutta
jos ($_ =~ /$Samaavanhaaroskaa/i) {
# Siirrä oppilas (/g), herkkään tilaan (/i)
$_ =~ s/$Samaavanhaaroskaa/$keksi_jotain_uutta/gi;
}
Ulosta uusi roska “$_”;
}
Pää kiinni! (Häivy!);
Sulje ovi (Painu ineen);
} # jos ($nimi =~ /\.posliinialttari|\.posliinialttariin/)
##
## Yrjöä
Uudelleennimeä(”$nimi.posliinialttari”,”$nimi”) || sammu $!;
###
munhumala $Tallenna_päiväys, $Tallenna_aika, $nimi;
} #lakkaa välittämästä (@olut)
# Sammu lopullisesti