<?xml version="1.0" encoding="utf-8"?>
<?xml-stylesheet type="text/xml" href="fortune-xml-to-html.xsl"?>
<collection>
  <head/>
  <list>
    <fortune id="documentation-for-bl">
      <meta>
        <title>Documentation for BL</title>
      </meta>
      <irc>
        <body>
          <saying who="rindolf">buu: do you have a working manual of BL?</saying>
          <saying who="rindolf">s/working/up-to-date/</saying>
          <saying who="buu">It's kind of sort of up to date</saying>
          <saying who="perlygatekeeper">he means NO</saying>
          <saying who="buu">I've got some docs!</saying>
          <saying who="rindolf">buu: do you have a functional spec? An architecture document? An interface whitepaper? A developer's guide?  A user manual? A "The BL-Book" and "BL - The Program"?</saying>
          <saying who="buu">rindolf: no, no, no no and no</saying>
      </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Discussing the merits of documenting one's pet languages on</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="newline-prices">
      <meta>
        <title>Did anybody see my newline at Freenode's #perl channel.</title>
      </meta>
      <irc>
        <body>
          <saying who="rindolf">sleeper: why are people obsessed with one-liners?</saying>
          <saying who="rindolf">It takes 3 lines - OMG what a disaster!</saying>
          <saying who="Botje">rindolf: newline prices went up again</saying>
          <saying who="rindolf">Botje: I buy my newlines in the black market</saying>
          <saying who="dabreegster">Botje: again? drat.</saying>
          <me_is who="Botje">reports rindolf to the newline police</me_is>
          <saying who="dabreegster">Botje: I know about an... (underground) operation going on to pirate newlines.</saying>
          <saying who="rindolf">Botje: I bribed a few cops in the newline police, but nice try.</saying>
          <saying who="dabreegster">Botje: Some crazy guys are trying to free newlines from  patents! They want to rid the market!</saying>
          <me_is who="cursor">gets called up to serve in the newline jury</me_is>
          <saying who="rindolf">I think we need to start a campaign to lift all restrictions  off newlines.</saying>
          <saying who="dabreegster">rindolf: La Resistance lives on!\n</saying>
          <saying who="Botje">I already stockpiled millions of newlines</saying>
          <saying who="dabreegster">Botje: We can have the one-liners destroyed by sundown</saying>
          <saying who="dabreegster">Not destroyed, but... TURNED INTO TWO-LINERS! Mwuhahaha!</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>The Cost of Newlines</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="verbing-the-verb">
      <meta>
        <title>Verbing the verb on Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <me_is who="buu">Stevie[FP] with a plunger.</me_is>
          <me_is who="Stevie[FP]">looks for the verb in that sentence</me_is>
          <saying who="sili">i think you're missing a verb</saying>
          <saying who="Stevie[FP]">I think he's missing a brain.</saying>
          <saying who="sili">unless Stevie[FP] is a verb i don't know</saying>
          <saying who="sili">Stevie[FP]: v. see Stevie[FP]</saying>
          <saying who="Stevie[FP]">I am not a verb!</saying>
          <saying who="sili">you've been verbatized</saying>
          <me_is who="rindolf">Stevie[FP]'s Chris62vw</me_is>
          <saying who="Stevie[FP]">verbalized?</saying>
          <saying who="rindolf">Stevie[FP]: verbalized is a different thing.</saying>
          <saying who="rindolf">Stevie[FP]: it comes from "verbal".</saying>
          <saying who="Stevie[FP]">Verbified.</saying>
          <saying who="Stevie[FP]">Verbiated.</saying>
          <saying who="rindolf">stefan: verbificated.</saying>
          <saying who="Botje">verbed.</saying>
          <saying who="Stevie[FP]">Verberated.</saying>
          <saying who="rindolf">Stevie[FP]: verberation is overrated.</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Verbing the Verb</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-human-xml">
      <meta>
        <title>Human XML</title>
      </meta>
      <irc>
        <body>
          <saying who="BarnacleBob">i hate xml.....</saying>
          <saying who="mcrawfor">&lt;response to="BarnacleBob"&gt;indeed&lt;/response&gt;</saying>
          <saying who="rindolf">mcrawfor: :-)</saying>
          <saying who="rindolf">mcrawfor++ # Nice joke</saying>
          <saying who="Botje">ehm. ouch.</saying>
          <saying who="Botje">rindolf: no!</saying>
          <saying who="Botje">&lt;postincrement comment="Nice joke"&gt;mcrawfor&lt;/postincrement&gt;</saying>
          <saying who="rindolf">Botje: LOL.</saying>
          <saying who="rindolf">&lt;postincrement comment="As you wish"&gt;Botje&lt;/postincrement&gt;</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Human XML</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="IRC-me-I-you-we">
      <meta>
        <title>/me (or I, you or we) is finding it amusing on Freenode's #perl.</title>
      </meta>
      <irc>
        <body>
          <me_is who="__you">fart</me_is>
          <me_is who="__you">say "oops"</me_is>
          <saying who="rindolf">__you: heh</saying>
          <me_is who="__you">kick rindolf</me_is>
          <saying who="__you">(rindolf, you're now being kicked by 435 people)</saying>
          <saying who="squeeks">__you need to go outside.</saying>
          <saying who="kspath">__you: Who owns you?</saying>
          <me_is who="__you">go outside</me_is>
          <me_is who="__you">are pwned by dazjorz</me_is>
          <me_is who="__you">is now known as we</me_is>
          <me_is who="we">are having a useless off-topic conversation right now</me_is>
          <saying who="rindolf">we: hahah</saying>
          <me_is who="we">we is now known as __you</me_is>
          <me_is who="__you">decide this channel is now useless and decide to leave</me_is>
          <me_is who="simcop2387">is now known as we</me_is>
          <me_is who="we">are not amused</me_is>
          <me_is who="__you">and I are together simcop2387</me_is>
          <me_is who="squeeks">is now known as _I_</me_is>
          <me_is who="_I_">need to tell __you something</me_is>
          <me_is who="__you">listen</me_is>
          <me_is who="simcop2387">is now known as we</me_is>
          <me_is who="we">need help</me_is>
          <me_is who="_I_">think we are getting a bit sick of the shenanigans</me_is>
          <saying who="rindolf">I'm so making a fortune out of it.</saying>
          <me_is who="we">want to be on bash.org</me_is>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>/me (or I, you or we) is finding it amusing</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="prog-lang-multi-lingual">
      <meta>
        <title>Multi-linguality</title>
      </meta>
      <irc>
        <body>
          <saying who="spyro_boy">Oh! I fixed it :D</saying>
          <saying who="spyro_boy">Yay :D</saying>
          <saying who="rindolf">spyro_boy: congrats!</saying>
          <saying who="spyro_boy">Thanks for your help, everyone. :)</saying>
          <saying who="rindolf">spyro_boy: now you should translate this script to O'Caml, Haskell, Perl 6.</saying>
          <saying who="spyro_boy">rindolf, huh?</saying>
          <saying who="rindolf">spyro_boy: Smalltalk, C, C++, Visual Basic...</saying>
          <saying who="spyro_boy">rindolf, translate to what?</saying>
          <saying who="rindolf">spyro_boy: to all these programming languages.</saying>
          <saying who="spyro_boy">haha</saying>
          <saying who="spyro_boy">rindolf, yeah.</saying>
          <saying who="rindolf">Because a script in perl is Not Enough&lt;tm&gt;.</saying>
          <saying who="rindolf">spyro_boy: but see the Great Computer Language Shootout.</saying>
          <saying who="spyro_boy">rindolf, I tried learning C,C++, and Java, but I couldn't catch on.</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Mulit-linguality</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="chuck-norris-and-perl-6">
      <meta>
        <title>Chuck Norris and Perl 6</title>
      </meta>
      <irc>
        <body>
          <saying who="rindolf">wankit</saying>
          <saying who="buubot">Perl 6, unlike most people, is able to breathe in the vacuum of space. In fact, anything else would damage its respiratory system. Because of this, whenever it's visiting Earth, it wears a respirator, which resembles a kickass beard.</saying>
          <saying who="rindolf">Heh heh.</saying>
          <saying who="rindolf">Are all of buubot's wankit factoids about Perl 6?</saying>
          <saying who="rindolf">He should have some about Chuck Norris, too.</saying>
          <saying who="merlyn">fictional factoids about a partially designed, partially implemented, partially wanted language. :)</saying>
          <saying who="rindolf">merlyn: yeah.</saying>
          <saying who="merlyn">Heh - those are all Chuck Norris quotes with s/Chuck/P6/</saying>
          <saying who="dabreegster">rindolf: It's written in Chuck Norris, right</saying>
          <saying who="merlyn">Chuck Norris writes code in Perl 6. Before Larry's done. And it works.</saying>
          <saying who="rindolf">merlyn: Chuck Norris wrote Perl 6 in a day but then destroyed all evidence with his bare hands, so no one will know his secrets.</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Discussing the merits of documenting one's pet languages on</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="leonerd-life-readiness">
      <meta>
        <title>Is a Life Ready for Prime Time?</title>
      </meta>
      <irc>
        <body>
          <saying who="rindolf">LeoNerd: I need to get a life.</saying>
          <saying who="LeoNerd">They can be quite useful, but they do have a crazy amount of dependencies..</saying>
          <saying who="LeoNerd">And sometimes they can be a bit unstable - I think they're still beta-testing</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Is a Life Ready for Prime Time</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-for-elisabeth">
      <meta>
        <title>#perl for Elisabeth</title>
      </meta>
      <irc>
        <body>
          <saying who="simcop2387">Daveman: i use a ZED PEE EM to power my computer, its the ultimate YOU PEE ES</saying>
          <me_is who="Daveman">throws an Elisabeth at Simcop</me_is>
          <saying who="rindolf">Me catches the Elisabeth in mid-air.</saying>
          <saying who="SubStack">with an s, excellent choice</saying>
          <saying who="Daveman">:o</saying>
          <saying who="Daveman">Interception!</saying>
          <saying who="rindolf">Daveman: when my friend and I played Frisbee, we had an intra-tree move.</saying>
          <me_is who="SubStack">pirates Elisabeth and seeds a torrent</me_is>
          <saying who="rindolf">Which was unintended.</saying>
          <saying who="rindolf">Elisabeth: are you here?</saying>
          <saying who="Daveman">HAHAHAHHA</saying>
          <saying who="Daveman">Substack++</saying>
          <me_is who="SubStack">wins at life.</me_is>
          <saying who="rindolf">An Elisabeth for all! And all for an Elisabeth.</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>#perl for Elisabeth</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="books-for-learning-perl">
      <meta>
        <title>Books for Learning Perl</title>
      </meta>
      <irc>
        <body>
          <saying who="Alexi5">what is a good book for getting up to speed with  perl?</saying>
          <saying who="merlyn">learning perl!</saying>
          <saying who="merlyn">intermediate perl!</saying>
          <saying who="nachos_">the camel is the _only book_</saying>
          <saying who="nachos_">:-P</saying>
          <me_is who="merlyn">bats nachos silly</me_is>
          <saying who="nachos_">:-(</saying>
          <saying who="rindolf">Alexi5: there's also Beginning Perl, which is available  online.</saying>
          <me_is who="f00li5h">saw that coming</me_is>
          <saying who="rindolf">You should learn Perl from "Learning Perl in 24 minutes  Unleashed!"</saying>
          <saying who="f00li5h">rindolf: ``Learning perl in 24 minutes Unleashed, in a  nutshell for dummies'' is the one i have</saying>
          <saying who="rindolf">f00li5h: that's even better.</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Books for Learning Perl</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="vintage-hypertext">
      <meta>
        <title>Discussing Vintage Hypertext on Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="rindolf">Are you using Firefox?</saying>
          <saying who="Imaginativeone">yeah...</saying>
          <saying who="rindolf">Interesting...</saying>
          <saying who="rindolf">Don't know.</saying>
          <saying who="[x86]">use a real browser... you know... like IE!</saying>
          <me_is who="[x86]">runs</me_is>
          <saying who="infi">IE 3 &gt; *</saying>
          <saying who="rindolf">IE 2 &gt; *</saying>
          <saying who="infi">gopher!</saying>
          <saying who="infi">firefox can actually do gopher URLs</saying>
          <saying who="rindolf">GNU info!</saying>
          <saying who="infi">feh.</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Vintage Hypertext</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="free-as-in-what">
      <meta>
        <title>Free as in what?</title>
      </meta>
      <irc>
        <body>
          <saying who="rindolf">ofer0: what's up?</saying>
          <saying who="ofer0">rindolf, nothing much. what's with you?</saying>
          <saying who="rindolf">ofer0: I restored my fonts to my nouveau-enabled X server.</saying>
          <saying who="jagerman">What is nouveau?</saying>
          <saying who="ofer0">jagerman, "new" in french ?</saying>
          <saying who="jagerman">Yes, I know it's a word, but what is the nouveau rindolf is talking about?</saying>
          <saying who="ofer0">I have no idea. rindolf ?</saying>
          <saying who="rindolf">jagerman, ofer0: it's the free-as-in-speech Nvidia drivers.</saying>
          <saying who="dmq">jagerman++ (Yes i know its a word).</saying>
          <saying who="pkrumins">free as in freedom</saying>
          <saying who="nainef">free as in richard stallman?</saying>
          <saying who="ofer0">free as in free Microsoft Windows Vista CDs</saying>
          <saying who="nainef">lol</saying>
          <saying who="pkrumins">vista--</saying>
          <saying who="ofer0">"What do you mean? Windows XP isn't free?" -- My neighbour.</saying>
          <saying who="Ikarus">ofer0: sounds familiar</saying>
          <saying who="ofer0">(when telling him that I can't format his hard-drive and re-install XP because he doesn't own a license)</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Free as in what?</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="the-only-prog-lang">
      <meta>
        <title>The Only Programming Language</title>
      </meta>
      <irc>
        <body>
          <saying who="rindolf">This reminds me of a fun discussion I had with my co-worker.</saying>
          <saying who="rindolf">He had a Firefox window open with an ActiveState page and I read "Perl, PHP, Python, Tcl, XSLT".</saying>
          <saying who="rindolf">So he said: "Heresy! C is the only language."</saying>
          <saying who="rindolf">So I thought for a moment and said "Intercal is the only language."</saying>
          <saying who="nanonyme">lol</saying>
          <saying who="rindolf">And then "Real men write in Intercal."</saying>
          <saying who="rindolf">"COME FROM" anyone?</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>The Only Programming Language</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="misleading-textbooks-about-perl">
      <meta>
        <title>Misleading Textbooks about Perl</title>
      </meta>
      <irc>
        <body>
          <saying who="rindolf">mortal5: you need to print the header.</saying>
          <saying who="rindolf">mortal5: print header()</saying>
          <saying who="mortal5">rindolf, ...I absolutely love it when my textbook leads me wrong..</saying>
          <saying who="rindolf">mortal5: what is your textbook?</saying>
          <saying who="mortal5">"web wizards guide to perl and cgi"</saying>
          <saying who="mortal5">lol</saying>
          <saying who="mortal5">only the finest for the students at my university</saying>
          <saying who="buu">Hahaha</saying>
          <saying who="buu">That's awesome.</saying>
          <saying who="cfedde">Is this what we're teacing these days? Oh my.</saying>
          <saying who="somian">Blows the mind, doesn't it cfedde!</saying>
          <saying who="cfedde">somian: it does.</saying>
          <saying who="cfedde">I suppose that I'm commenting out of context. but why the mix and match.</saying>
          <saying who="f3ew">What mind?</saying>
          <saying who="cfedde">yours, with this .48</saying>
          <me_is who="somian">sends in CSI las vegas to clean up</me_is>
          <saying who="rindolf">mortal5: what is your university?</saying>
          <saying who="mortal5">rindolf, I'm too ashamed to tell :p</saying>
          <saying who="rindolf">mortal5: heh.</saying>
          <saying who="rindolf">mortal5: is it bad?</saying>
          <saying who="mortal5">rindolf, no not really, we have a fairly well known cs dept</saying>
          <saying who="somian">Just so long as it isn't SUNY@BUFFALO</saying>
          <saying who="mortal5">it's just the teacher i'm using, she's a total flake</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Misleading Textbooks about Perl</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="perl-dongs-and-everything-in-between">
      <meta>
        <title>Perl, dongs and everything between on Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <me_is who="CPAN">rating: Net-DNS-Check rated 4 stars by Ævar Arnfjörð Bjarmason</me_is>
          <saying who="rindolf">Oooh! avar has rated a module.</saying>
          <saying who="somian^{}">avar! WHAT ARE YOU DOING rating CPAN modules!?! Do you really think you are QUALIFIED to be doing that!?! ;-P</saying>
          <me_is who="avar">dongs somian^{}</me_is>
          <me_is who="somian^{}">laughs</me_is>
          <saying who="avar">somian^{}: I'M A PROFESSIONAL PERL PROGRAMMER</saying>
          <saying who="avar">I know PERL</saying>
          <saying who="somian^{}">But can u mAke teh weB with teh PERL!?</saying>
          <saying who="Earle_Martin">avar: I know DONGS</saying>
          <saying who="avar">Earle_Martin: SHOW ME</saying>
          <saying who="avar">Earle_Martin: Don't you mean DONG foo?</saying>
          <me_is who="somian^{}">has a silly grin on his face as he decends the stairs to make some fresh coffee</me_is>
          <saying who="avar">somian^{}: I maek teh web really well with PERL</saying>
          <saying who="Earle_Martin">/DCC MATRIX avar</saying>
          <saying who="avar">Earle_Martin: IT'S SO LARGE AND HARD!</saying>
          <saying who="Earle_Martin">avar: You think that's milk you're drinking?</saying>
          <saying who="f3ew">heh]</saying>
          <saying who="avar">I was wondering why it was so delcicious</saying>
          <saying who="avar">"I can't belive it's not jizz"</saying>
          <saying who="f3ew">Take the red pill</saying>
          <saying who="rfordinal_">blue!</saying>
          <saying who="Earle_Martin">I know PERL: Programmer's Elite Robotic Language</saying>
          <me_is who="avar">goes back to work</me_is>
          <saying who="Shadow42">I wonder what would happen if Neo was colorblind and took the wrong pill.</saying>
          <saying who="Earle_Martin">10 DO ROBOT DANCE</saying>
          <saying who="Earle_Martin">20 GOTO 10</saying>
          <saying who="avar">which doesn't involving discussing dongs in great detail, unfortunately</saying>
          <saying who="Earle_Martin">avar: the real world sucks</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Perl and Dongs on Freenode's #perl</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="n-uple-negative">
      <meta>
        <title>N-uple negative on Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="polak">mauke: so how does that "translate" into eng</saying>
          <saying who="merlyn">"eng"?</saying>
          <saying who="mauke">I spe eng goo</saying>
          <saying who="rindolf">mauke: I spe eng wel</saying>
          <saying who="rindolf">I spe goo eng</saying>
          <saying who="sts">just a short question. besides personal preference is there any difference if you use if(! or unless(?</saying>
          <saying who="rindolf">sts: no.</saying>
          <saying who="rindolf">sts: they do the same thing.</saying>
          <saying who="Botje">sts: pfft. Real Men(tm) use unless(!...)</saying>
          <saying who="rindolf">Botje: heh.</saying>
          <saying who="sts">lol unless(! makes sense. thanks Botje, i'll rather use this one. =D</saying>
          <saying who="LeoNerd">For me it's a readability thing - I express what seems more likely</saying>
          <saying who="rindolf">Botje: File::HomeDir used to have a triple or quadruple negative in one of its test files.</saying>
          <saying who="Botje">unless(! $str !~ /(?!foo)/)</saying>
          <saying who="rindolf">Botje: heh</saying>
          <saying who="merlyn">whoa</saying>
          <saying who="merlyn">unless (!) makes no sense to me at all</saying>
          <saying who="Botje">of course not.</saying>
          <saying who="sts">Botje: wow!</saying>
          <saying who="Botje">it's still cool to confuse people with :]</saying>
          <saying who="LeoNerd">Heh.. Should just use !!! in there anywa y:)</saying>
          <saying who="merlyn">it's 7 characters too many</saying>
          <saying who="xand">some people don't understand double negatives</saying>
          <saying who="merlyn">I don't want no complaints!</saying>
          <saying who="Botje">xand: you mean don't not understnad?</saying>
          <saying who="LeoNerd">We don't know nobody who don't want no double-negatives</saying>
          <saying who="sts">Botje: what does (?!foo) do?</saying>
          <saying who="nanonyme">lol</saying>
          <saying who="xand">Botje: don't not misunderstand</saying>
          <saying who="mauke">Botje: that always executes the block</saying>
          <saying who="merlyn">there's an argument that can be successfully made that "I don't want no complaints" doesn't necessarily work logically</saying>
          <saying who="Botje">xand: oh, I don't not think I didn't not misunderstand you.</saying>
          <saying who="Botje">mauke: I know. it just looks cool.</saying>
          <saying who="mauke">and you want !($str !~ /.../)</saying>
          <saying who="xand">don't you?#</saying>
          <saying who="merlyn">so it might actually mean what people think they're meaning</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>N-uple negative on Freenode's #perl</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="my-os-is-better-than-yours">
      <meta>
        <title>My operating system is better than yours on Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="Yaakov">LINUX &lt; WINDOWS XP</saying>
          <saying who="rindolf">Yaakov: Linux "&gt;" x Inf Windows XP</saying>
          <saying who="rindolf">Yaakov: DOS &gt; Linux</saying>
          <saying who="rindolf">Yaakov: CTSS &gt; Linux</saying>
          <saying who="rindolf">Yaakov: TOPS-10 &gt; Linux</saying>
          <saying who="rindolf">Multics &gt; Linux</saying>
          <saying who="rindolf">Multics &gt; *</saying>
          <saying who="rindolf">I think I'll stop.</saying>
          <saying who="Supaplex">I think I'll /clear</saying>
          <saying who="Kobaz">CP/M &gt; *</saying>
          <saying who="rindolf">Kobaz: heh!</saying>
          <saying who="rindolf">Kobaz++</saying>
          <saying who="Kobaz">Heh.</saying>
          <saying who="Kobaz">CP/M was teh sexy.</saying>
          <saying who="Kobaz">How much more of an OS do you really need?</saying>
          <saying who="Kobaz">I still have my Apple II sitting in the corner.</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>My Operating System is Better than Yours</tagline>
        </info>

      </irc>
    </fortune>
    <fortune id="many-types-of-wheels">
      <meta>
        <title>Freenode's #perl on the many types of Wheels.</title>
      </meta>
      <irc>
        <body>
          <saying who="rindolf">Mahmoud: what's up?</saying>
          <saying who="Mahmoud">rindolf, writing a CMS from scratch with perl.. really cool, making my own template engine</saying>
          <saying who="rindolf">Mahmoud: why???</saying>
          <saying who="rindolf">Mahmoud: use TT2.</saying>
          <saying who="rindolf">Or whatever.</saying>
          <saying who="Mahmoud">rindolf, i dislike other CMS engines.. they are bloated and i don't trust them</saying>
          <saying who="rindolf">Mahmoud: TT2 is pure perl.</saying>
          <me_is who="Mahmoud">looks for TT2</me_is>
          <saying who="rindolf">Mahmoud: a CMS doesn't stay simple forever.</saying>
          <saying who="rindolf">Mahmoud: and a CMS != Templating system.</saying>
          <saying who="Mahmoud">rindolf, the template engine is quite simple, it's similar to how SimpleMachines forum does its templates</saying>
          <saying who="Mahmoud">rindolf, just an external file with print 'foo'; commands</saying>
          <saying who="amnesiac">Mahmoud, TT2 is very powerful</saying>
          <saying who="amnesiac">Mahmoud, there are more templating systems, why not use any ofo the existing ones?</saying>
          <saying who="rindolf">Mahmoud: please don't re-invent square wheels.</saying>
          <saying who="Mahmoud">heh..</saying>
          <saying who="NOTevil">oval!</saying>
          <me_is who="amnesiac">likes hexagonal wheels</me_is>
          <saying who="NOTevil">very small octagon wheels aren't too bad.</saying>
          <saying who="rindolf">amnesiac: triangular wheels are the best!</saying>
          <saying who="Shaine">i like star shaped wheels :/</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>On the Many Types of Wheels</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="code-golf-pyramid">
      <meta>
        <title>The Pyramid of Code Golf on Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="ferret">LeoNerd: That was one of the first blobs of Java I wrote, it's allowed to be even more verbose and convoluted than Java normally is. ;P</saying>
          <saying who="rindolf">ferret: link?</saying>
          <saying who="ferret">/las Cat.java</saying>
          <saying who="rindolf">ferret: an implementation of the UNIX "cat" program in Java??</saying>
          <saying who="ferret">Actually, specifically the GNU cat program, and only a subset thereof.</saying>
          <saying who="rindolf">ferret: oh.</saying>
          <saying who="rindolf">ferret: how many lines did it take?</saying>
          <me_is who="f00li5h">heads off to #codegolf and tries to convince them to allow java submissions</me_is>
          <saying who="ferret">rindolf: It's mostly argument parser.</saying>
          <saying who="rindolf">ferret: I once implemented a parser for a subset of the Bourne Shell args, in really hideous ANSI C.</saying>
          <saying who="rindolf">f00li5h: good luck.</saying>
          <saying who="rindolf">f00li5h: Java Golf...</saying>
          <saying who="f00li5h">yeah, for sure!</saying>
          <saying who="rindolf">Java Golf would be longer than a non-Golfed Perl program.</saying>
          <saying who="f00li5h">rindolf: this is true</saying>
          <saying who="rindolf">f00li5h: COBOL Golf!</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>The Pyramid of Code Golf</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="scary-perl-expertise">
      <meta>
        <title>Scary Perl Expertise on Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="pasteling">"struggling intern" at 129.162.1.31 pasted "Here it is.." (220 lines, 5.7K) at http://sial.org/pbot/25279</saying>
          <saying who="strugglingintern">woohoo</saying>
          <saying who="strugglingintern">there it goes...</saying>
          <saying who="rindolf">strugglingintern: oh my god!</saying>
          <saying who="rindolf">strugglingintern: this code looks really bad.</saying>
          <saying who="strugglingintern">heh...</saying>
          <saying who="rindolf">strugglingintern: if ($records eq 0 ) - don't you want ($records == 0)?</saying>
          <saying who="rindolf">strugglingintern: do you have unit tests?</saying>
          <saying who="rindolf">strugglingintern: and you should factor it better.</saying>
          <saying who="rindolf">strugglingintern: and possibly use Template Toolkit or something.</saying>
          <saying who="rindolf">strugglingintern: and you may have some HTML-injection (or XSS) problems.</saying>
          <saying who="Ani-_">rindolf: and probably SQL injection problems.</saying>
          <saying who="rindolf">Ani-_: indeed!</saying>
          <saying who="strugglingintern">:-/</saying>
          <saying who="Ani-_">strugglingintern: really, ask them to review that code when they get back.</saying>
          <saying who="strugglingintern">alright</saying>
          <saying who="strugglingintern">I appreciate it anyway</saying>
          <saying who="rindolf">strugglingintern: how long have you been programming perl?</saying>
          <saying who="strugglingintern">hah, about 3 months</saying>
          <saying who="strugglingintern">This isn't all my code ;)</saying>
          <saying who="strugglingintern">I'll look into it</saying>
          <saying who="strugglingintern">Thanks guys (and gals).</saying>
          <saying who="rindolf">strugglingintern: you're welcome.</saying>
          <saying who="strugglingintern">not my choice ;)</saying>
          <saying who="strugglingintern">it's my 3rd week here :)</saying>
          <saying who="rindolf">Amazing how much more experienced programmers can tell a code is bad from a quick glance.</saying>
          <saying who="rindolf">It's a bit scary.</saying>
          <saying who="Ani-_">nothing amazing about it. It's called skill. :)</saying>
          <saying who="The_SB">yeh even I can tell it by a look</saying>
          <saying who="ology">It's not scary or amazing at all.</saying>
          <saying who="ology">It is called experience!</saying>
          <saying who="Ani-_">rindolf: what do you find scary?</saying>
          <saying who="Ani-_">rindolf: that experienced programmers can tell it? Or the code itself?</saying>
          <saying who="Ani-_">I would disagree on the first one but agree on the later! :)</saying>
          <saying who="rindolf">Ani-_: no, that I'm so experienced.</saying>
          <saying who="rindolf">Ani-_: I hope I don't sound out as a snob.</saying>
          <saying who="ology">narcissism is fun</saying>
          <saying who="rindolf">I should get a life.</saying>
          <saying who="rindolf">Get a girlfriend, go to movies.</saying>
          <saying who="rindolf">Instead all I do is write Perl.</saying>
          <saying who="rindolf">And chat about writing Perl.</saying>
          <saying who="Ikarus">a life, tried that, didn't mix with me</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Scary Perl Expertise</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-to-wikipedia">
      <meta>
        <title>(Human) Language Fun on Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="rindolf">Let me wikipedia it.</saying>
          <saying who="f00li5h">so now wikipedia is a verb?</saying>
          <saying who="rindolf">f00li5h: it's gonna enter the OED.</saying>
          <saying who="rindolf">f00li5h: in English every verb can be nounified and every noun can be verbed.</saying>
          <saying who="rindolf">f00li5h: google is now a verb too.</saying>
          <saying who="f00li5h">rindolf: q{ just one second and i'll "computer" it up for you"}</saying>
          <saying who="rindolf">f00li5h: LOL.</saying>
          <saying who="rindolf">f00li5h++</saying>
          <me_is who="rindolf">f00li5hes jql</me_is>
          <saying who="rindolf">I'm rindolfed</saying>
          <me_is who="f00li5h">finds it odd that irssi hilighted half of that word</me_is>
          <saying who="rindolf">f00li5h: it's much harder to do it in Hebrew.</saying>
          <saying who="jql">computer is from the verb compute already</saying>
          <saying who="rindolf">jql: there's computerise though.</saying>
          <saying who="f00li5h">jql: but to computer something is different than computing it</saying>
          <saying who="f00li5h">COMPUTIFY!</saying>
          <saying who="rindolf">jql: I once thought that the study of Objectivity is Objectivism.</saying>
          <saying who="f00li5h">"configurated"</saying>
          <saying who="jql">you shouldn't noun up a verb that's been nouned already</saying>
          <saying who="rindolf">And the study of Objectivism is Objectivistalism.</saying>
          <saying who="Caelum">heh</saying>
          <saying who="rindolf">And that study of that is Objectvisitalistalism.</saying>
          <saying who="rindolf">And to infinity it's Objectivist-elementalism!</saying>
          <saying who="f00li5h">eval: object .((ism)x100)</saying>
          <saying who="buubot">f00li5h: objectismismismismismismismismismismismismismismismismismismismism ismismismismismismismismismismismismismismismismismismismismismism ismismismismismismismismismismismismismismismismismismismi</saying>
          <saying who="rindolf">With apologies to the 4 people who ever spoke Latin correctly.</saying>
          <saying who="jql">I can't help but read that as smi smi smi</saying>
          <saying who="Caelum">me too</saying>
          <saying who="rindolf">jql: reminds me of Peter Pan. </saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>(Human) Language Fun on Freenode's #perl</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="how-many-clicks">
      <meta>
        <title>How many clicks must a one man do, before he selects what he wants on Freenode's #perl.</title>
      </meta>
      <irc>
        <body>
          <saying who="dkr">I use nedit, the only app with a quadruple-click feature</saying>
          <saying who="naquad">wtf is quadruple-click??? %-/</saying>
          <saying who="dkr">double-click selects a word, triple-click selects a line, quadruple-click select the whole document. heh :)</saying>
          <saying who="Patterner">quintuple-click selects the whole harddisk</saying>
          <saying who="rindolf">hexuple-click selects the entire Intranet.</saying>
          <saying who="rindolf">And septapable-click selects the entire Internet</saying>
          <saying who="Patterner">How many for the multiverse?</saying>
          <saying who="naquad">people, who uses what editor?</saying>
          <saying who="arw">octaple click selects the known universe and nonaple the rest too.</saying>
          <saying who="rindolf">arw: how long does it takes these clicks to run?</saying>
          <saying who="rindolf">I think it's super-exponential complexity.</saying>
          <saying who="arw">rindolf: no matter, the universe is finite :)</saying>
          <saying who="arw">rindolf: only problem is, the information about your clicking will never reach the entire universe as it expands ;)</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>How many clicks must a one man do, before he selects what he wants?</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-meaning-of-I">
      <meta>
        <title>The meaning of "I" on Freenode's #perl.</title>
      </meta>
      <irc>
        <body>
          <me_is who="reflexive">huzzahs. His Perl books just arrived.</me_is>
          <saying who="apeiron">reflexive, Which?</saying>
          <saying who="reflexive">apeiron: IP and PBP. A couple others are still in transit.</saying>
          <saying who="apeiron">reflexive, Nice. :)</saying>
          <saying who="reflexive">:)</saying>
          <saying who="rindolf">reflexive: what is IP?</saying>
          <saying who="reflexive">Intermediate Perl.</saying>
          <saying who="rindolf">reflexive: oh, OK.</saying>
          <saying who="rindolf">Intellectual Perl.</saying>
          <saying who="rindolf">Internet Perl.</saying>
          <saying who="kojiro">Invasive Perl</saying>
          <saying who="kspath">Idiot Perl</saying>
          <saying who="rindolf">Interactive Perl.</saying>
          <saying who="rindolf">I, Perl.</saying>
          <saying who="kojiro">Implementing Pies</saying>
          <saying who="kojiro">mmm, pie</saying>
          <saying who="rindolf">Improbably Perl</saying>
          <saying who="kspath">Ignoble Perl</saying>
          <saying who="kojiro">Probably Inverted</saying>
          <saying who="rindolf">kojiro: :-)</saying>
          <saying who="kspath">Improper Perl</saying>
          <saying who="reflexive">Insidious Perl?</saying>
          <saying who="mst">ALL PERL IS IMPROPER</saying>
          <saying who="kojiro">API?</saying>
          <saying who="rindolf">In Soviet Russia all improper is Perl.</saying>
          <saying who="rindolf">APII.</saying>
          <saying who="qrck">impudent perl</saying>
          <saying who="kojiro">no, you never count words like "is"</saying>
          <saying who="kspath">Incoherent Perl</saying>
          <saying who="kojiro">ALL PERL IS INCOHERENT</saying>
          <saying who="reflexive">So true.</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>The Meaning of "I".</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-got-the-slashdot">
      <meta>
        <title>Got the Slashdot? on Freenode's #perl.</title>
      </meta>
      <irc>
        <body>
          <saying who="dkr">which is that ACME:: filter that obfusctaes all your source into whitespace? :)</saying>
          <saying who="preaction">Acme::Bleach</saying>
          <saying who="rindolf">dkr: as preaction said it is Acme::Bleach.</saying>
          <saying who="dkr">moderation -1 Redundant</saying>
          <me_is who="dkr">smirks</me_is>
          <saying who="nws">get out you slashdotter</saying>
          <saying who="nws">jk</saying>
          <saying who="dkr">I got moderated overrated yesterday. I felt so loved</saying>
          <saying who="dkr">GumbyGumby: how often do you post to /.?</saying>
          <saying who="GumbyGumby">dkr: do it to system() a ssh command. Is doing that often.</saying>
          <saying who="rindolf">GumbyBRAIN: how often do you post dkr to Slashdot?</saying>
          <saying who="GumbyBRAIN">do it to list.</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Got the Slashdot?</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-whats-in-a-var-name">
      <meta>
        <title>What's in a variable-name? on Freenode's #perl.</title>
      </meta>
      <irc>
        <body>
          <saying who="WebDragon">y'all should spell it in uppercase it being an acronym and all</saying>
          <saying who="reaction">Yes, but we're *lazy*!</saying>
          <me_is who="WebDragon">*so* noticed ;)</me_is>
          <saying who="dkr">WebDragon: people that use CamelCase have no right to criticize about capitalization. :)</saying>
          <saying who="WebDragon">dkr: I hate underscores</saying>
          <me_is who="dkr">contemplates a source code filter that does lets you use spaces in var names by switch them to underscores at compile time</me_is>
          <saying who="preaction">black magic</saying>
          <saying who="mst">dkr: source filters are evil.</saying>
          <saying who="mst">dkr: in a bad way.</saying>
          <saying who="mst">dkr: hacking the compiler is much more fun, and evil in a useful way :)</saying>
          <saying who="mst">WebDragon: recommended perl style is $var_name</saying>
          <saying who="mst">WebDragon: it's also more readable than $varName or $VarName</saying>
          <saying who="mst">WebDragon: I'd recommend trying it for at least a month</saying>
          <saying who="mst">WebDragon: also note that it'll make life easier because you'll be consistent with the rest of perl code</saying>
          <saying who="WebDragon">mst: I was thinking more along the lines of filenames and irc nicknames than perl variables</saying>
          <saying who="mst">WebDragon: ah. fair enough :)</saying>
          <me_is who="WebDragon">doesn't use camelcase for perlvars</me_is>
          <saying who="mst">WebDragon: then I shall cease complaining :)</saying>
          <saying who="avar">${"Insert a descriptive essay about the variable here"}</saying>
          <saying who="WebDragon">rofl</saying>
          <saying who="rindolf">avar: that won't work with 'use strict 'refs''</saying>
          <saying who="WebDragon">avar: I've seen things like that in RL and had recurring nightmares about them when I saw similar and sometimes worse things on thedailywtf.com</saying>
          <saying who="mst">rindolf: ${main::}{"Insert a descriptive essay about the variable here"} would :)</saying>
          <saying who="mst">rindolf: or you could just use %_ :)</saying>
          <saying who="dkr">my boss still occasionally uses vars like $x. still trying to beat that behavior out of him</saying>
          <me_is who="WebDragon">only uses x|y|z for cartesian coordinate math</me_is>
          <saying who="WebDragon">which, since I hardly ever do any of that, means the obvious</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>What's in a variable name?</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perlcafe-watched-the-fountain">
      <meta>
        <title>Watched the fountain on Freenode's #perlcafe</title>
      </meta>
      <irc>
        <body>
          <saying who="mofino">watched the Fountain</saying>
          <saying who="mofino">pretty cool'</saying>
          <saying who="q[ender]">yep</saying>
          <saying who="sili">what?</saying>
          <saying who="sili">you think The Fountain was cool?</saying>
          <saying who="sili">it was pretty artsy.</saying>
          <saying who="sili">I don't understand the necessity of repeating that same scene 50k times, though.</saying>
          <saying who="mofino">then you didn't get the movie</saying>
          <saying who="rindolf">sili: if you repeat a scene 50k times, then the movie will have less entropy and will compress better.</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Watched the fountain on Freenode's #perlcafe</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="commitment-to-prog-langs">
      <meta>
        <title>Commiting yourself to a programming language on Freenode's #perl.</title>
      </meta>
      <irc>
        <body>
          <saying who="convivial">high-rez, but I don't know enough to help you because I am a newbie to perl programming and although I am in deep luv with perl and planning on marrying perl, I still have a lot to learn.</saying>
          <saying who="rindolf">convivial: you can only marry Perl if polygamy is legal where you live.</saying>
          <saying who="rindolf">convivial: because Perl and I are already married. :-D</saying>
          <saying who="convivial">why is that? i'm single :)</saying>
          <saying who="rindolf">convivial: but Perl isn't.</saying>
          <saying who="convivial">oh crap !</saying>
          <saying who="convivial">all the good languages are already married :(</saying>
          <saying who="rindolf">convivial: COBOL is still single.</saying>
          <saying who="rindolf">convivial: but I heard she's a total bitch.</saying>
          <saying who="convivial">ewwwwwwwwwwww, so is JCL and no one is knocking down either of their doors</saying>
          <saying who="convivial">rindolf, janet reno is single!</saying>
          <saying who="rindolf">convivial: what kind of programming language is "Janet Reno"?</saying>
          <saying who="convivial">:)</saying>
          <saying who="convivial">she is a person</saying>
          <saying who="rindolf">convivial: I'm not interested in people, I'm only interested in programming languages.</saying>
          <saying who="shaldannon">rindolf: you should try Ada</saying>
          <saying who="rindolf">shaldannon: Ada 95?</saying>
          <saying who="shaldannon">yeah</saying>
          <saying who="shaldannon">the syntax of Pascal, the power of Basic and the friendliness of Java</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Commiting yourself to a programming language on Freenode's #perl.</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-using-encyclopedias">
      <meta>
        <title>Making use of Encyclopedias at FreeNode's #perl</title>
      </meta>
      <irc>
        <body>
          <me_is who="shaldannon">beats iank over the head with an encyclopedia</me_is>
          <saying who="rindolf">shaldannon: all volumes of an encyclopedia?</saying>
          <saying who="dwu">rindolf: ha</saying>
          <saying who="shaldannon">rindolf: every last one of 'em</saying>
          <saying who="rindolf">shaldannon: or perhaps a printout of the Wikipedia?</saying>
          <saying who="iank">rindolf: the whole bookcase</saying>
          <saying who="rindolf">shaldannon: which Encyclopedia?</saying>
          <saying who="iank">rindolf: naw, just get the DVD :)</saying>
          <saying who="shaldannon">rindolf: I couldn't lift that</saying>
          <saying who="shaldannon">rindolf: Britanica</saying>
          <saying who="iank">You could lift the DVD!</saying>
          <saying who="dwu">shaldannon: Start. Working. Out.</saying>
          <saying who="shaldannon">dwu: oh?</saying>
          <saying who="dwu">shaldannon: Dude, being able to lift the Britannica is hot.</saying>
          <me_is who="iank">-&gt; the internet</me_is>
          <saying who="shaldannon">:-}</saying>
          <saying who="dwu">Seriously.</saying>
          <saying who="dwu">"I can hold the accepted knowledge of a percentage of the human race in my arms!" "Oh, god, that is so sexy."</saying>
          <saying who="shaldannon">hahahaha</saying>
          <saying who="dwu">Seriously. Smart is hot. Smart and funny... well.</saying>
          <me_is who="shaldannon">is hillarious ;)</me_is>
          <saying who="dwu">Uhm. kay.</saying>
          <saying who="rindolf">If you start reading the wikipedia lexicographically, will you ever finish at the rate articles are added there?</saying>
          <saying who="tarrybone">rindolf: yes (citation needed)</saying>
          <saying who="dwu">ha</saying>
          <saying who="shaldannon">lol @ tarrybone</saying>
          <saying who="dwu">tarrybone++</saying>
          <saying who="rindolf">This reminds me of James Bond 1, where the girl there read an encyclopedia, instead of going to school.</saying>
          <saying who="yrlnry">Does anyone near Philadelphia want to come to my house and take away my 1920 Britannica?</saying>
          <saying who="shaldannon">rindolf: hey...when I was in elementary school, I used to read the World Book encyclopedia instead of doing my homework</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Commiting yourself to a programming language on Freenode's #perl.</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-production-wtf-code">
      <meta>
        <title>Production WTF Code on #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="dwave">anyone envy me? i'm refactoring production code that uses the fact that "" is defined, as a hash key.</saying>
          <saying who="dwave">if (ref $ref-&gt;{""} ne "ARRAY") {</saying>
          <saying who="dwave">$ref-&gt;{""} = [$ref-&gt;{""},$_];</saying>
          <saying who="dwave">} else {</saying>
          <saying who="dwave">$ref-&gt;{""} = [@{$ref-&gt;{""}},$_];</saying>
          <saying who="dwave">}</saying>
          <saying who="dwave">:(</saying>
          <saying who="iank">hey, that looks like fun.</saying>
          <saying who="integral">Has the author been lynched yet?</saying>
          <me_is who="integral">would have used "\0" :-P</me_is>
          <saying who="dwave">the best of it all, is that it's an XML parser</saying>
          <saying who="mauke">$ref-&gt;{""} = [ref $ref-&gt;{""} eq "ARRAY" ? @{$ref-&gt;{""}} : $ref-&gt;{""}, $_]; # fixed</saying>
          <saying who="rindolf">dwave: does this XML parser makes use of an existing XML parser from CPAN?</saying>
          <saying who="rindolf">dwave: or does it do everything from scratch?</saying>
          <saying who="dwave">rindolf: everything from scratch :)</saying>
          <saying who="rindolf">dwave: nice!</saying>
          <saying who="dwave">i'm trying to get rid of it</saying>
          <saying who="rindolf">dwave: re-inventing square wheels.</saying>
          <saying who="dwave">there's a home made unicode lib too</saying>
          <saying who="dwave">!</saying>
          <saying who="rindolf">dwave: ouch!</saying>
          <saying who="shaldannon">nice</saying>
          <saying who="iank">Brilliant!</saying>
          <saying who="shaldannon">dwave: I suggest a dailywtf.com submission</saying>
          <saying who="rindolf">dwave: yeah, I second shaldannon</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Production WTF Code on #perl</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-versions-of-software">
      <meta>
        <title>Versions of Software on FreeNode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="bp31416">rindolf: I command you both, to uninstall it, and install SuSE10.2 =P</saying>
          <saying who="jagerman">"versions" are so annoying.</saying>
          <saying who="jagerman">"I use Linux 10.2!"</saying>
          <saying who="iank">jagerman: I had a friend who insisted the answer to the question "What version of the kernel are you running?" was "gnome".</saying>
          <saying who="jagerman">eval: $POE::Kernel::VERSION</saying>
          <saying who="buubot">jagerman: 1.2173</saying>
          <saying who="jagerman">\o/</saying>
          <saying who="Terminus">heh, a friend of mine only remembers me running ximian a few years ago and he keeps on asking me, "why don't you run ximian again?" where ximian == OS for him.</saying>
          <saying who="bp31416">jagerman: could be worse lingo-wise, in tech-support many folks asking on Q about 'THEIR internet' isn't working, or 'does it have internet installed?', I .....like.... sir.... when did you manage to buy the internet in whole? ....... ahhhh... the internet is not a socket you plug in any of the ports sir</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Versions of Software</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="extreme-programming-as-a-religion">
      <meta>
        <title>The Holy Extreme Programming in Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="rindolf">"We're doing XP [= Extreme Programming] here, so you need to know Ruby, you need to know Design Patterns and you need to know Refactoring."</saying>
          <saying who="rindolf">XP may have become a religion.</saying>
          <saying who="ew73">I Refactored yesterday!</saying>
          <saying who="rindolf">ew73: using which refactoring pattern?</saying>
          <saying who="ew73">Leviticus 13:22</saying>
          <saying who="Somni">well you will keep refactoring until you get it right!</saying>
          <me_is who="rindolf">extracts the ew73 method.</me_is>
          <saying who="rindolf">ew73: this is one of my favourite refactoring patterns.</saying>
          <me_is who="ew73">idly looks up said passage, just to see if it's any good.</me_is>
          <saying who="integral">What do you have to know to claim you know refactoring?</saying>
          <saying who="integral">How to click buttons in the right Eclipse menu?</saying>
          <saying who="rindolf">integral: the code is in Ruby.</saying>
          <saying who="integral">Ruby is too cool to be in Eclipse?</saying>
          <saying who="ew73">integral: One time, I moved all this stuff to another subroutine!</saying>
          <saying who="ew73">Lev. 13:22. And if it spread, he shall judge him to have the leprosy:</saying>
          <saying who="rindolf">integral: no, but you cannot refactor Ruby code automatically using Eclipse.</saying>
          <saying who="integral">One time I wrote all this code, but when I was about to go home I found I'd left my brain at home! LOLZ</saying>
          <saying who="integral">ew73: good butter advert in that</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Extreme Programming as a Religion</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="be-here-or-not-be-here">
      <meta>
        <title>To be here or not to be here on Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="rindolf">Hi all.</saying>
          <saying who="rindolf">LeoNerd: here?</saying>
          <saying who="LeoNerd">rindolf: Maybe</saying>
          <saying who="rindolf">LeoNerd: "be here or be not here - there is no maybe"</saying>
          <saying who="LeoNerd">:)</saying>
          <saying who="rindolf">LeoNerd: a.k.a the law of the exclusion of the middle.</saying>
          <saying who="dwu">I think Yoda phrased that one best.</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>To be here or not to be here on Freenode's #perl</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-monkey-business">
      <meta>
        <title>Monkey Business at Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="perlmonkey">thats just...mental</saying>
          <saying who="rindolf">perlmonkey2: still here?</saying>
          <saying who="perlmonkey2">rindolf: hi</saying>
          <saying who="rindolf">perlmonkey2: hi.</saying>
          <saying who="perlmonkey">phew</saying>
          <saying who="rindolf">perlmonkey2: now we have two Perl monkeys.</saying>
          <saying who="perlmonkey2">hah</saying>
          <saying who="perlmonkey2">good stuff</saying>
          <saying who="perlmonkey2">You can never have too many.</saying>
          <saying who="PeaceNLove">To produce good stuff like Shakespeare's works, we need an infinite number of monkeys</saying>
          <saying who="perlmonkey">we're starting a monkey clan</saying>
          <saying who="rindolf">PeaceNLove: heh.</saying>
          <saying who="rindolf">PeaceNLove: and to write like a monkey we need a million Shakespeares.</saying>
          <saying who="PeaceNLove">perlmonkey, reproduce and multiply, God be with you</saying>
          <saying who="perlmonkey2">PeaceNLove: You can, of course, do anything with an infinite number of perl monkeys.</saying>
          <saying who="perlmonkey2">PeaceNLove: Actually a million monkeys on a million typewriters would most probably have not created Hamlet if they started at the beginning of the Universe.</saying>
          <saying who="PeaceNLove">perlmonkey2, that's fine, the Universe has not ended yet, they have time </saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Monkey Business at Freenode's #perl</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-offtopic-not-a-bug">
      <meta>
        <title>Not a bug on #offtopic on OFTC</title>
      </meta>
      <irc>
        <body>
          <saying who="rindolf">sarnold: you go to OGI?</saying>
          <saying who="sarnold">rindolf: no; but my boss and a co-worker are professors there, and other co-workers earned degrees there..</saying>
          <saying who="rindolf">sarnold: OK.</saying>
          <saying who="muli">sarnold, have you got one of those pesky things?</saying>
          <saying who="sarnold">muli: just Bachelor of Arts .. no Masters or Ph.D...</saying>
          <saying who="rindolf">sarnold: B.Sc or B.A.?</saying>
          <saying who="muli">rindolf, Bachelor of Arts is B.A. </saying>
          <saying who="rindolf">muli: I know. But I was just checking.</saying>
          <saying who="sarnold">rindolf: ah, you're right, B.Sc.. I chickened out on the language  requirements :)</saying>
          <saying who="rindolf">muli: see?? LOL.</saying>
          <saying who="muli">rindolf, sometimes, two bugs cancel each other.  </saying>
          <saying who="rindolf">muli: wisely spoken.</saying>
          <saying who="rindolf">But mine wasn't a bug - it was a sanity check.</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Not a bug</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-who-youre-gonna-call">
      <meta>
        <title>Who you're gonna call on Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="rindolf">Hmmm... xchat-perl is gone.</saying>
          <saying who="f00li5h">OH NOES! ## what's that for then?</saying>
          <saying who="rindolf">Who you're gonna call? Bug-busters!!</saying>
          <saying who="Khisanth">rindolf: never existed, unless you are using an rpm based system</saying>
          <saying who="rindolf">Khisanth: I am.</saying>
          <saying who="f00li5h">I AINT AFRAID OF NO BUG!</saying>
          <saying who="rindolf">f00li5h: heh.</saying>
          <saying who="f00li5h">when there's something wierd and in your code base, who you gonna call?</saying>
          <saying who="railbait">f00li5h: The police?</saying>
          <saying who="f00li5h">railbait: BUG BUSTERS!</saying>
          <saying who="f00li5h">we test it with science then blow it up</saying>
          <saying who="f00li5h">... or is that someone else</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Who you're gonna call?</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-tribute-to-the-prisoner">
      <meta>
        <title>Tribute to the Prisoner on Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="Hazard">How do I look up @- in the perldocs?</saying>
          <saying who="rindolf">Hazard: perldoc perlvar</saying>
          <saying who="Hazard">rindolf: Thanks.</saying>
          <saying who="Daveman">perldoc rindolf</saying>
          <saying who="Hazard">I don't know what I'd do without IRC.</saying>
          <saying who="rindolf">Daveman: I am not a pragma! I'm a free man!</saying>
          <saying who="Hazard">I couldn't even google that.</saying>
          <saying who="rindolf">use Daveman (qw(silliness));</saying>
          <me_is who="jetscreamer">sends rindolf back to the village</me_is>
          <saying who="rindolf">jetscreamer: is it a Perlisoner village where everyone becomes a pragma?</saying>
          <saying who="jetscreamer">and lots of perlBalloons</saying>
          <saying who="Daveman">gumbybrain, how do i make teh web wit shlomi!?</saying>
          <saying who="rindolf">jetscreamer: Perloons.</saying>
          <saying who="rindolf">jetscreamer: Perlunatics.</saying>
          <saying who="apeiron">Perlarks.</saying>
          <saying who="Daveman">perlaugh </saying>
      </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Tribute to the Prisoner</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="the-messiah-of-perl">
      <meta>
        <title>The Messiah of Perl on Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="ubajas">Technically, my first language was Turbo Pascal, but I started over with Perl 10 years later (not having programmed in the meantime). I'm obviously damaged goods.</saying>
          <saying who="iank">ubajas: heh, I read that as "I started with (perl 10) (years later)" instead of "I started with perl (10 years later)" :)</saying>
          <saying who="rindolf">Perl 10!</saying>
          <saying who="rindolf">Perl for the Fourth Millenium.</saying>
          <saying who="jagerman">I thought Perl 6 was supposed to be timeless</saying>
          <saying who="ubajas">iank: Maybe I should have added a comma. :-]</saying>
          <saying who="jagerman">Perl ∞</saying>
          <saying who="iank">perl6 has existed since the beginning of time, or at least it will have existed since then once $Larry finds a time machine.</saying>
          <saying who="simcop2387">iank: i'm sorry but larry is the prophet i am the messanger! i will be the one to take it back!</saying>
          <saying who="iank">WHAT.</saying>
          <saying who="simcop2387">iank: its MY TIME MACHINE!</saying>
          <me_is who="iank">smacks simcop2387 around</me_is>
          <saying who="jagerman">iank: So it'll be like that Star Trek episode, where they say that the development of computers are caused by time travel from the future?</saying>
          <saying who="jagerman">Except that they were too stupid (like most Voyager writers) to get their facts right, and thought computers started in the 70s</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>The Messiah of Perl</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-one-rindolf-each">
      <meta>
        <title>One rindolf Each on Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="milardovich">with strict it say me this:</saying>
          <saying who="milardovich">Global symbol "$lorem" requires explicit package name at split.pl line 3.</saying>
          <saying who="rindolf">milardovich: use "my $lorem = "</saying>
          <saying who="rindolf">milardovich: my is your friend.</saying>
          <saying who="rindolf">pun not intended.</saying>
          <saying who="rindolf">my is my friend.</saying>
          <saying who="dwu">Preferably with a real value after "= " ^.^</saying>
          <saying who="rindolf">dwu: he already has that.</saying>
          <saying who="milardovich">that works with my rindolf</saying>
          <saying who="milardovich">thaks you!!!</saying>
          <saying who="rindolf">milardovich: you're welcome.</saying>
          <saying who="milardovich">:)</saying>
          <saying who="ubajas">I wish I had a rindolf too. :-\</saying>
          <saying who="milardovich">people here are "nicer" than on #php :P</saying>
          <saying who="rindolf">ubajas: I'm mass-produced at Chines sweat-shops.</saying>
          <saying who="ubajas">hehe</saying>
          <saying who="rindolf">ubajas: they sell me for 30 bucks a piece.</saying>
          <saying who="rindolf">milardovich: I've heard some horrible stories about ##php.</saying>
          <saying who="milardovich">perl rulz x)</saying>
          <saying who="rindolf">milardovich: what brings you to Perl?</saying>
          <saying who="simcop2387">rindolf: #php apparantly</saying>
          <saying who="rindolf">simcop2387: heh.</saying>
          <saying who="rindolf">simcop2387++</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>One rindolf Each on Freenode's #perl</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-are-you-being-verbed">
      <meta>
        <title>Are you being verbed on Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="rindolf">cl1: what do you do at work?</saying>
          <saying who="cl1">i write code :D</saying>
          <saying who="rindolf">cl1: naturally.</saying>
          <saying who="rindolf">cl1: to do what?</saying>
          <saying who="cl1">right now at this contract, i'm working with .net, c#, asp.net and pl/sql</saying>
          <saying who="rindolf">cl1: sounds enterprisey.</saying>
          <saying who="BinGOs">please don't turn enterprise into a verb.</saying>
          <saying who="rindolf">BinGOs: enterprisey is an adjective, not a verb.</saying>
          <saying who="LeoNerd">Enterprizationaliseation?</saying>
          <saying who="BinGOs">okay.</saying>
          <saying who="cl1">lol @ enterprisey</saying>
          <saying who="rindolf">GumbyBRAIN: BinGOs me!</saying>
          <saying who="GumbyBRAIN">i tend to be good, it doesn't want me to buy an island utopia (you'll get used to bother me.</saying>
          <saying who="BinGOs">But it is a noun and no more.</saying>
          <saying who="BinGOs">mmmkay.</saying>
          <saying who="dwu">BinGOs: Actually, it's also an adjective. Even without "y".</saying>
          <saying who="BinGOs">I HATE YOU ALL.</saying>
          <me_is who="dwu">grin</me_is>
          <saying who="BinGOs">CRITIQUE IS DEFINITELY A FUCKING NOUN.</saying>
          <saying who="dwu">It's also a verb.</saying>
          <saying who="BinGOs">NO IT ISN'T</saying>
          <saying who="simcop2387">BinGOs: i shall critique your use of critique</saying>
          <saying who="BinGOs">JUST BECAUSE SOME DAMNED YANKEE SCUM DECIDE IT IS, DOES NOT MAKE IT SO.</saying>
          <saying who="dwu">It's been used since the 18th century.</saying>
          <saying who="rindolf">BinGOs: dwued!</saying>
          <saying who="BinGOs">I refer you to my earlier hate.</saying>
          <saying who="dwu">I refer you to your fail.</saying>
          <saying who="icke">not earlier than 18th century</saying>
          <saying who="dwu">I really shouldn't. It's mean. But I will.</saying>
          <saying who="dwu">Because I'm mean.</saying>
          <saying who="dwu">icke: Hence "since".</saying>
          <saying who="dwu">'criticises'.</saying>
          <saying who="BinGOs">My fail-gun appears to firing backwards. Damn thing.</saying>
          <saying who="dwu">Your fail gun is... failing?</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Are you being verbed on Freenode's #perl</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="how-much-perl-do-you-need">
      <meta>
        <title>How much Perl do you need at Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="shishirm1">is pop3 module avaliable only in perl 5?</saying>
          <saying who="jernster">are you saying you use something other than 5?</saying>
          <saying who="icke">perl 4 didn't even have modules</saying>
          <saying who="jernster">heh</saying>
          <saying who="rindolf">shishirm1: do you want to use it with Perl 4?</saying>
          <saying who="shishirm1">oh ok sorry i am comlete nooob!! so i am just asking you guys</saying>
          <saying who="shishirm1">nope is perl 5 a standard now?</saying>
          <saying who="jernster">yes</saying>
          <saying who="shishirm1">ok great...</saying>
          <saying who="jernster">:)</saying>
          <saying who="rindolf">shishirm1: Perl 4 is unmaintained, unloved, deprecated, not recommended, and dead - D. E. D. - DEAD!</saying>
          <saying who="simcop2387-lap">perl 4 is an EXPERL!</saying>
          <saying who="simcop2387-lap">all statements that perl4 is a going concern are thus inoperative.</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>How much Perl do you need at Freenode's #perl</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-conditional-inheritance-refactoring">
      <meta>
        <title>Conditional-to-Inheritance Refactoring on Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="edeca">Hrm. More infernal questions, mainly because I am trying to make my perl prettier and contain less nasty if's. I have $foo and $bar which are obtained from split(/ /, 'kitten loving'). But I don't want undef if the split fails, I'd rather '' for $bar or both. What's the nicest way to do that?</saying>
          <saying who="Khisanth">($foo, $bar) = map { $_ // "" } split / /, $str; # 5.10 version :)</saying>
          <saying who="edeca">Noo 5.10! :)</saying>
          <saying who="Khisanth">($foo, $bar) = map { defined $_ ? $_ : "" } split / /, $str; # probably some other shorter ways too</saying>
          <saying who="rindolf">edeca: [bad idea] you can also try using the conditional-&gt;inheritance refactoring.</saying>
          <saying who="rindolf">:-)</saying>
          <me_is who="Khisanth">pours boiling coffee on rindolf</me_is>
          <saying who="rindolf">Khisanth: I hate coffee, but I guess I deserved it.</saying>
          <saying who="rindolf">That was a joke, of course.</saying>
          <saying who="Khisanth">you weren't really supposed to like having boiling anything poured on you but I guess you are into the kinkier stuff</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Conditional-to-Inheritance Refactoring on Freenode's #perl</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-geek-love">
      <meta>
        <title>Geek love on Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="rindolf">rbastic: QBasic was the sh*t!</saying>
          <saying who="rindolf">rbastic: well, not really.</saying>
          <saying who="rbastic">rindolf: yup, that language is responsible for me having gotten into programming to begin with.</saying>
          <saying who="rbastic">8 yrs old and writing qbasic scripts with QBasic for Dummies by my side</saying>
          <saying who="rindolf">rbastic: I started when I was 10.</saying>
          <saying who="rindolf">rbastic: I know some people who started much later.</saying>
          <saying who="talexb">Late bloomer .. didn't start till I was 15.</saying>
          <saying who="Zoffix">heh, I started at 14... I could not have a computer before that</saying>
          <saying who="rindolf">rbastic: but I know a girl who started programming when she was 6.</saying>
          <saying who="rindolf">Or was it 8?</saying>
          <saying who="Zoffix">rindolf, CAN HAS PHONE NUMBER?!</saying>
          <saying who="rbastic">lol</saying>
          <saying who="rindolf">Zoffix: NO CAN!</saying>
          <saying who="Zoffix">:(</saying>
          <saying who="rindolf">Zoffix: only have her MSN.</saying>
          <saying who="Zoffix">gimmegimmegimme</saying>
          <saying who="talexb">Heh.</saying>
          <saying who="Zoffix">:)</saying>
          <saying who="rindolf">Zoffix: LOL.</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Geek Love</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-grand-uni-prog-lang">
      <meta>
        <title>The Grand Unified Programming Language</title>
      </meta>
      <irc>
        <body>
          <saying who="rbastic">Juerd: eh in today's world of heavy JS on the clientside, i think it makes a little more sense to use the same lang. everywhere</saying>
          <saying who="Juerd">rbastic: JS on the client side is because often it's the only option the universe provides.</saying>
          <saying who="rbastic">Juerd: from a business perspective, you reduce the complexity and potential difficulties in finding new hires with the same skillset</saying>
          <saying who="rindolf">rbastic: have you heard of RJS?</saying>
          <saying who="Juerd">rbastic: On the server side, however, you have great freedom.</saying>
          <saying who="rbastic">rindolf: no, what's that?</saying>
          <saying who="Caelum">larry wants perl6 to run on javascript :)</saying>
          <saying who="rindolf">rbastic: "One Language; and One Sayings".</saying>
          <saying who="Juerd">rbastic: Exactly. I would never hire a server side programmer who knows *only* Javascript, and is too stupid to learn whatever we're using on the server side.</saying>
          <saying who="rindolf">rbastic: my translation to a sentence from the Tower of Babel myth.</saying>
          <saying who="rbastic">Juerd: i'll agree with that also. any real programmer knows or has at least coded in half a dozen languages before</saying>
          <saying who="Juerd">From a business perspective, you should avoid crap coders at all cost.</saying>
          <saying who="Juerd">Knows *or* has coded... Hmmm...!</saying>
          <saying who="rindolf">rbastic: though according to what most scholars believe it was not about using one language but rather thinking the same.</saying>
          <saying who="Juerd">I hope they haven't coded in half a dozen languages without knowing them.</saying>
          <saying who="Juerd">That'd be scary.</saying>
          <saying who="zshzn">Reality is scary, Juerd</saying>
          <saying who="talexb">Hmm, BASIC, FORTRAN, COBOL, assembler, C, more assembler, C, Pascal ... Perl!</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>The Grand Unified Programming Language</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-can-i-haz-fast-compiler">
      <meta>
        <title>Can I haz a fast compiler on Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="rindolf">rbastic: now I'm working with C++.</saying>
          <saying who="rindolf">rbastic: I found out that my project compiles really quickly.</saying>
          <saying who="rindolf">rbastic: under 5 or 10 minutes on a P4-2.4GHz with 1 GB of RAM.</saying>
          <saying who="rindolf">rbastic: maybe KDE is making g++ look bad.</saying>
          <saying who="rbastic">rindolf: yeah, i'm not a big KDE fan</saying>
          <saying who="rindolf">rbastic: actually I'm using KDE-3.5.8 here.</saying>
          <saying who="rindolf">rbastic: I was talking about the compilation speed of KDE apps and KDE itself.</saying>
          <saying who="rindolf">rbastic: possibly because each file has half-a-gazillion headers.</saying>
          <saying who="rindolf">My C++ code is a server one, so we don't have too many deps.</saying>
          <saying who="rbastic">yeah, isn't there a way to cache header files? ie. in their "compiled" form?</saying>
          <saying who="rbastic">or is that something I'm remembering from some other programming language that purported to build on top of C?</saying>
          <saying who="rindolf">rbastic: MSVC has that.</saying>
          <saying who="rbastic">ahh, nods</saying>
          <saying who="rindolf">rbastic: no, Visual C++ has precompiled headers.</saying>
          <saying who="rindolf">rbastic: I remember that I kept deleting them.</saying>
          <saying who="rbastic">yeah, couldn't remember</saying>
          <saying who="rbastic">lol</saying>
          <saying who="rindolf">Pascal compiles very quickly.</saying>
          <saying who="rindolf">That's one of the things I enjoyed in Delphi.</saying>
          <saying who="rbastic">ugh, the app i'm been maintaining in Java was originally a fat client/server desktop app, written in Delphi</saying>
          <saying who="rindolf">rbastic: ah.</saying>
          <saying who="rbastic">i remember booting up the old app for the first time, and being amazed at how slow it was</saying>
          <saying who="rbastic">eventually, i had to duplicate a feature in the Java code and i wasn't sure how it was implemented before</saying>
          <saying who="rindolf">rbastic: you mean the Java app is faster? :S</saying>
          <saying who="rbastic">so being as i had no Delphi experience, and the newer Delphi environments made NO sense to me at all, i just opened up the SQL Server query analyzer</saying>
          <saying who="rbastic">rindolf: yes, but only b/c the Delphi programmer was an idiot, issuing queries over and over again needlessly</saying>
          <saying who="rbastic">rindolf: if you could've seen the MSSQL Performance Analyzer or whatever, it was basically just.. Query1, Query2, Query3, Query1, Query2, Query3, repeat.</saying>
          <saying who="rbastic">it was probably the worst ive ever seen in my life.. belongs on www.thedailywtf.com </saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Can I haz a fast compiler</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-think-too-much">
      <meta>
        <title>I think too much - therefore I blog too much on Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="rindolf">scrottie: hi.</saying>
          <saying who="scrottie">hi rindolf!</saying>
          <saying who="rindolf">scrottie: are you the scrottie from use.perl.org?</saying>
          <saying who="scrottie">yeah.</saying>
          <saying who="rindolf">scrottie: ah, nice to meet you.</saying>
          <saying who="rindolf">Well, chat with you on IRC at least.</saying>
          <me_is who="scrottie">cowers from the swinging fist probably coming his way</me_is>
          <saying who="rindolf">scrottie: I'm "Shlomi%20Fish"</saying>
          <saying who="scrottie">oh, heh, thanks</saying>
          <saying who="rindolf">It's a curse.</saying>
          <saying who="scrottie">hmm. i vaguely remember interesting stuff from you but can't honestly place what.</saying>
          <saying who="scrottie">I know I've seen you around here before too.</saying>
          <saying who="rindolf">Yeah, my use.perl.org blog is mostly technical and perl-related.</saying>
          <saying who="scrottie">I post on use.perl.org entirely too much.</saying>
          <saying who="rindolf">So it may be a bit boring.</saying>
          <saying who="rindolf">Sometimes it's a bit philosophical.</saying>
          <saying who="rindolf">scrottie: yes.</saying>
          <saying who="scrottie">heh. and mine is offensively off-topic.</saying>
          <saying who="rindolf">scrottie: I have other blogs.</saying>
          <saying who="scrottie">I've posted to livejournal twice!</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>I think too much - therefore I blog too much</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-how-intrusive">
      <meta>
        <title>"How intrusive do you want your text to be?" on Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="rindolf">Can we add styles like &lt;b&gt;, &lt;i&gt;, etc.?</saying>
          <saying who="rindolf">Or colours?</saying>
          <saying who="rindolf">Or blink?</saying>
          <saying who="rindolf">Or images?</saying>
          <saying who="rindolf">Or flash applets?</saying>
          <saying who="scrottie">&lt;banner&gt;!</saying>
          <saying who="alanhaggai">rindolf: No I think. Google's Web Application does not allow them. It is just a &lt;textarea&gt;. </saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>How intrusive do you want your text to be?</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-sharp-pearl">
      <meta>
        <title>Freenode's #pearl</title>
      </meta>
      <irc>
        <body>
          <saying who="rindolf">scrottie: you are a native English speaker right?</saying>
          <saying who="rindolf">scrottie: do you know #linguistics ?</saying>
          <saying who="scrottie">not familiar with #linguistics, yes, I am a native English speaker, but my spelling is atr... my spelling is terrible.</saying>
          <saying who="rindolf">atrocious?</saying>
          <saying who="scrottie">yeah, that</saying>
          <saying who="scrottie">I have an xterm dedicated to dict/spell</saying>
          <saying who="rindolf">scrottie: spelling is probably easy to fix using aspell.</saying>
          <saying who="rindolf">scrottie: heh.</saying>
          <saying who="rindolf">scrottie: I'm using xchat which has an red-line for spelling mistakes.</saying>
          <saying who="rindolf">Very useful.</saying>
          <saying who="rindolf">Too bad I'm using British spelling where it sometimes misbehaves.</saying>
          <saying who="rindolf">aspell, I mean.</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Freenode's #pearl</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="sharp-perl-lame-even">
      <meta>
        <title>"Lame even" on Freenode's #perl</title>
      </meta>
      <irc>
        <body>
          <saying who="rindolf">A lot of ise's [in Aspell's British Spelling checker] are false  positivies.</saying>
          <saying who="rindolf">positives even.</saying>
          <saying who="rindolf">People who say $minor_spelling_correction even, are lam.</saying>
          <saying who="rindolf">lame even.</saying>
          <saying who="rindolf">I never get tired of these self-referential jokes.</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Lame even</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="third-sharp-perl-reich">
      <meta>
        <title>The Third #perl Reich (on Freenode #perl).</title>
      </meta>
      <irc>
        <body>
          <saying who="scrottie">The tech side was there... but I was stuck with my fucking graphics I did in crayon. I kid you not. Crayon.</saying>
          <saying who="scrottie">It was a cry for help.</saying>
          <saying who="scrottie">Programmers will work with each other on fun projects, but graphic designers never get involved in stuff like that.</saying>
          <saying who="rindolf">scrottie: ah.</saying>
          <saying who="scrottie">then there's kingdomofloathing.com... stick figures.</saying>
          <saying who="rindolf">scrottie: there are some graphic designers who contribute to KDE, GNOME, etc.</saying>
          <saying who="scrottie">fuck graphic artists. we should round them all up and burn them.</saying>
          <saying who="rindolf">scrottie: heh.</saying>
          <saying who="scrottie">okay, they can live.</saying>
          <saying who="rindolf">scrottie: scrotitler!</saying>
          <saying who="scrottie">the rest get burnt though.</saying>
          <saying who="rindolf">"He who starts by burning graphics desginers will end up burning programmers."</saying>
          <saying who="scrottie">only the ASP and PHP programmers... then we'll see where things are at and re-evaluate the plan.</saying>
          <saying who="rindolf">First they came to the graphics designers...</saying>
          <saying who="Khisanth">then they came for more graphics designers</saying>
          <saying who="rindolf">scrottie: I knew some very nice PHP programmers.</saying>
          <saying who="rindolf">And VB ones.</saying>
          <saying who="scrottie">yeah, me too. real shame.</saying>
          <saying who="rindolf">scrottie: I still know some PHP programmers.</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>The Third #perl Reich (on Freenode #perl).</tagline>
        </info>
      </irc>
    </fortune>
    <fortune id="the-name-bunny">
      <meta>
        <title>The Name "Bunny"</title>
      </meta>
      <irc>
          <body>
<joins who="B-rabbit">has joined #perl</joins>
<saying who="rindolf">B-rabbit? I know a B-rat on #linguistics.</saying>
<saying who="B-rabbit">rindolf, cool =]</saying>
<saying who="rindolf">B-rabbit: ok.</saying>
<saying who="B-rabbit">my full name is bunny rabbit bt w :)</saying>
<saying who="B-rabbit">hehe</saying>
<saying who="rindolf">B-rabbit: ah.</saying>
<saying who="rindolf">B-rabbit: "bunny" is a female name.</saying>
<saying who="B-rabbit">lol</saying>
<saying who="pippijn">rindolf: correct</saying>
<saying who="pippijn">I know a bunny</saying>
<saying who="rindolf">Or a Playboy bunny.</saying>
<saying who="ik">rindolf: bunny is a stripper name</saying>
<saying who="pippijn">friends call her bun</saying>
<saying who="ik">pippijn: is she a stripper?</saying>
<saying who="B-rabbit">rindolf, i am a male lol x sorry to disappoint u</saying>
<saying who="rindolf">"IRC: Where men are men, women are men, and the kids are FBI agents."</saying>
<saying who="rindolf">B-rabbit: ok, no problem.</saying>
<saying who="ik">pippijn: she should change her name</saying>
<saying who="pippijn">ik: it doesn't hurt her</saying>
<saying who="ik">pippijn: right, but she's violating a fundamental law</saying>
<saying who="ik">pippijn: she either needs to change her name or become a stripper</saying>
<saying who="rindolf">ik: I think the other option is better.</saying>
<saying who="pippijn">ik: she'd probably become a stripper rather than changing her name</saying>
<saying who="rindolf">pippijn: LOL.</saying>
<saying who="ik">rindolf: yeah, but you're creepy</saying>
<saying who="rindolf">I think I'll make a fortune out of it.</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>The Name "Bunny"</tagline>
        </info>
      </irc>
    </fortune>
<fortune id="the-anti-school-anti">
        <meta>
            <title>The Anti-School nazi</title>
        </meta>
        <irc>
            <body>
<saying who="dazjorz">Hi rindolf :)</saying>
<saying who="rindolf">Hi dazjorz </saying>
<saying who="rindolf">dazjorz: what&#39;s up?</saying>
<saying who="rindolf">dazjorz: No Tests for You?</saying>
<saying who="rindolf">No *more</saying>
<saying who="dazjorz">No more tests :)</saying>
<saying who="rindolf">dazjorz: No more tests for you!!! For three months!</saying>
<saying who="rindolf">dazjorz: nice!</saying>
<saying who="dazjorz">:D</saying>
<saying who="dazjorz">Two, I think</saying>
</body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>The anti-School nazi</tagline>
        </info>
</irc>
</fortune>
<fortune id="emulating-a-newbie-on-perl">
        <meta>
            <title>Emulating a Newbie on Perl</title>
        </meta>
        <irc>
            <body>
<saying who="yrlnry">Hi, I heard that Perl is just HTML with some sort of macro preprocessor attached.  So I thought you would be the right people to ask about whether there is a way to make the submitted value on an &lt;input type=submit&gt; different from the visible label on the button.</saying>
<saying who="yrlnry">Thanks in advance.</saying>
<me_is who="Roderick">tars and feathers yrlnry.</me_is>
<saying who="yrlnry">Hi, Roderick!  How&#39;s the kid?</saying>
<saying who="Somni">you have been misinformed, sir; Perl is just a regex engine with named variables</saying>
<saying who="ne2k__">yrlnry: that is possibly one of the oddest questions I have ever heard</saying>
<saying who="yrlnry">ne2k__: What&#39;s odd about &quot;How&#39;s the kid?&quot;</saying>
<saying who="yrlnry">You need to get out more, seriously.</saying>
<saying who="ne2k__">yrlnry: I meant the original question</saying>
<saying who="Roderick">Congratulations, I hope it&#39;s going well.</saying>
<saying who="yrlnry">Do you know that Jewish folktale about the man who lives in a tiny hut with his wife and kids and they can&#39;t stand the crowding any more, so they go to the rabbi for advice, and the rabbit suggests that they bring the chickens, goat, and cow into the house too?</saying>
<saying who="ne2k__">yrlnry: not that it has anything to do with perl, but the &lt;input&gt; tag in HTML has both &quot;name&quot; and &quot;value&quot; attributes. the value is what gets shown in the browser typically.</saying>
<saying who="yrlnry">ne2k__: yes, and the value is also what is submitted when someone presses the button, but I want the displayed label to be different from what it submitted, as it is say with &lt;option ...&gt;</saying>
</body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>yrlnry as a Perl newbie</tagline>
        </info>
</irc>
</fortune>
<fortune id="which-prefix-do-you-want">
        <meta>
            <title>Which Prefix do You Want Today?</title>
        </meta>
        <irc>
            <body>
<saying who="mMish">hi rind</saying>
<saying who="rindolf">Hi mMish </saying>
<saying who="rindolf">mMish: now you&#39;re mMish ?</saying>
<saying who="rindolf">mMish: are you eMish, oMish, aMish , etc?</saying>
<saying who="mMish">yes</saying>
<saying who="rindolf">mMish: ah, nice.</saying>
<saying who="mMish">depends on the mood</saying>
<saying who="rindolf">GumbyBRAIN: how many nicks must a one IRCer have?</saying>
<saying who="GumbyBRAIN">Oh, i lie, now it&#39;s stuck on posting things to do it.  You said you couldn&#39;t have one of many.</saying>
<saying who="rindolf">mMish: ah OK.</saying>
<saying who="rindolf">xMish</saying>
<saying who="rindolf">iMish</saying>
<saying who="rindolf">zMish</saying>
<saying who="rindolf">Like the IBM computers.</saying>
<saying who="rindolf">pMish</saying>
<saying who="mMish">ppszMish &lt;--- HUngarian</saying>
<saying who="rindolf">mMish: LOL.</saying>
<saying who="rindolf">lpstrMish</saying>
<saying who="dazjorz">is lpstr a function?</saying>
<saying who="dazjorz">get_magic_quotes_gpcMish</saying>
<saying who="rindolf">dazjorz: no, Long Pointer to string.</saying>
<saying who="dazjorz">PHP++ :&#39;)</saying>
<saying who="rindolf">dazjorz: why?</saying>
<saying who="rindolf">perlbot: karma PHP</saying>
<saying who="perlbot">Karma for PHP: -147</saying>
<saying who="LeoNerd">It takes some nerve to say &quot;PHP++&quot; in #perl :P</saying>
<saying who="dazjorz">rindolf: because they have get_magic_quotes_gpc!</saying>
<saying who="dazjorz">don&#39;t we all love get_magic_quotes_gpc!</saying>
<saying who="rindolf">dazjorz: oh.</saying>
<saying who="dazjorz">it&#39;s a function</saying>
<saying who="rindolf">dazjorz: love, hate - what&#39;s the difference.</saying>
<saying who="rindolf">dazjorz: that does what?</saying>
<saying who="dazjorz">to get the value of magic_quotes_gpc in the config file.</saying>
<saying who="rindolf">dazjorz: ah.</saying>
<saying who="dazjorz">so they have get_magic_quotes_gpc for get_ini(&#39;magic_quotes_gpc&#39;)</saying>
<saying who="rindolf">dazjorz: LOL.</saying>
<saying who="dazjorz">plus, there&#39;s the magic_quotes_gpc to escape all input a script gets via POST, GET and COOKIE.</saying>
<saying who="rindolf">dazjorz: yes, sounds Evil.</saying>
<saying who="rindolf">Just use placeholders.</saying>
</body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Which Prefix do you Want today?</tagline>
        </info>
</irc>
</fortune>
<fortune id="sextalk-according-to-perlers">
        <meta>
            <title>Sextalk according to the cult of Perl</title>
        </meta>
        <irc>
            <body>
<saying who="krang">Hey all, what&#39;s the best way to call one perl script from another? I was thinking I&#39;d just use &#39;system(&quot;script.pl&quot;);&#39;</saying>
<saying who="dazjorz">krang: yeah, that, or do &quot;script.pl&quot;</saying>
<saying who="dazjorz">krang: depends on how seperated you want them to be</saying>
<saying who="krang">dazjorz: you mean just a line that has &quot;script.pl&quot;; written on it?</saying>
<saying who="Khisanth">you need the do as well</saying>
<saying who="dazjorz">krang: no, exactly this: do &quot;script.pl&quot;;</saying>
<saying who="rindolf">krang: system is usually what you want.</saying>
<saying who="rindolf">krang: normally require or use are preferable to do</saying>
<saying who="dazjorz">rindolf: that&#39;s for modules, isn&#39;t it ?</saying>
<saying who="rindolf">dazjorz: yes.</saying>
<saying who="dazjorz">wait, I think require &quot;script.pl&quot; would work too</saying>
<saying who="rindolf">dazjorz: and doing code is not such a good idea.</saying>
<saying who="dazjorz">rindolf: hmm?</saying>
<saying who="krang">rindolf: what is doing anyway?</saying>
<saying who="rindolf">dazjorz: I mean &quot;perldoc -f do&quot;-ing code.</saying>
<saying who="rindolf">krang: do()-ing</saying>
<saying who="rindolf">krang: it reads the file and evaluates it.</saying>
<saying who="rindolf">krang: perldoc -f do.</saying>
<saying who="dazjorz">rindolf: ah</saying>
<saying who="dazjorz">rindolf: do {}</saying>
<me_is who="rindolf">would rather be doing hot models than doing code. :-)</me_is>
<saying who="dazjorz">rindolf: yeah, do BLOCK is quite useless</saying>
<saying who="dazjorz">heh</saying>
<saying who="rindolf">dazjorz: you can do my $var = do { ... }</saying>
<me_is who="dazjorz">would rather be doing GumbyBRAIN than doing code</me_is>
<saying who="GumbyBRAIN">and doing code is not be in the days of immortality!</saying>
<saying who="rindolf">dazjorz: or eval { ... }</saying>
<saying who="rindolf">dazjorz: heh.</saying>
<saying who="rindolf">It&#39;s hard to do code.</saying>
<saying who="dazjorz">do $model;</saying>
<saying who="dazjorz">eh.. sorry, do $hotmodel;</saying>
<saying who="rindolf">&quot;Are you into my brother?&quot;</saying>
<saying who="rindolf">&quot;No I&#39;m totally into Perl.&quot;</saying>
<saying who="krang">ah ok, I see. Thanks guys!</saying>
<saying who="rindolf">krang: yw.</saying>
<saying who="dazjorz">heh :-)</saying>
<saying who="rindolf">If you want a configuration file, you should be using something like INI, YAML, etc.</saying>
<saying who="rindolf">XML perhaps.</saying>
<saying who="rindolf">Something.</saying>
<saying who="rindolf">Apache-like config.</saying>
<saying who="dazjorz">Apache-like is very strong but hard to parse, right ?</saying>
<saying who="dazjorz">Loading and saving configuration never looks good, especially when it&#39;s XML</saying>
<saying who="dazjorz">the code to load and save is ugly.</saying>
</body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Sextalk among Perl cultists</tagline>
        </info>
</irc>
</fortune>
<fortune id="foolish-inviting-rindolf-to-australia">
    <meta>
        <title>f00li5h inviting rindolf to Australia</title>
    </meta>
    <irc>
        <body>
<saying who="f00li5h">rindolf: are you coming out this way on tour some time?</saying>
<saying who="rindolf">f00li5h: to .au?</saying>
<saying who="f00li5h">yes!</saying>
<saying who="rindolf">f00li5h: don&#39;t think so.</saying>
<saying who="f00li5h">you can pay some of my rent for a bit ^_^</saying>
<saying who="rindolf">f00li5h: I&#39;m out of job too.</saying>
<saying who="f00li5h">perfect timing!</saying>
<saying who="f00li5h">no commitments</saying>
<me_is who="f00li5h">is very good at constructing circular arguments due to his skill in constructing circular arguments</me_is>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Will rindolf come to Australia?</tagline>
        </info>
    </irc>
</fortune>
<fortune id="sharp-perl-love-life-of-cats">
    <meta>
        <title>The Love Life of Cats</title>
    </meta>
    <irc>
        <body>
<saying who="Anon">today my kitty gave a birth to two kitties!</saying>
<saying who="rindolf">Anon: ah, nice.</saying>
<saying who="Anon">one of them died :(</saying>
<saying who="Anon">during birth</saying>
<saying who="rindolf">Anon: oh. :-(</saying>
<saying who="simcop2387">Anon: were you expecting it to happen?</saying>
<saying who="simcop2387">:(</saying>
<saying who="Anon">simcop2387, i was expecting this week</saying>
<saying who="rindolf">Anon: do you know who the father is?</saying>
<saying who="simcop2387">ah</saying>
<saying who="Anon">rindolf, some cat</saying>
<saying who="simcop2387">rindolf: hopefully not him</saying>
<saying who="Anon">rindolf, remember my kitty ran away</saying>
<saying who="rindolf">Anon: ah.</saying>
<saying who="Anon">for a week</saying>
<saying who="rindolf">Anon: no I don&#39;t remember that.</saying>
<saying who="Anon">well, she ran away for a week</saying>
<saying who="rindolf">Anon: ah.</saying>
<saying who="Anon">and came back</saying>
<saying who="Anon">and during that time she got pregnant.</saying>
<saying who="rindolf">Anon: ah.</saying>
<saying who="freehaha">they don&#39;t seem to have safe sex</saying>
<saying who="rindolf">Anon: she eloped.</saying>
<saying who="simcop2387">Anon: sounds like she had fun</saying>
<saying who="Anon">simcop2387, sounds like that :)</saying>
<saying who="simcop2387">Anon: you should have the talk with her about birth control then (i wonder do they even make birth control for kitties)</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>The Love Life of Cats</tagline>
        </info>
    </irc>
</fortune>
<fortune id="sharp-perl-black-beer">
    <meta>
        <title>Black Beer</title>
    </meta>
    <irc>
        <body>
<me_is who="rindolf">is listening to </me_is>
<saying who="rindolf">Oh crud.</saying>
<saying who="rindolf">I should support Kaffeine too.</saying>
<saying who="Tanktalus">rindolf is apparently deaf... ;-)</saying>
<me_is who="rindolf">is listening to Metallica - Nothing Else Matters</me_is>
<saying who="ubajas">NOTHING ELSE MATTERS, DUDE</saying>
<saying who="tkr">rindolf: thats nice :)</saying>
<saying who="tkr">rindolf: how about guns &#39;n roses?</saying>
<me_is who="rindolf">is listening to Guns and Runs - don&#39;t cry</me_is>
<saying who="rindolf">tkr: you read my mind.</saying>
<saying who="rindolf">tkr: I now placed some of their songs.</saying>
<saying who="rindolf">Now it&#39;s November Rain.</saying>
<saying who="tkr">rindolf: next time youll come to finland Ill buy you a beer (with no alcohol)! :)</saying>
<saying who="tkr">rindolf++</saying>
<saying who="rindolf">tkr: OK.</saying>
<saying who="rindolf">tkr: we have something called &quot;Black Beer&quot; in Israel.</saying>
<saying who="rindolf">Which is a non-alcoholic beer.</saying>
<saying who="simcop2387">rindolf: THATS RACIST! IT SHOULD BE AFRICAN AMERICAN ISREALI BEER!</saying>
<saying who="edenc">rindolf: is it any good?</saying>
<saying who="rindolf">simcop2387: heh .</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Beer, Perlers and Song</tagline>
        </info>
    </irc>
</fortune>
<fortune id="sharp-perl-assign-named-foo-and-bar">
    <meta>
        <title>Assign Named $foo and $bar</title>
    </meta>
    <irc>
        <body>
<saying who="LeoNerd">I feel there must be a way to do this...  given   func( foo =&gt; 1, bar =&gt; 2 );   how to write   my ( $foo, $bar ) = ....  inside the function?</saying>
<saying who="LeoNerd">My current attempt is    my ( $foo, $bar ) = @{{@_}}{qw( foo bar )};   which is messy as sin</saying>
<saying who="icke">LeoNerd: what&#39;s the problem? readability?</saying>
<saying who="LeoNerd">Yah</saying>
<saying who="dazjorz">LeoNerd: I&#39;d change specs to be func({ foo =&gt; 1, bar =&gt; 2})</saying>
<saying who="dazjorz">then my ($foo, $bar) = ($_[0]{foo}, $_[0]{bar});</saying>
<saying who="ton">Leonerd: If you insist on doing it on one line, that&#39;s about as good as it gets. But why not use a temporary hash ? Should be just as fast and as readable</saying>
<saying who="LeoNerd">Hrm.. :/ Then it&#39;s only marginally nicer as    my ( $foo, $bar ) = @{$_[0]}{qw( foo bar )};</saying>
<saying who="LeoNerd">my %args = @_;  my ( $foo, $bar ) = @args{qw( foo bar )};  ya... that works</saying>
<saying who="mst">LeoNerd: my ($foo, $bar) = do { my %a = @_; @a{qw(foo bar)} };</saying>
<saying who="ton">if you combine it with a delete you can then check if %args is empty and catch typos or unexpected arguments....</saying>
<saying who="LeoNerd">Oooh.. a do block</saying>
<saying who="vincent">or use padwalker</saying>
<saying who="LeoNerd">Oh, args won&#39;t be empty... this is a wrapper function that pulls a few named args off and sends the rest to a nested inner function</saying>
<saying who="LeoNerd">Now.. I want to call a function &quot;foreach&quot; but that breaks things... suggestions?</saying>
<saying who="icke">a method could be named &#39;foreach&#39;</saying>
<saying who="LeoNerd">Ya.. but this is a plain function</saying>
<saying who="icke">tough</saying>
<saying who="LeoNerd">I suppose &quot;iterate&quot; is about as best as I&#39;ll get</saying>
<saying who="icke">for_each</saying>
<saying who="ton">LeoNerd: forall ?</saying>
<saying who="LeoNerd">I&#39;ll think on it overnight maybe.. I guess it&#39;s home time now</saying>
<saying who="icke">foreachandeverysingleone</saying>
<saying who="ton">forever, forfun, forlorn...</saying>
<saying who="vincent">FOREACH</saying>
<saying who="icke">boo</saying>
<saying who="LeoNerd">one_for $all and $all for @one;</saying>
<saying who="rindolf">forevery?</saying>
<saying who="rindolf">&lt;LeoNerd&gt; one_for $all and $all for @one; - heh</saying>
<saying who="rindolf">$one for @all and @all for @one</saying>
<saying who="rindolf">$one for @all and @all for @$one</saying>
<saying who="rindolf">$one for @all and @all for $one</saying>
<saying who="rindolf">Works too.</saying>
<saying who="LeoNerd">Hrm.. it does?</saying>
<saying who="LeoNerd">deparse: $one for @all and @all for $one</saying>
<saying who="buubot">LeoNerd: Error: syntax error at (eval 107195) line 1, near &quot;@all for &quot;</saying>
<saying who="LeoNerd">You can&#39;t use two postmod fors in a single statement</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Syntax Fun</tagline>
        </info>
    </irc>
</fortune>
<fortune id="sharp-perl-the-func">
    <meta>
        <title>The func</title>
    </meta>
    <irc>
        <body>
<saying who="as841">Hi, i am doing a print $drh-&gt;func(&#39;createdb&#39;,$database,&quot;localhost&quot;,&quot;root&quot;,$password,&#39;admin&#39;); but getting this Can&#39;t call method &quot;func&quot; on an undefined value</saying>
<saying who="as841">could anyone point me in the right direction ?</saying>
<saying who="Yaakov">o/~ Ow we want the func / Give up the func / Ow we need the func / We gotta have that func o/~ &lt;/drforr&gt;</saying>
<saying who="rindolf">We got the func!</saying>
<saying who="rindolf">Forget the fee func, we&#39;ve got the see func!</saying>
<saying who="as841">wtf?</saying>
<saying who="as841">did i launch a movement or what ?</saying>
<saying who="Yaakov">What the func?!</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>The func</tagline>
        </info>
    </irc>
</fortune>
<fortune id="sharp-perl-more-that-one-way-for-a-cat-to-paw">
    <meta>
        <title>More Than One Way for a Cat to Paw</title>
    </meta>
    <irc>
        <body>
<me_is who="f00li5h">paws at dazjorz </me_is>
<saying who="dazjorz">f00li5h! :)</saying>
<saying who="f00li5h">how goes it?</saying>
<saying who="dazjorz">it goes very fine. :)</saying>
<me_is who="pkrumins">f00s at pawlish</me_is>
<me_is who="f00li5h">pkrums at pawkrumins</me_is>
<saying who="pkrumins">f00li5h, thank you sir! =^_^=</saying>
<saying who="f00li5h">dazjorz: I am quite well</saying>
<me_is who="dazjorz">li5hes at f00paw</me_is>
<me_is who="dazjorz">rins at pawdolf... man, I could go on forever.</me_is>
<saying who="pkrumins">haha</saying>
<saying who="pkrumins">pawdolf</saying>
<me_is who="pkrumins">dazes at pawjorz</me_is>
<me_is who="dazjorz">gumbys at .. oh well</me_is>
<me_is who="pkrumins">paws at GumbyBRAIN</me_is>
<saying who="GumbyBRAIN">Ik paws at gumbybrain.</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>More Than One Way for a Cat to Paw</tagline>
        </info>
    </irc>
</fortune>
<fortune id="sharp-perl-bit-by-bit">
    <meta>
        <title>Bit by bit</title>
    </meta>
    <irc>
        <body>
<saying who="Similian">is there a smart way to read a file to a certain string bit by bit ?</saying>
<saying who="Similian">which loop to use?</saying>
<saying who="rindolf">Similian: you can read it byte by byte.</saying>
<saying who="rindolf">Similian: do you want to read the whole thing?</saying>
<saying who="Similian">no</saying>
<saying who="Similian">too big 200 MB</saying>
<saying who="simcop2387-lab">reading bit by bit is usually not supported by most operating systems</saying>
<saying who="rindolf">Similian: then do you want to read one byte at a time?</saying>
<saying who="ik">or one line at a time?</saying>
<saying who="Similian">guess a line would be better</saying>
<saying who="rindolf">simcop2387-lab: it is on my rindolfOS running on Intel 1001.</saying>
<saying who="rindolf">Which was a 1-bit processor.</saying>
<saying who="ik">heh</saying>
<saying who="ik">I had a half-bit processor</saying>
<saying who="ik">it just stored ones</saying>
<saying who="danieldg">ik: that would be a zero-bit processor then</saying>
<saying who="ik">no no</saying>
<saying who="danieldg">half-bit processor stores 0&#39;s or sqrt(2)&#39;s</saying>
<saying who="ik">sqrt(2) may as well be 1</saying>
<saying who="simcop2387-lab">rindolf: a 1 bit processor would be a hell of a thing to work with</saying>
<saying who="danieldg">not if you can&#39;t test it unless it&#39;s one</saying>
<saying who="ik">We&#39;re not talking about numbers, we&#39;re talking about on and off, true and false, whatever you want to call it</saying>
<saying who="ik">sqrt(2) is nonzero, so it&#39;s one.</saying>
<saying who="rindolf">danieldg: not 1/sqrt(2)?</saying>
<saying who="danieldg">hmm it would probably be that, yes</saying>
<saying who="simcop2387-lab">my proc uses sqrt[-1]!</saying>
<saying who="ik">may as well</saying>
<saying who="danieldg">ik: think quantum computers. It tests true with probability 1/sqrt(2)</saying>
<saying who="ik">I&#39;m not talking about a quantum computer..</saying>
<saying who="danieldg">well a 1/2 bit computer clearly can&#39;t be classical</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Bit by bit</tagline>
        </info>
    </irc>
</fortune>
<fortune id="sharp-perl-log-analyser-in-haskell">
    <meta>
        <title>Log Analyser in Haskell</title>
    </meta>
    <irc>
        <body>
<saying who="rindolf">whoppix: what&#39;s up?</saying>
<saying who="whoppix">rindolf, haskelling through the night.</saying>
<saying who="rindolf">whoppix: ah.</saying>
<saying who="whoppix">rindolf, im pretty much a beginner, tho.</saying>
<saying who="rindolf">whoppix: yes, I learned Haskell back at the time.</saying>
<saying who="rindolf">whoppix: I tried to write a log analyser in Haskell once.</saying>
<saying who="rindolf">whoppix: it segfaulted.</saying>
<saying who="rindolf">whoppix: a CL-one was much better.</saying>
<saying who="Caelum">rindolf: haha</saying>
<saying who="whoppix">sadness</saying>
<saying who="rindolf">whoppix: then people showed me how to write it better. </saying>
<saying who="rindolf">whoppix: but it segfaulted too.</saying>
<saying who="whoppix">haha</saying>
<saying who="Caelum">hahaha</saying>
<saying who="Zoffix">lol</saying>
<saying who="rindolf">whoppix: I gave up on using Haskell for production.</saying>
<saying who="Caelum">rindolf: I&#39;ve submitted your story to bash.org</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Log Analyser in Haskell</tagline>
        </info>
    </irc>
</fortune>
<fortune id="sharp-perl-best-kind-of-bugs">
    <meta>
        <title>Best Kind of Bugs</title>
    </meta>
    <irc>
        <body>
<saying who="rindolf">perlmonkey2: I&#39;ve ran into a strange problem with CMake. It&#39;s some kind of bug that disappears after running a few commands.</saying>
<saying who="perlmonkey2">rindolf: heh, the best kind of bugs are intermittant and only happen under load :P</saying>
<saying who="rindolf">perlmonkey2: it&#39;s not load.</saying>
<saying who="daemon">The best kind of bugs are the ones that do not happen at all :)</saying>
<saying who="rindolf">daemon: heh.</saying>
<saying who="rindolf">daemon++</saying>
<saying who="Altreus">The best kind of bugs are the ones that only happen to people you hate.</saying>
<saying who="perlmonkey2">hahahaha</saying>
<saying who="Altreus">Those aren&#39;t usually bugs</saying>
<saying who="Altreus">&gt;:)</saying>
<saying who="daemon">Altreus, you mean the ones you coded to happen to that said person ;)</saying>
<saying who="daemon">hehe</saying>
<saying who="Altreus">Not being able to reproduce strange behaviour is fine too</saying>
        </body>
        <info>
            <channel>#perl</channel>
            <network>Freenode</network>
            <tagline>Best kind of bugs</tagline>
        </info>
    </irc>
</fortune>
    <fortune id="sharp-perl-the-irc-based-unix-shell">
        <meta>
            <title>The IRC-Based UNIX Shell</title>
        </meta>
        <irc>
            <body>
                <me_is who="Zoffix">&amp;</me_is>
                <saying who="^Quiddity">Zoffix: fg</saying>
                <saying who="apeiron">^Quiddity, no</saying>
                <saying who="apeiron">kill %1</saying>
                <saying who="rindolf">kill -9 apeiron</saying>
                <saying who="apeiron">rindolf, EPERM</saying>
                <saying who="^Quiddity">kill: apeiron: arguments must be process or job IDs</saying>
                <saying who="rindolf">apeiron: sudo kill -9 apeiron</saying>
                <saying who="^Quiddity">killall -9 apeiron</saying>
                <saying who="rindolf">pkill -9 apeiron</saying>
                <saying who="apeiron">rindolf, user rindolf is not in the sudoers file, this event will be reported</saying>
                <me_is who="apeiron">wonders what it says about him that he has that error message pretty much memorized</me_is>
                <saying who="^Quiddity">apeiron: that you don&#39;t spend enough time issuing commands correctly</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>The IRC-Based UNIX Shell</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="sharp-perl-retardedness">
        <meta>
            <title>Retardedness</title>
        </meta>
        <irc>
            <body>
<saying who="rindolf">mst: sorry for that - that was not my intention.</saying>
<saying who="mst">rindolf: I know it wasn&#39;t. you aren&#39;t that retarded. but the way your comment came across was :)</saying>
<saying who="rindolf">mst: yes. </saying>
<saying who="rindolf">mst++</saying>
<saying who="rindolf">mst: &quot;you aren&#39;t that retarded.&quot; - you shouldn&#39;t insult my retardedness (sp?). I worked all my life to be so retarded.</saying>
<saying who="Altreus">I think you can spell made-up words like &#39;retardedness&#39; however you like</saying>
<saying who="carpftb">if you&#39;re a retard.</saying>
<saying who="Botje">heh</saying>
<saying who="Botje">working hard is the exact opposite of retardedness :]</saying>
<saying who="Altreus">hardly working</saying>

            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>Retardedness</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="sharp-perl-how-to-name-a-flickr-module">
        <meta>
            <title>How to name a new Flickr-module</title>
        </meta>
        <irc>
            <body>
<saying who="jfroebe">trying to come up with a replacement name for my Flickr::Simple2.. (it is based off of XML::Simple rather than XML::Parser::Lite::Tree) - Net::Flickr, Flickr::API, Flickr::Simple are already taken.  Any ideas?  I&#39;m coming up blank for a name</saying>
<saying who="jfroebe">It is a Perl interface to Flickr</saying>
<saying who="mofino">wait</saying>
<saying who="rindolf">jfroebe: ah, I saw your message on Chicago.pm</saying>
<saying who="rindolf">jfroebe: maybe WWW::Flickr</saying>
<saying who="mofino">you found others and decided you needed to make ANOTHER perl interface to flickr?</saying>
<saying who="jfroebe">the other ones have been broken for a long time (either because of use of the abandoned XML::Parser::Lite::Tree module or because the authentication method was never correctly implemented)</saying>
<saying who="buu">jfroebe: Please no more names involving ::Simple</saying>
<saying who="rindolf">buu: ::Tiny</saying>
<saying who="jfroebe">WWW::Flickr is a good possibility</saying>
<saying who="buu">Thanks rindolf.</saying>
<saying who="mofino">hah tiny is the new simple</saying>
<saying who="rindolf">::Minimal.</saying>
<saying who="buu">::SeriouslyfuckingSmall</saying>
<saying who="rindolf">::NotEnough</saying>
<saying who="rindolf">::GargantuanlySmall</saying>
<saying who="rindolf">::Minuscule</saying>
<saying who="apeiron">::Warning::Uses::XML::Simple::And::Thus::Has::
    Terrible::Performance::And::Memory::Usage</saying>
<saying who="Fah">::Deficient</saying>
<saying who="mofino">stay in the Flickr:: space</saying>
<saying who="rindolf">apeiron++</saying>
<saying who="mofino">if there already is one</saying>
<saying who="jfroebe">mofino.. that&#39;s the problem what to name it</saying>
<saying who="nadim">::Nano</saying>
<saying who="nadim">that should be small enough and it sounds serious</saying>
<saying who="mofino">jfroebe, something in Flickr:: ;)</saying>
<saying who="rindolf">::Femto</saying>
<saying who="jfroebe">lol - understood</saying>
<saying who="mofino">jfroebe, ::Improved ::Modern ::Lite ::Tiny ::FUCKYEAH</saying>
<saying who="rindolf">jfroebe: a Rose by any other name...</saying>
<saying who="mofino">IS A DUCK</saying>
<saying who="rindolf">I think half the posts to module-authors are about &quot;How shall I name this module?&quot;</saying>
<saying who="mofino">haha</saying>
<saying who="ik">I use perlmonks for that ^_^</saying>
<saying who="rindolf">jfroebe: I&#39;m not a fan of XML::Simple either.</saying>
<saying who="mofino">XML::Simple is teh awesome</saying>
<saying who="ik">1;</saying>
<saying who="ik">XML::Simple is teh sux</saying>
<saying who="mofino">whatever</saying>
<saying who="ik">&quot;this could be an arrayref or a hashref or a nothingref depending on how many thingies were in your doo-dad&quot;</saying>
<saying who="mofino">force it</saying>
<saying who="ik">yes</saying>
<saying who="mofino">but yeah, that is a bit annoying</saying>
<saying who="rindolf">ik++ - my thoughts exactly.</saying>
<saying who="mofino">OH SUDDEN HASHREF</saying>
<saying who="apeiron">XML::Simple is the MySQL of XML parsers.</saying>
<saying who="mofino">haha</saying>
<saying who="mofino">ahh mysql, DOOOMED</saying>
<saying who="rindolf">Haha # apeiron++</saying>
<saying who="kent\n">lol @ &gt; apeiron</saying>
<saying who="drforr">There&#39;s a reason it&#39;s called &quot;Simple.&quot; You&#39;ll find out about 3 days after you start using it.</saying>
<saying who="kent\n">would it be anything releated to being feature-incomplete</saying>
<saying who="drforr">That would be be why it&#39;s &quot;simple&quot;.</saying>
<saying who="jfroebe"> but for simple XML data (i.e. Flickr&#39;s REST API), it is more than sufficient</saying>
<saying who="kent\n">define &quot;simple&quot; XML</saying>
<saying who="kent\n">$xml = &#39;&lt;&#39; # already too complex</saying>
<saying who="jfroebe">kent - lol</saying>
<saying who="jfroebe">:)</saying>
<saying who="jfroebe">thoughts on  Flickr::YA::API ?</saying>
<saying who="jfroebe">for a name</saying>
<saying who="mofino">jfroebe, YA?</saying>
<saying who="jfroebe">yet another</saying>
<saying who="mofino">...</saying>
<saying who="mofino">just pick a name</saying>
<saying who="mofino">Flickr::API</saying>
<saying who="mofino">oh, nevermind</saying>
<saying who="jfroebe">mofino - now you see.. all the good ones are taken ;-)</saying>
<saying who="mofino">maybe you had it at Flickr::Simple2</saying>
<saying who="kent\n">Flickr::API:: something</saying>
<saying who="kent\n">or something</saying>
<saying who="mofino">kent\n, namespace already in use</saying>
<saying who="rindolf">Flickr::Two</saying>
<saying who="mofino">jfroebe, since your API is an improvement over Simple</saying>
<saying who="nadim">mst: lol</saying>
<saying who="kent\n">Flickr::API::SucksLess</saying>
<saying who="rindolf">jfroebe: you can call it Flickr::Jfroebey</saying>
<saying who="jfroebe">mofino, I think you might be right.</saying>
<saying who="kent\n">Flicker::API::FAFINAFA</saying>
<saying who="jfroebe">rindolf - lol ... my head is already big enough lol</saying>
<saying who="mofino">jfroebe, i mean, if that&#39;s what it is, it shows a clear progression from Simple</saying>
<saying who="kent\n">( Flicker::API::FAFINAFA is not a flickr api )</saying>
<saying who="nadim">Flicker::rekcilF</saying>
<saying who="rindolf">jfroebe: I have released Spork::Shlomify with some random changes to Spork that I needed.</saying>
<saying who="rindolf">Well, I use subclassing to implement them.</saying>
<saying who="jfroebe">lmao</saying>
<saying who="apeiron">You forked that spork!</saying>
<saying who="rindolf">apeiron: it&#39;s not a fork! It&#39;s an improved spork!</saying>
<saying who="rindolf">Flickr::Bettr</saying>
<saying who="kent\n">Flickr::Strobe</saying>
<saying who="kent\n">( its a bit brighter )</saying>
<saying who="kent\n">Flickr::OnAndOff</saying>
<saying who="nadim">Flickr::FullBeam</saying>
<saying who="nadim">Flickr::FullLights</saying>
<saying who="kent\n">Flickr::2009</saying>
<saying who="mofino">Flickr::Meat</saying>
<saying who="kent\n">that way somebody will be able to invent something better next year</saying>
<saying who="kent\n">and call it Flickr::2010</saying>
<saying who="mofino">Flickr::rkcilF</saying>
<saying who="mofino">Flickr::Barbie::Edition</saying>
<saying who="mofino">Flickr::Nuts</saying>
<saying who="nadim">Flickr::3b0f3a25d07e5d9dbdf98db15ee70410 (and no, it is not random)</saying>
<saying who="mofino">Flickr::911wasaninsidejob</saying>
<saying who="nadim">hehe</saying>
<saying who="mofino">haha</saying>
<saying who="jfroebe">thanks guys :)  I&#39;ve requested the Flickr::Simple2 namespace via pause</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>"A rose by any other name…" (and a little on XML::Simple)</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="sharp-perl-whatever">
        <meta>
            <title>Whatever</title>
        </meta>
        <irc>
            <body>
<saying who="Mel|work">Yaakov: icke==troll?</saying>
<saying who="rindolf">Mel|work: no, he&#39;s not a troll.</saying>
<saying who="Yaakov">Mel|work: No, icke is just... enthusiastic about &quot;channel purity&quot;</saying>
<saying who="Mel|work">k....</saying>
<me_is who="rindolf">hates when people abuse the == operator in English for &quot;contained in&quot;</me_is>
<saying who="apeiron">rindolf, &quot;icke contained in troll&quot;? That&#39;s not what Mel|work meant.</saying>
<saying who="tarbo">sure he did, if you make troll a set of users</saying>
<saying who="rindolf">apeiron: what he meant by icke == troll is that icke belongs to the set of trolls.</saying>
<saying who="rindolf">apeiron: not that every troll in the world is icke.</saying>
<saying who="apeiron">rindolf, No, he was asking if icke is a troll.</saying>
<saying who="icke">$icke-&gt;isa(&#39;Troll&#39;);</saying>
<saying who="icke">(false)</saying>
<saying who="rindolf">apeiron: is-a means &quot;contained in the set of objects with the property of&quot;</saying>
<saying who="rindolf">apeiron: mathematically speaking.</saying>
<saying who="apeiron">rindolf, Okay, so you&#39;re assigning the mathematical meaning of == to its usage in a *perl* channel?</saying>
<saying who="apeiron">rindolf, Now who&#39;s fiddling with meanings, eh?</saying>
<saying who="rindolf">apeiron: whatever.</saying>
<saying who="apeiron">&#39;whatever&#39; is what those who have lost their argument say.</saying>
<saying who="rindolf">apeiron: whatever.</saying>
<saying who="apeiron">^ QED</saying>
<saying who="rindolf">apeiron: whatever.</saying>
<saying who="PerlJam">apeiron: I thought that&#39;s what people who don&#39;t care say.</saying>
<saying who="apeiron">PerlJam, If one doesn&#39;t care, they wouldn&#39;t respond.</saying>
<saying who="PerlJam">apeiron: whatever</saying>
<saying who="PerlJam">;-)</saying>
<saying who="rindolf">LOL.</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>Whatever</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="sharp-perl-dishsort">
        <meta>
            <title>Dishsort</title>
        </meta>
        <irc>
            <body>
<saying who="rindolf">My father and I joked about sorting the dishes in the dishwasher.</saying>
<saying who="rindolf">My father said: &quot;If you won&#39;t sort the dishwasher, the dishwasher won&#39;t be sorted.&quot;</saying>
<saying who="Loci64">rindolf: bubble sort *g*</saying>
<saying who="icke">dishsort</saying>
<saying who="rindolf">Then I said &quot;No, it won&#39;t be sorted by me.&quot;</saying>
<saying who="rindolf">So he said &quot;No, it won&#39;t be sorted at all. We will throw the dishwasher.&quot;</saying>
<saying who="rindolf">&quot;Along with all the dishes.&quot;</saying>
<saying who="rindolf">Loci64: bubble sort is inefficient.</saying>
<saying who="rindolf">Loci64: you should use quicksort or mergesort.</saying>
<saying who="whoppix">or bashsort, or heapsort!</saying>
<saying who="icke">yeah, but thorough.</saying>
<saying who="rindolf">Loci64: or for small values of &quot;N&quot; - insertion sort.</saying>
<saying who="whoppix">although I can&#39;t remember if those were stable.</saying>
<saying who="rindolf">whoppix: what is bashsort?</saying>
<saying who="icke">that matters for a dishwasher</saying>
<saying who="EvanCarroll">/bin/sort</saying>
<saying who="EvanCarroll">duh</saying>
<saying who="Loci64">hehe, but dishwashers usually have medium to large numbers of N ;-) maybe trashsort solves the problem</saying>
<saying who="rindolf">EvanCarroll: perldoc -f sort is more portable.</saying>
<saying who="whoppix">rindolf, shellsort, not bashsort, sorry :)</saying>
<saying who="rindolf">But I&#39;ll need to build a robot to use it with the dishes.</saying>
<saying who="icke">cshsort</saying>
<saying who="EvanCarroll">here must be a trillion sorting algos</saying>
<saying who="EvanCarroll">and 9/10 of them are total shit</saying>
<saying who="EvanCarroll">and inferior in every way.</saying>
<saying who="EvanCarroll">This sorting algorithem is coveted if you KNOW that only one value is out of perfect order and it sits in the second to last position of the input.</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>dishsort</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="sharp-perl-good-scalar-localtime">
        <meta>
            <title>Good scalar localtime()</title>
        </meta>
        <irc>
            <body>
<saying who="rindolf">Good localtime(), #perl!</saying>
<saying who="sproingie">rindolf: good scalar localtime to you</saying>
<saying who="rindolf">sproingie: oooh! scalar context.</saying>
<saying who="sproingie">well i didn&#39;t want to make ya parse it</saying>
<saying who="rindolf">sproingie: it is implied however.</saying>
<saying who="sproingie">(er unparse it)</saying>
<saying who="rindolf">Good strftime($format, localtime()).</saying>
<saying who="rindolf">But better use DateTime.</saying>
<saying who="rindolf">Or something.</saying>
<saying who="icke">sub good ($$$) { ... }</saying>
<saying who="rindolf">icke: yes.</saying>
<saying who="rindolf">eval: good localtime(), #perl!</saying>
<saying who="buubot3">rindolf: ERROR: syntax error at (eval 21) line 1, near &quot;good localtime&quot;</saying>
<saying who="Altreus">eval: &#39;hi rindolf how is your &#39;.scalar localtime.&#39;?&#39;</saying>
<saying who="buubot3">Altreus: hi rindolf how is your Tue Mar 10 15:43:13 2009?</saying>
<saying who="rindolf">Altreus: how is my Tuesday, 10-March-2009?</saying>
<saying who="rindolf">Altreus: or do you mean down right to that exact second.</saying>
<saying who="Altreus">rindolf: I gave you as much information as I could for you to use as you see fit.</saying>
<saying who="Altreus">If you don&#39;t need it all you can just take the date</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>Good scalar localtime()</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="sharp-perl-module-build-saga">
        <meta>
            <title>The Module::Build Saga</title>
        </meta>
        <irc>
            <body>
<saying who="rindolf">The Module::Build saga goes on!</saying>
<saying who="mst">Module::Build isn&#39;t a saga, it&#39;s a fucking horror series</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>Module::Build</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="sharp-perl-eye-pea">
        <meta>
            <title>How to say IP?</title>
        </meta>
        <irc>
            <body>
<saying who="Altreus">Hmm I should have checked the licence on Inline::Lua</saying>
<saying who="dwu">orochi_: licence it and people will steal it anyway :)</saying>
<saying who="Yaakov">Well, you can try to steal that, but it would be like a mouse stealing a battle tank.</saying>
<saying who="dwu">Altreus: you mean acronym?</saying>
<saying who="Altreus">Perl license</saying>
<saying who="Altreus">dwu: n</saying>
<saying who="Altreus">IP is not pronounced as a word so it is not an acronym.</saying>
<saying who="Altreus">At least not in the original meaning of the word: which is the only meaning given by a majority of dictionaries</saying>
<saying who="Yaakov">Yes, it&#39;s not a true acronym, though the word now has that baggage.</saying>
<saying who="orochi_">Ip Ip Ip!</saying>
<saying who="Altreus">ni!</saying>
<me_is who="orochi_">runs away</me_is>
<saying who="dwu">Altreus: i say ip... :)</saying>
<saying who="Yaakov">IP would be an abbreviation.</saying>
<saying who="dwu">also, initials? but isms are cool.</saying>
<saying who="rindolf">I see Eye.Pea.</saying>
<saying who="dwu">oooh yes.</saying>
<saying who="dwu">and dead people?</saying>
<me_is who="rindolf">is listening to Sesame Street - Yip Yip Martians</me_is>
<saying who="Altreus">dwu: Intent is involved; just because you say it as a word does not mean it was meant to be said as a word ;)</saying>
<saying who="Altreus">wikipedia knows about it, and has like a million sauces cited</saying>
<saying who="Altreus">mostly dictionaries</saying>
<saying who="Yaakov">YAPC is an acronymic moniker!  BE THERE</saying>
<saying who="dwu">Altreus: well absolutement :) also, yumy, i like bernaise.</saying>
<saying who="rindolf">I say* Eye.Pea.</saying>
<saying who="dwu">hrrrm, the oxford cream dictionary. *nomnomnom*</saying>
<saying who="dwu">rindolf: awww.</saying>
<saying who="ne2k__"> Eye.Pea.Freely</saying>
<saying who="rindolf">dwu: heh</saying>
<saying who="ne2k__">no-one says &quot;ip&quot;, everyone says &quot;Eye Pea&quot;</saying>
<saying who="Altreus">Ip address</saying>
<saying who="dwu">rindolf: can you just -say- dead people, for the heck of it?</saying>
<saying who="rindolf">Yip address</saying>
<saying who="dwu">ne2k__: provably false. i need an ip address, stat!</saying>
<saying who="Altreus">yiff address?</saying>
<saying who="rindolf">dwu: I say dead people.</saying>
<saying who="dwu">&lt;3 rindolf</saying>
<saying who="rindolf">dwu: I say.</saying>
<saying who="dwu">you do :)</saying>
<saying who="Altreus">I say I say I say</saying>
<saying who="rindolf">dwu: :-)</saying>
<saying who="ne2k__">dwu: you can&#39;t stat an ip address, only a file</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>How to say IP?</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="sharp-perl-coll-yourself-a-programmer">
        <meta>
            <title>And you coll yourself a programmer</title>
        </meta>
        <irc>
            <body>
<saying who="rindolf">Su-Shee: it&#39;s VBA, not VB.</saying>
<saying who="rindolf">Su-Shee: completely different beast.</saying>
<saying who="rindolf">Su-Shee: and much saner.</saying>
<saying who="rindolf">Su-Shee: I don&#39;t know VB.</saying>
<saying who="rindolf">Never had the need.</saying>
<saying who="c0bra">_Fauchi95_: alright</saying>
<saying who="fuzzix">rindolf: And you coll yourself a programmer...</saying>
<saying who="rindolf">And hopefully will never have the need.</saying>
<saying who="rindolf">fuzzix: call</saying>
<saying who="fuzzix">rindolf: Good coll. Dvorak&#39;s tough after spending the day on qwerty :)</saying>
<saying who="rindolf">fuzzix: coll again?</saying>
<saying who="rindolf">Hmm... there is such a word called &quot;coll&quot;.</saying>
<saying who="fuzzix">rindolf: That one was a joke :)</saying>
<saying who="c0bra">why stop now? he&#39;s on a roll</saying>
<saying who="rindolf">Wonder what it means.</saying>
<saying who="rindolf">fuzzix: ah.</saying>
<saying who="simcop2387">c0bra: a rick roll?</saying>
<saying who="rindolf">rall</saying>
<saying who="c0bra">a coll roll</saying>
<saying who="rindolf">roll the ball.</saying>
<saying who="rindolf">rall the boll.</saying>
<saying who="rindolf">And go to the Super-bowl.</saying>
<saying who="c0bra">Coll\, v. t. [OF. coler, fr. L. collum neck.] To embrace.</saying>
<saying who="rindolf">&quot;Rolling is hard. Let&#39;s go to the mall.&quot;</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>You coll yourself a programmer</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="sharp-sharp-perl-chuck-norris-as-a-refactorer">
        <meta>
            <title>Chuck Norris as a Refactorer</title>
        </meta>
        <irc>
            <body>
<saying who="Su-Shee">2010 is planned more or less as a refactoring year.</saying>
<saying who="DrForr_">A whole *year*? What physical plane of existence do you reside on?</saying>
<saying who="Su-Shee">DrForr_: there&#39;s also bugs to fix and systems to care for and things like that. it&#39;s not that we&#39;re locked into the closet and a year later a new, shiny product is released. ;)</saying>
<saying who="DrForr_">Closet optional.</saying>
<saying who="Su-Shee">I&#39;m not a wonderwoman refactoring half a million lines of perl in a week, sorry. :)</saying>
<saying who="rindolf">Su-Shee: Chuck Norris refactors 10 millions lines of perl before lunch.</saying>
<saying who="Su-Shee">rindolf: hm. that&#39;s the reason.. I&#39;m not as hairy as chuck norris and I don&#39;t have a beard...</saying>
<saying who="rindolf">Su-Shee: ah.</saying>
<saying who="rindolf">Su-Shee: Chuck Norris also wrote a complete Perl 6 implementation.</saying>
<saying who="Su-Shee">rindolf: I heard, he already wrote Perl 7.</saying>
<saying who="rindolf">Su-Shee: yes.</saying>
<me_is who="rindolf">wants to be as awesome as Chuck when he grows up.</me_is>
<saying who="Su-Shee">rindolf: I envy you. I&#39;ll never be as awesome without a beard.</saying>
<saying who="rindolf">Su-Shee: heh.</saying>
<saying who="rindolf">Su-Shee: it doesn&#39;t matter if you&#39;re rigid on the outside as long as you&#39;re rigid on the inside.</saying>
<saying who="Su-Shee">chuck norris doesn&#39;t make mistakes.</saying>
<saying who="rindolf">Su-Shee: Chuck Norris corrects God.</saying>
<saying who="Su-Shee">rindolf: I&#39;ll apply as his secretary.</saying>
<saying who="rindolf">Su-Shee: as Chuck&#39;s?</saying>
<saying who="Su-Shee">rindolf: yes.</saying>
<saying who="rindolf">Su-Shee: OK.</saying>
<saying who="rindolf">Chuck Norris doesn&#39;t code. When he sits next to a computer, it just does whatever he wants.</saying>
<saying who="Su-Shee">I&#39;ll tell my boss tomorrow. Chuck is who he wants.</saying>
<saying who="rindolf">Su-Shee: Chuck Norris is his own boss.</saying>
<saying who="rindolf">Su-Shee: if you hire him, he&#39;ll tell your boss what to do.</saying>
<saying who="Su-Shee">good point.</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>Becoming as awesome as Chuck Norris is</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="sharp-perl-the-voices-tell-me-so">
        <meta>
            <title>The Voices Tell Me So.</title>
        </meta>
        <irc>
            <body>
<saying who="integral">hi perly!</saying>
<saying who="perlygatekeeper">hey Chris, hey integral</saying>
<saying who="perlygatekeeper">dabreegster, don&#39;t know you do I but HEY anyway</saying>
<saying who="perlygatekeeper">what&#39;s been up?</saying>
<saying who="dabreegster">Ignore me, fine.</saying>
<me_is who="dabreegster">goes in a corner</me_is>
<saying who="Chris62vw">dabreegster is the man, man</saying>
<saying who="dabreegster">Ah, that&#39;s better.</saying>
<saying who="rindolf">perlygatekeeper: yo, yo, yo, dude!</saying>
<saying who="perlygatekeeper">rindolf!!</saying>
<saying who="rindolf">perlygatekeeper: what&#39;s up?</saying>
<saying who="perlygatekeeper">hmmm</saying>
<saying who="perlygatekeeper">not much</saying>
<saying who="perlygatekeeper">you?</saying>
<saying who="rindolf">perlygatekeeper: fine. Let me recall what I said to ezra.</saying>
<saying who="rindolf">perlygatekeeper: I&#39;m fine. Got into a few flamewars, and escaped alive to tell the tale.</saying>
<saying who="rindolf">perlygatekeeper: worked a bit on my story &quot;The Human Hacking Field Guide&quot;.</saying>
<saying who="rindolf">perlygatekeeper: (which, BTW, you appear there (as your IRC nick at least)</saying>
<saying who="rindolf">perlygatekeeper: and now working on the Computer Graphics section of my homepage.</saying>
<saying who="perlygatekeeper">rindolf, what the hell?</saying>
<saying who="rindolf">perlygatekeeper: excuse me?</saying>
<saying who="perlygatekeeper">rindolf was that someone pretending to be me?</saying>
<saying who="perlygatekeeper">I never said those things</saying>
<saying who="rindolf">perlygatekeeper: it&#39;s a fictitious story.</saying>
<saying who="rindolf">perlygatekeeper: relax.</saying>
<saying who="dabreegster">perlygatekeeper: or you could be the imposter right now... or maybe just schizophrenic.</saying>
<saying who="rindolf">dabreegster: MPDed not schizophrenic.</saying>
<saying who="rindolf">dabreegster: schizophrenia is not Multi-Persona-Disordered.</saying>
<saying who="b0at">perlygatekeeper: It&#39;s fan fiction from your fan!</saying>
<saying who="dabreegster">rindolf: what&#39;s the difference?</saying>
<saying who="rindolf">dabreegster: MPD is when there are several personalities living inside your brain.</saying>
<saying who="rindolf">dabreegster: in schizophrenia, you have one I-ness, but hear voices, hallucinate and stuff.</saying>
<saying who="dabreegster">rindolf: Ah. Why is it considered a disorder? MPD could be quite useful... One would have different perspectives on a subject.</saying>
<saying who="perlygatekeeper">where&#39;s beth, she&#39;ll know it&#39;s me</saying>
<saying who="integral">But how will we know it&#39;s beth?!</saying>
<saying who="dabreegster">rindolf: Oh, I have MPD then, not schizophrenia. I don&#39;t hallucinate.</saying>
<saying who="dabreegster">integral: WE DON&#39;T!</saying>
<saying who="b0at">I don&#39;t hallucinate, but my other personality does.</saying>
<saying who="dabreegster">How do I know all of you exist? Am I just a figment of my own imagination?</saying>
<saying who="dabreegster">b0at: Interesting...</saying>
<saying who="rindolf">dabreegster: Julian Jaynes describes schizophrenia very well in his &quot;The Origins of Consciousness during the Breakdown of the Bicameral Mind book&quot;.</saying>
<saying who="integral">nono, you&#39;re all just figments of _lilo_&#39;s imagination</saying>
<saying who="dabreegster">rindolf: I&#39;ll check it out</saying>
<saying who="b0at">he wishes</saying>
<saying who="dabreegster">integral: and you?</saying>
<saying who="perlygatekeeper">the voices tell me if it&#39;s really beth or not</saying>
<saying who="dabreegster">perlygatekeeper: The voices tell me everything.</saying>
<saying who="dabreegster">Wait, I do have the Voices. Maybe I have MPD _and_ schizophrenia.</saying>
<saying who="b0at">Ah, but the question is: do the Voices have voices?</saying>
<saying who="rindolf">dabreegster: http://en.wikipedia.org/wiki/The_Origin_of_Consciousness_in_the_Breakdown_of_the_Bicameral_Mind</saying>
<saying who="b0at">And if so, is it your own voice?</saying>
<saying who="dabreegster">b0at: And do the voices of the voices have voices?</saying>
<saying who="b0at">That&#39;s just going too far.</saying>
<saying who="dkr">don&#39;t worry, those are angels, invest in tarot cards and you will be able to understand them</saying>
<saying who="dabreegster">b0at: and if it&#39;s not, then could it be the voice of........ integral? rindolf? or.... buu!</saying>
<saying who="b0at">buu has other plans for our empty skulls</saying>
<saying who="dabreegster">b0at: and if they do, then what do the voices of the voices of the voices of the Voices sound like?</saying>
<saying who="integral">*sob* it&#39;s the cabbages.   The cabbages keep telling me to do things</saying>
<saying who="Botje">really? most of the time it&#39;s the socks that tell me stuff</saying>
<saying who="dabreegster">integral: The lawn gnomes tell me. They&#39;re........everywhere...*sniffle*</saying>
<saying who="integral">*blubber* the socks are worse, there&#39;s moths living in them</saying>
<saying who="dabreegster">The lawn gnomes tell me to stay away from Life. They force me to write poetry.</saying>
<saying who="dabreegster">integral: *whispering* are the _moths_ the Voices? or the voices of the Voices? or the voices of the voices of the Voices?</saying>
<me_is who="dabreegster">goes back to reading</me_is>
<saying who="integral">*looks furtively around for moths*</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>The voices told me so.</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="sharp-perl-hacking-into-a-hacker">
        <meta>
            <title>Hacking someone into a hacker</title>
        </meta>
        <irc>
            <body>
<saying who="rindolf">Su-Shee: I&#39;m not good in detecting sarcasm over IRC.</saying>
<saying who="rindolf">But naturally sometimes say sarcastic things myself.</saying>
<me_is who="Patterner">cuts his Nerd Membership Card in small pieces</me_is>
<saying who="Su-Shee">rindolf: that&#39;s why god gave us the ;) smiley ;)</saying>
<saying who="rindolf">Su-Shee: not God, but a Russian enterpreneur who trademarked it.</saying>
<me_is who="rindolf">wishes we were all speaking in XML.</me_is>
<saying who="rindolf">J/K.</saying>
<saying who="rindolf">Even Perl is not good enough for human communication.</saying>
<saying who="Su-Shee">rindolf: are you really still that nerdy in your age?</saying>
<saying who="rindolf">Su-Shee: I guess.</saying>
<saying who="rindolf">Su-Shee: nerdy or geeky?</saying>
<saying who="rindolf">Su-Shee: I.e: technologically inclined or having no social life?</saying>
<me_is who="rindolf">is both though.</me_is>
<saying who="Su-Shee">rindolf: so let&#39;s called it nerky. ;)</saying>
<saying who="rindolf">But hopefully once I get a gf, I&#39;ll be less of a Nerd.</saying>
<saying who="Su-Shee">rindolf: what makes you think that?</saying>
<saying who="rindolf">Su-Shee: I&#39;ll go out.</saying>
<saying who="rindolf">Su-Shee: and stuff.</saying>
<saying who="rindolf">Su-Shee: I also consider to start studying in Tel Aviv Uni.</saying>
<saying who="Su-Shee">rindolf: and why does that require a girl friend?</saying>
<saying who="rindolf">English/Hebrew/etc. or something.</saying>
<saying who="rindolf">Lots of girls there. :-)</saying>
<saying who="rindolf">Su-Shee: going out?</saying>
<saying who="Su-Shee">those are language-skills humanities-department girls. ;)</saying>
<saying who="Su-Shee">rindolf: yes.</saying>
<saying who="rindolf">Su-Shee: I like language geeks.</saying>
<saying who="rindolf">Thing is I think my knowledge of English and Hebrew is too superficial.</saying>
<saying who="rindolf">And I lack the discipline to correct it on my own.</saying>
<saying who="Su-Shee">rindolf: language departments like English are usually exactly _not_ geek-ish departments.</saying>
<saying who="rindolf">Su-Shee: you mean they are not tech-savvy?</saying>
<saying who="rindolf">But you can be an English geek.</saying>
<saying who="Su-Shee">rindolf: they&#39;re not even language geeks usually.</saying>
<saying who="rindolf">Or a hacker of English.</saying>
<saying who="rindolf">Su-Shee: really?</saying>
<saying who="rindolf">How sad.</saying>
<saying who="Su-Shee">rindolf: you know some people just want to have good language skills and read books and communicate.</saying>
<saying who="peterrooney">a good hacker will know at least three languages.</saying>
<saying who="rindolf">Well, maybe it&#39;s different in Israel.</saying>
<saying who="rindolf">peterrooney: human ones, right?</saying>
<saying who="peterrooney">rindolf: at least one of them should be human</saying>
<saying who="rindolf">I know English, Hebrew, studied Literary Arabic for 6 years and forgot most of it, and have some rudimentary French.</saying>
<saying who="rindolf">peterrooney: ok.</saying>
<saying who="rindolf">peterrooney: I think ever hacker should know Perl, Python, Haskell, C, Scheme/Lisp and Bash.</saying>
<saying who="rindolf">And HTML/XHTML+CSS+etc.</saying>
<saying who="Su-Shee">thank god I&#39;m no hacker. ;)</saying>
<me_is who="rindolf">hacks Su-Shee into a hacker.</me_is>
<saying who="Su-Shee">rindolf: no you won&#39;t. one can perfectly well do nice tech stuff without degrading into someone he/she&#39;s not.</saying>
<saying who="rindolf">Su-Shee: don&#39;t you like programming ? Didn&#39;t you contribute to FOSS?</saying>
<saying who="Su-Shee">rindolf: aaand? I can do that without declaring myself as hacker, nerd, geek or whatever.</saying>
<saying who="rindolf">Su-Shee: OK.</saying>
<saying who="rindolf">Su-Shee: but it still makes you a hacker.</saying>
<saying who="Su-Shee">rindolf: trust me, I&#39;m very much not a hacker. really. honest to god not.</saying>
<me_is who="rindolf">gives a blue badge of honour saying &quot;Hacker&quot; to Su-Shee </me_is>
<saying who="rindolf">Su-Shee: too late, you&#39;re one of us now! ;-)</saying>
<saying who="rindolf">&quot;Resistance is futile.&quot;</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>Hacking someone into a hacker</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="sharp-perl-costly-perl-documentation">
        <meta>
            <title>Selling Perl Documentation at Bargain Prices</title>
        </meta>
        <irc>
            <body>
<saying who="FreakGuard">icke, how to start REPL?</saying>
<saying who="icke">FreakGuard: looked in the docs?</saying>
<saying who="FreakGuard">icke, no.</saying>
<saying who="icke">you got to load it from CPAN</saying>
<saying who="FreakGuard">icke, yeah, I&#39;ve installed it.</saying>
<me_is who="Altreus">sells FreakGuard perl docs at a reasonable price only $9.99 each</me_is>
<saying who="icke">perldoc Devel::REPL is the direct way to info then</saying>
<me_is who="Altreus">wrings his hands and cackles</me_is>
<saying who="FreakGuard">icke, thanks :P</saying>
<me_is who="rindolf">bests Altreus&#39; bargain by 1 cent. </me_is>
<saying who="rindolf">Reminds me of what I learned in Game Theory.</saying>
<me_is who="Altreus">offers free delivery</me_is>
<me_is who="rindolf">allows free download</me_is>
<saying who="rindolf">Of course quality &gt; price.</saying>
<me_is who="rindolf">offers a deluxe edition of the Perl documentation for 1,000 USD plus shipping and handling.</me_is>
<saying who="huf">diamond-encrusted?</saying>
<saying who="rindolf">See http://perldoc.perl.org/ for a preview.</saying>
<saying who="rindolf">huf: natural diamonds, too.</saying>
<saying who="rindolf">huf: Canadian diamonds.</saying>
<saying who="huf">well, if &lt;&gt; is natural... :)</saying>
<saying who="rindolf">huf: heh.</saying>
<saying who="rindolf">huf: not this kind of diamond.</saying>
<me_is who="Altreus">compresses if () under several million tonnes of rock for a few aeons</me_is>
<saying who="rindolf">I also give free spaceships - &lt;=&gt;</saying>
<saying who="infrared">heh</saying>
<saying who="rindolf">Diamonds are heresy! We need PEARLs!</saying>
<saying who="rindolf">/usr/bin/PEARL</saying>
<saying who="Altreus">f00li5h: Seems like it!</saying>
<saying who="FreakGuard">I prefer other gems :-)</saying>
<saying who="Altreus">I suggested to Think Geek that they should do Perl necklaces but they didn&#39;t</saying>
<saying who="rindolf">FreakGuard: Ruby gems?</saying>
<saying who="FreakGuard">rindolf, correct.</saying>
<saying who="Altreus">The rare PHP</saying>
<saying who="Altreus">Darling I got you a PHP wedding ring</saying>
<saying who="Altreus">oh it broke</saying>
<saying who="rindolf">Altreus: as PHP tends to.</saying>
<me_is who="rindolf">laughts maniacally.</me_is>
<saying who="Altreus">you maniac!</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>Given enough suckers, all profits become shallow</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="sharp-perl-apeiron-phone">
        <meta>
            <title>The ApeironPhone</title>
        </meta>
        <irc>
            <body>
<saying who="Enl">apeiron: because I write client side (Provider) which sends push messages to the phone and checks for new mail in perl</saying>
<saying who="rindolf">Enl: a cellphone?</saying>
<saying who="apeiron">No, a rotary POTS phone that&#39;s capable of receiving email, rindolf.</saying>
<saying who="Enl">rindolf: iphone, yep</saying>
<saying who="rindolf">apeiron: :-) apeiron++</saying>
<saying who="rindolf">apeiron: I want a phone like that!</saying>
<saying who="rindolf">apeiron: do you sell them?</saying>
<saying who="apeiron">rindolf, Yes, and I have some oceanfront property for you, too.</saying>
<saying who="rindolf">apeiron: would you accept some of my copious gold bars in return?</saying>
<saying who="apeiron">rindolf, No. I only deal in Latinum!</saying>
<saying who="rindolf">apeiron: Latinum.</saying>
<saying who="rindolf">apeiron: gold-pressed Latinum?</saying>
<saying who="apeiron">yes.</saying>
<saying who="rindolf">apeiron: I only have silver-pressed Latinum.</saying>
<saying who="Enl">rindolf: get an iPhone, lol</saying>
<saying who="rindolf">apeiron: would you accept LeoNerd and nanonyme as substitutes ? You can sell them for mucho Latinum.</saying>
<saying who="apeiron">heh</saying>
<saying who="rindolf">Enl: iPhones are worthless.</saying>
<me_is who="rindolf">conspires to steal the ApeironPhones.</me_is>
<saying who="rindolf">I didn&#39;t say I was honest.</saying>
<me_is who="apeiron">jealously guards his G1</me_is>
<saying who="Enl">rindolf: now really</saying>
<saying who="rindolf">Enl: you should get an ApeironPhone too.</saying>
<saying who="rindolf">Enl: chicks love it.</saying>
<saying who="apeiron">what</saying>
<saying who="Enl">rindolf: pff, chicks dont matter</saying>
<saying who="rindolf">I would kill for an ApeironPhone!</saying>
<saying who="Su-Shee">ahaem?</saying>
<me_is who="rindolf">kills Su-Shee and takes her ApeironPhone.</me_is>
<saying who="apeiron">...</saying>
<saying who="apeiron">wtf.</saying>
<saying who="go|dfish">hahaha</saying>
<me_is who="rindolf">uses his RindolfMindReading™ to see who else has an ApeironPhone.</me_is>
<saying who="apeiron">Put down the acid, Shlomi. o.o</saying>
<saying who="huf">like that&#39;ll help</saying>
<saying who="huf">he&#39;s still got ~8 hrs on it</saying>
<saying who="Su-Shee">rindolf: I have an apeiron-phone?</saying>
<saying who="Su-Shee">where did buu go anyway?</saying>
<saying who="rindolf">Su-Shee: you had one.</saying>
<saying who="rindolf">Su-Shee: before you died.</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>The ApeironPhone - you know you want it</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="sharp-perl-use-Zaba">
        <meta>
            <title>use Zaba</title>
        </meta>
        <irc>
            <body>
<saying who="rindolf">Su-Shee: &quot;I always wonder why the people I hang out with are so pedantic. And then I remember: because they are so pedantic.&quot; -- a Perl-ILer. ;-)</saying>
<saying who="Zaba">rindolf, because they use warnings</saying>
<me_is who="rindolf">adds &quot;use Zaba;&quot; to his code.</me_is>
<saying who="Zaba">oh no, I&#39;m being used!</saying>
<me_is who="rindolf">adds &quot;abuse Zaba;&quot; to his code.</me_is>
<saying who="rindolf">Next: &quot;misuse Zaba;&quot;</saying>
<saying who="Zaba">ouch!</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>use Zaba</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="she-can-smoke">
        <meta>
            <title>She can smoke…</title>
        </meta>
        <irc>
            <body>
                <saying who="rindolf">She's a hot chick.</saying>
                <saying who="rindolf">But she smokes.</saying>
                <saying who="go|dfish">She can smoke as long as
                    she's smokin'.</saying>
            </body>
            <info>
                <channel>#perlcafe</channel>
                <network>Freenode</network>
                <tagline>She can smoke…</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="i-can-haz-pad">
        <meta>
            <title>iCanHazPad?</title>
        </meta>
        <irc>
            <body>
<joins who="johnjohn01">has joined #perl</joins>
<saying who="johnjohn101">when will I be able to write a perl gui that will work on the ipad?</saying>
<saying who="rindolf">johnjohn101: iPad?</saying>
<saying who="rindolf">johnjohn101: was it released yet?</saying>
<saying who="rindolf">johnjohn101: I think there are Perl bindings for Cocoa/Carbon/etc.</saying>
<saying who="johnjohn101">today..  Just getting sucked by the hype</saying>
<saying who="rindolf">johnjohn101: ah.</saying>
<saying who="rindolf">johnjohn101: I&#39;m incredibly suspicious of Apple.</saying>
<saying who="johnjohn101">why&#39;s that?</saying>
<me_is who="Caelum">will wait for the cheap ipad knockoff that runs Android and can multitask</me_is>
<saying who="rindolf">johnjohn101: http://www.shlomifish.org/open-source/anti/apple/</saying>
<saying who="rindolf">133 links and going strong.</saying>
<me_is who="rindolf">thinks he has a link on his homepage or blogs for every occasion.</me_is>
<saying who="johnjohn101">they definitely know how to hype their new products. I get so suspicious of the hype. Nothing ever lives up to that type of billing</saying>
<saying who="rindolf">johnjohn101: yes, I&#39;m suspicious of hype too.</saying>
<saying who="gooshie">rindolf the new apple maxipad is out today.. leave it to apple to create a new device with all the cost of a high end laptop.. the performance of a netbook and the interface of a cellphone</saying>
<saying who="Caelum">gooshie: and no multitasking</saying>
<saying who="rindolf">gooshie: heh.</saying>
<saying who="rindolf">gooshie++</saying>
<saying who="johnjohn101">will google be able to match it?</saying>
<saying who="johnjohn101">anytime soon?</saying>
<saying who="rindolf">Some technologies were not hyped and yet became very popular - UNIX, C, HTML.</saying>
<saying who="Caelum">there&#39;s no amazingly complicated technology involved</saying>
<saying who="Caelum">it&#39;s just a big iphone</saying>
<saying who="claes_">nicely packaged</saying>
<saying who="johnjohn101">drop it once and it&#39;s unusable?</saying>
<saying who="gooshie">...if they just made a cover to protect the screen.. and then maybe because they had like a cover the inside could be the screen and the other part could then be a keyboard!.. that would be cool!</saying>
<saying who="johnjohn101">gooshie: good thing you have an open mind about the product!!</saying>
<me_is who="gooshie">d:-/</me_is>
<saying who="gooshie">..the new apple maxipad... when your laptop is too big.. your iphone is too small and your wallet is too full.</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>iCanHazPad?</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="web-devel-frameworks">
        <meta>
            <title>Web Development Frameworks</title>
        </meta>
        <irc>
            <body>
<saying who="markl_">so while i&#39;m on the subject, is there a good perl HTML framework similar to what CakePHP is to PHP ?</saying>
<saying who="markl_">like an MVC style environment</saying>
<saying who="markl_">so i&#39;m wondering if mason is &quot;state of the art&quot; or if there are other tools to consider these days :)</saying>
<saying who="DrForr">Catalyst.</saying>
<saying who="markl_">catalyst ok, cool ty</saying>
<saying who="rindolf">markl_: there are plenty of other web-devel frameworks.</saying>
<saying who="rindolf">perlbot: web frameworks</saying>
<saying who="perlbot">rindolf: CGI-Application (and Titanium), CGI-Application-Plus, CGI-Builder, CGI-Prototype, Jifty, Catalyst (and Reaction), Mojo, SweetPea, Dancer, Gantry, AxKit, WebGUI</saying>
<saying who="markl_">rindolf: hmm, way too many it would appear :)</saying>
<saying who="rindolf">markl_: yeah.</saying>
<saying who="markl_">what are the easiest ones for people good with perl but not HTML/CSS/AJAX experts ?</saying>
<saying who="rindolf">markl_: not that Ruby or PHP have fewer.</saying>
<saying who="markl_">or the most widely adopted one ?</saying>
<saying who="rindolf">markl_: the most popular appears to be Catalyst.</saying>
<saying who="markl_">catalyst seems to at least have a book :)</saying>
<saying who="rindolf">markl_: it has several books.</saying>
<saying who="rindolf">markl_: I worked a bit with Mojolicious, and it wasn&#39;t too bad, but it reinvents a lot of wheels.</saying>
<saying who="rindolf">Due to its philosophy.</saying>
<saying who="rindolf">markl_: I also did some Catalyst projects.</saying>
<saying who="rindolf">Catalyst is a bit complicated.</saying>
<saying who="rindolf">sawyer: can you comment about Dancer?</saying>
<saying who="sawyer">Dancer is a lightweight web framework, it aims to make website development easy and rapid</saying>
<saying who="Su-Shee">like all the other web frameworks :)</saying>
<saying who="sawyer">for complex or extensive websites, i recommend Catalyst</saying>
<saying who="sawyer">but for smaller or not-as-complex website, Dancer is what i use</saying>
<saying who="markl_">ok ty</saying>
<me_is who="Su-Shee">wants the one which makes it hard, complicated and difficult ;)</me_is>
<saying who="sawyer">Su-Shee, true :)</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>Web Development Frameworks</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="slippers-and-perl">
        <meta>
            <title>Slippers and Perl</title>
        </meta>
        <irc>
            <body>
<saying who="mst">frikinz: but you&#39;re welcome to ignore us, just come back for your &quot;I told you so&quot; when the penny finally drops :D</saying>
<saying who="rindolf">buu: define penny finally drops</saying>
<saying who="rindolf">buubot: define penny finally drops</saying>
<saying who="buubot">rindolf: penny n 1: a fractional monetary unit of Ireland and the United Kingdom; equal to one hundredth of a pound 2: a coin worth one-hundredth of the value of the basic unit [syn: {cent}, {centime}] [also: {pence} (pl)]</saying>
<saying who="dngor">frikinz: Reflex is still pretty raw, but it&#39;s eventy without so much loopy.</saying>
<saying who="rindolf">In Hebrew we say &quot;The phone token has fallen&quot; instead of &quot;the penny finally drops&quot;.</saying>
<saying who="dngor">Is that related to &quot;the other shoe has dropped&quot;?</saying>
<saying who="rindolf">dngor: well, it means the same thing as the English expression - &quot;I finally got to the bottom of it.&quot;</saying>
<saying who="rindolf">Or understood it.</saying>
<saying who="dngor">Oh, they&#39;re completely different idioms.</saying>
<me_is who="mst">beats dngor with a slipper</me_is>
<saying who="rindolf">mst: :-D</saying>
<saying who="Su-Shee">kinky.</saying>
<saying who="mst">Su-Shee: wrt the topic [&quot;Su-Shee wants the web-development framework that makes web-development hard, difficult and complicated&quot;], it&#39;s called Maypole :)</saying>
<saying who="rindolf">mst: heh.</saying>
<saying who="rindolf">mst: yes, I can imagine that about Maypole.</saying>
<saying who="Su-Shee">mst, avar: thank you so much. ;)</saying>
<saying who="Su-Shee">please mail the sourcecode to rindolf who put it in the topic ;)</saying>
<saying who="rindolf">Su-Shee: I can CPAN it.</saying>
<saying who="Su-Shee">the topic?</saying>
<saying who="mutewit">I have a string and am looking for a quick way to extract all 5-character slices out of it.</saying>
<saying who="rindolf">Su-Shee: :-)</saying>
<saying who="rindolf">IRC-Freenode-Perl-Topic-SuShee-WebDevelFrameworks-v0.0.1.tar.gz</saying>
<saying who="mutewit">For eg. &#39;abcdef&#39; returns &#39;abcde&#39;, &#39;bcdef&#39;</saying>
<saying who="mutewit">Any suggestions?</saying>
<saying who="rindolf">mutewit: use subst</saying>
<saying who="rindolf">mutewit: use substr</saying>
<saying who="rindolf">mutewit: with a map</saying>
<saying who="rindolf">eval: my $long_str = &quot;0123456789abcdefgh&quot;; [map { substr($long_s, $_, $_+5 } (0 .. length($long_s)-5)]</saying>
<saying who="buubot">rindolf: ERROR: syntax error at (eval 36) line 1, at EOF</saying>
<saying who="rindolf">eval: my $long_str = &quot;0123456789abcdefgh&quot;; [map { substr($long_s, $_, $_+5) } (0 .. length($long_s)-5)]</saying>
<saying who="buubot">rindolf: []</saying>
<saying who="mutewit">rindolf: Awesome.</saying>
<saying who="rindolf">eval: my $long_s = &quot;0123456789abcdefgh&quot;; [map { substr($long_s, $_, $_+5) } (0 .. length($long_s)-5)]</saying>
<saying who="buubot">rindolf: [&quot;01234&quot;,123456,2345678,&quot;3456789a&quot;,&quot;456789abc&quot;,&quot;56789abcde&quot;,&quot;6789abcdefg&quot;,&quot;789abcdefgh&quot;,&quot;89abcdefgh&quot;,&quot;9abcdefgh&quot;,&quot;abcdefgh&quot;,&quot;bcdefgh&quot;,&quot;cdefgh&quot;,&quot;defgh&quot;]</saying>
<saying who="rindolf">Thrid time the charm!</saying>
<saying who="mst">... thrid</saying>
<me_is who="rindolf">hits buubot with a big strict pragma.</me_is>
<me_is who="mst">turns the slipper on rindolf</me_is>
<saying who="rindolf">mst: yes, my typing sucks today.</saying>
<saying who="rindolf">But f**k it! IRC is not exactly the declaration of independence.</saying>
<saying who="pragma_">ow!</saying>
<saying who="rindolf">pragma_: pardon?</saying>
<me_is who="rindolf">hits pragma_ with mst&#39;s slipper so it will really hurt.</me_is>
<saying who="pragma_">why are you hitting buubot with me?</saying>
<saying who="rindolf">pragma_: the strict pragma.</saying>
<saying who="rindolf">pragma_: not you.</saying>
<saying who="rindolf">perlbot: strict</saying>
<saying who="perlbot">rindolf: Perl strictures - http://perldoc.perl.org/strict.html</saying>
<saying who="rindolf">pragma_: ^^^</saying>
<saying who="rindolf">pragma_: we call the lowercase modules pragmata (sp?) in Perl.</saying>
<saying who="rindolf">http://en.wiktionary.org/wiki/Special:Search?search=pragmata - hmm....</saying>
<saying who="rindolf">I thought pragmata was a valid plural of pragma.</saying>
<saying who="dngor">ow?  ow!</saying>
<saying who="mutewit">rindolf: Are you sure that generates only strings of length 5?</saying>
<saying who="rindolf">mutewit: well, you need to watch from fencepost errors.</saying>
<saying who="mst">mutewit: hey, he got you half way there</saying>
<saying who="rindolf">mutewit: oh wait.</saying>
<saying who="mst">mutewit: how about you read p3rl.org/substr and p3rl.org/map and have a go yourself</saying>
<saying who="rindolf">mutewit: yes  , you need substr($long_s, $_, 5)</saying>
<saying who="mst">mutewit: this is a help-you-to-learn channel</saying>
<saying who="mst">mutewit: not a &quot;write your code for you&quot; channel</saying>
<saying who="rindolf">mutewit: and beware from fencepost errors.</saying>
<saying who="rindolf">like substr($long_s , 1000, 5)</saying>
<saying who="rindolf">Because that will be &quot;&quot;</saying>
<saying who="rindolf">Or a 4 chars length.</saying>
<saying who="mutewit">rindolf: I wanted the length argument to be 5 :p</saying>
<saying who="mutewit">mst: I understand, I just missed the $_ + 5 issue.</saying>
<saying who="mst">mutewit: right. what I&#39;m saying is, you should have experimented</saying>
<saying who="rindolf">mutewit: yes, I know.</saying>
<saying who="mst">mutewit: then shown us the experiment and said &quot;I can&#39;t work out why this is still wrong, here&#39;s what I&#39;ve worked out so far&quot;</saying>
<saying who="mst">mutewit: then we can help you learn</saying>
<saying who="mst">mutewit: assuming learning to write stuff yourself is what you&#39;re aiming for</saying>
<me_is who="rindolf">waits for tybalt89 to come up with a funky regex to do it.</me_is>
<saying who="mst">(if it isn&#39;t, please just throw yourself off a cliff or something, kthx ;)</saying>
<saying who="rindolf">mst: I think that&#39;s the case, no need to preach to mutewit about it.</saying>
<saying who="mutewit">mutewit: I did, and figured out the soln. when switching windows.</saying>
<saying who="mst">mutewit: aye. I&#39;m just trying to explain how to get the most learning out of us as well as the most working code.</saying>
<me_is who="rindolf">sometimes thinks we spend much more IRC volume discussing netiquette than actually suffering from the bad netiquette.</me_is>
<saying who="mutewit">But by the time I came back to the channel there was a whole page of &quot;preaching&quot;.</saying>
<saying who="mutewit">I was using a split method with array indexing and it felt too much like a C-approach.</saying>
<saying who="rindolf">mutewit: oh, you split the string into chars?</saying>
<saying who="mst">yeah, by the time you&#39;ve done map, join, split, ...</saying>
<saying who="mst">you&#39;ve basically just reimplemented substr badly :)</saying>
<saying who="mutewit">rindolf: That&#39;s what I was doing, but the map/substr approach is a lot cleaner.</saying>
<saying who="rindolf">mutewit: yeah/</saying>
<saying who="rindolf">mutewit: split into chars sometimes has some uses.</saying>
<saying who="rindolf">mutewit: but this reminds me too much of SICP.</saying>
<saying who="rindolf">perlbot: sicp</saying>
<saying who="perlbot">rindolf: http://mitpress.mit.edu/sicp/ - &quot;Structure and Interpretation of Computer Programs&quot; - A Classical Text on Programming</saying>
<saying who="rindolf">mutewit: see - http://www.shlomifish.org/lecture/Perl/Lightning/Too-Many-Ways/slides/slide13.html</saying>
<saying who="rindolf">mutewit: this is how an SICP programmer will implement a simple text processing task.</saying>
<saying who="mutewit">SICP, love the book.</saying>
<saying who="mutewit">and all the OCaml work this year has given rise to a functional bent of mind</saying>
<saying who="mutewit">which is kinda screwing around with my perl code.</saying>
<saying who="rindolf">mutewit: yeah.</saying>
<saying who="rindolf">mutewit: http://www.shlomifish.org/lecture/Perl/Lightning/Too-Many-Ways/slides/slide12.html - this is the fastest Perl solution.</saying>
<saying who="rindolf">At least in speed.</saying>
<saying who="rindolf">It can be a little shorter with a regex lookahead, but it&#39;s less elegant and slower.</saying>
<saying who="rindolf">http://www.shlomifish.org/lecture/Perl/Lightning/Too-Many-Ways/slides/slide9.html - there you go.</saying>
<saying who="rindolf">mutewit: did you know how to program before reading SICP?</saying>
<saying who="rindolf">I think it&#39;s not a good introductory book.</saying>
<saying who="rindolf">MIT are going to ditch it in favour of some Python/Robotics curriculum.</saying>
<saying who="mst">I think it&#39;s only a good introductory book if you know some math and have the brain to follow it</saying>
<saying who="mst">it teaches a lot of hard concepts very quickly</saying>
<saying who="Su-Shee">mst: from a &quot;I&#39;m from the humanities department&quot; point of view it&#39;s managable. it&#39;s not easy, but everyone can work with it.</saying>
<saying who="tybalt89">eval: $_ = &quot;0123456789abcdefgh&quot;; [ /(?=(.{5}))/g ]</saying>
<saying who="buubot">tybalt89: [&quot;01234&quot;,12345,23456,34567,45678,56789,&quot;6789a&quot;,&quot;789ab&quot;,&quot;89abc&quot;,&quot;9abcd&quot;,&quot;abcde&quot;,&quot;bcdef&quot;,&quot;cdefg&quot;,&quot;defgh&quot;]</saying>
<saying who="mutewit">rindolf: Yes.</saying>
<saying who="rindolf">mutewit: ah. Using what?</saying>
<saying who="rindolf">tybalt89++ # Up for the challenge.</saying>
<saying who="mutewit">and yes, MIT ditched SICP in favor of a Python-based intro course.</saying>
<saying who="tybalt89">rindolf: I was off in other windows :(</saying>
<saying who="tybalt89">mutewit: ^^  for 5 char slices</saying>
<saying who="rindolf">mutewit: don&#39;t use it if you want future generations to understand it.</saying>
<me_is who="rindolf">slaps tybalt89 with mst&#39;s slipper for golfing mutewit&#39;s solution and telling him it&#39;s a good idea.</me_is>
<saying who="tybalt89">rindolf: that&#39;s not golfing, just common simple regex :)</saying>
<saying who="rindolf">tybalt89: sigh.</saying>
<saying who="rindolf">tybalt89: simple.</saying>
<saying who="rindolf">irregular regular expression.</saying>
<saying who="rindolf">Maybe use Regexp::Common</saying>
<saying who="mutewit">I added in tybalt89&#39;s code but commented it for future reference.</saying>
<saying who="mst">I&#39;d definitely use the substr approach for real code</saying>
<saying who="mst">tybalt89&#39;s code is cleverness to prove it can be done; I don&#39;t believe he was recommending it</saying>
<saying who="tybalt89">mst: sigh, yes, I am recommending it.  It&#39;s the clearest solution.</saying>
<saying who="mst">tybalt89: I respectfully disagree.</saying>
<saying who="mst">I find the substr approach far more obvious</saying>
<saying who="Chazz">rindolf, ty. :)</saying>
<saying who="mst">but then, I mostly write applications perl rather than scripts, so I only engage in regexp cleverness when actively useful</saying>
<saying who="rindolf">tybalt89: look-aheads and look-behinds are dark corners of the Perl not-so-reg-regexes</saying>
<saying who="Yaakov">In the context of this particular problem, it&#39;s pretty straightforward, but, knowledge of the development/maintenance team(s) would push my choce one way or another.</saying>
<saying who="tybalt89">mst: note it took rindolf three tries, and even then he got it wrong.</saying>
<saying who="rindolf">tybalt89: well, I&#39;m not focused now.</saying>
<saying who="mst">tybalt89: map substr($str, $_, 5), 0 .. length($str)-5; ?</saying>
<saying who="mst">maybe -6</saying>
<me_is who="tybalt89">turns the lens, trying to focus rindolf </me_is>
<saying who="rindolf">mst: -5</saying>
<saying who="mst">but it&#39;s hardly difficult; rindolf&#39;s just having a day of silly mistakes</saying>
<saying who="rindolf">Unit tests!</saying>
<saying who="mst">I&#39;d expect him to get it right first time when on form too :)</saying>
<saying who="rindolf">Some clear code is hard to get right.</saying>
<saying who="rindolf">Doesn&#39;t make it less clear.</saying>
<saying who="mst">yeah</saying>
<saying who="rindolf">Most people will not write a correct binary search at first try.</saying>
<saying who="tybalt89">&quot;maybe -6&quot; is proof of unclearness :)</saying>
<saying who="rindolf">But the correct binary search is easy to digest.</saying>
<saying who="mst">tybalt89: no, it&#39;s proof it&#39;s 8pm on a sunday and I&#39;m not particularly awake either</saying>
<saying who="mst">but your code just made me go &quot;hang on, WHAT?!&quot;</saying>
<saying who="mst">then I had to stop and dissect it</saying>
<saying who="mst">-then- I saw what you were doing</saying>
<saying who="rindolf">mst++</saying>
<saying who="mst">also, the substr approach displays the semantics and the reasoning</saying>
<saying who="mst">whereas the regex approach displays, well, line noise, frankly</saying>
<saying who="rindolf">mst: why don&#39;t we agree to disagree with tybalt89 ?</saying>
<saying who="rindolf">mst: so how&#39;s the weather? ;-)</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>Slippers and Perl</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="worst-perl-programmer-in-the-world">
        <meta>
            <title>Worst Perl Programmer in the World</title>
        </meta>
        <irc>
            <body>
<saying who="papertigers">is there just a way of importing the global variables in the module from the main script?</saying>
<saying who="anno">no</saying>
<saying who="nadim">yes</saying>
<saying who="rindolf">anno: you can using Exporter</saying>
<saying who="anno">depends</saying>
<saying who="nadim">but I hope no one will teach you</saying>
<saying who="rindolf">nadim: sorry. :-(</saying>
<saying who="anno">from the main script?</saying>
<saying who="nadim">for what?</saying>
<saying who="rindolf">nadim: about the Exporter.</saying>
<saying who="nadim">bad boy!</saying>
<saying who="tm604">papertigers: yes. but definitely don&#39;t do this: { no strict &#39;refs&#39;; *{&quot;main::$_&quot;} = sub () { $constant{$_} } foreach keys %constant; }</saying>
<saying who="rindolf">nadim: :-(</saying>
<saying who="rindolf">papertigers: please design a good API using subroutines and objects.</saying>
<saying who="nadim">OK I get it you are all working towards the same goal. making the worst perl developer in the universe</saying>
<saying who="rindolf">nadim: yes, someone has to outcompete me.</saying>
<saying who="Khisanth">that would be hard</saying>
<saying who="rindolf">nadim: I&#39;m tired of being the worst Perl hacker for 5 years straight.</saying>
<saying who="simcop2387">heh</saying>
<saying who="rindolf">nadim: it&#39;s not easy.</saying>
<saying who="nadim">.me hands the black camel to rindolf</saying>
<saying who="rindolf">nadim: it involves many commitments.</saying>
<saying who="nadim">rindolf: lol, true</saying>
<saying who="Khisanth">but at least it explains all the advice you have been giving</saying>
<saying who="nadim">hehe</saying>
<saying who="rindolf">Khisanth: true. :-)</saying>
<saying who="rindolf">LOL.</saying>
<saying who="simcop2387">rindolf: i dunno if anyone actually read the code to Language::Farnsworth they might think otherwise</saying>
<saying who="Khisanth">and I am not joking</saying>
<saying who="nadim">http://search.cpan.org/dist/Lingua-tlhInganHol-yIghun/ all!</saying>
<saying who="nadim">rindolf: when you can program perl like that it will be a good day to die</saying>
<saying who="rindolf">nadim: Klingon?</saying>
<saying who="nadim">right</saying>
<saying who="simcop2387">nadim++</saying>
<saying who="rindolf">nadim: heh, nice.</saying>
<saying who="squeeks">klingon? http://search.cpan.org/~jwalt/Acme-Lingua-NIGERIAN-1.0.0/NIGERIAN.pm blah.</saying>
<saying who="shorten">squeeks&#39;s url is at http://xrl.us/bhg9bo</saying>
<saying who="rindolf">nadim: I&#39;ll recommend it to someone so he can outcompete me.</saying>
<me_is who="rindolf">rubs his hands with an evil grin on his face.</me_is>
<saying who="Khisanth">nadim: that doesn&#39;t seem to be using the correct font</saying>
<saying who="nadim">the module is impressing (Damian is no joke) even the documentation is great</saying>
<saying who="rindolf">nadim: we&#39;ve got a plan!</saying>
<me_is who="nadim">hides</me_is>
<me_is who="mst">dearly loves Damian&#39;s code</me_is>
<saying who="mst">but I really do wish it was all in the Acme:: namespace where it belongs</saying>
<saying who="rindolf">mst: heh.</saying>
<saying who="nadim">I like his API&#39;s. very difficult to find something that is not complete and well thought</saying>
<saying who="rindolf">nadim: yes, but he tends to neglect them and then they accumulate bugs.</saying>
<saying who="nadim">I could list ten other names here</saying>
<saying who="nadim">Ingy!</saying>
<saying who="rindolf">nadim: heh.</saying>
<saying who="nadim">oops, I tried not to :)</saying>
<saying who="mst">nadim: IO::All</saying>
<saying who="mst">nadim: not *everything* ingy writes needs to be Acme</saying>
<saying who="mst">though, yes, quite a bit of it :D</saying>
<saying who="nadim">mst: I didn&#39;t mean acme. I think Ingy has a lot of great ideas.</saying>
<saying who="mst">oh, you&#39;re talking about maintainership</saying>
<saying who="nadim">yes</saying>
<saying who="mst">yeah, why do you think I got so good at giving my modules away?</saying>
<saying who="nadim">what&#39;s your secret?</saying>
<saying who="tm604">ingy was responsible for jemplate, I think - still one of my favourites.</saying>
<saying who="mst">nadim: first you give &#39;em commit bits, then you give &#39;em co-maint, then when they&#39;re not looking you make a run for it.</saying>
<me_is who="nadim">makes a mental note</me_is>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>World's Worst Perl Programmer (5 years straight)</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="one-moose-per-child">
        <meta>
            <title>One Moose Per Child</title>
        </meta>
        <irc>
            <body>
<saying who="rindolf">My Moose-based modules emit strange errors when ran under Devel::Cover . /me is a sad kitten.</saying>
<saying who="buu">When my moose emit things I begin to worry.</saying>
<saying who="Su-Shee">I don&#39;t even have a moose.</saying>
<saying who="Su-Shee">but I go to Ikea sometimes!</saying>
<saying who="rindolf">&quot;I want a Moose!&quot;</saying>
<me_is who="rindolf">buys a Moose for Su-Shee </me_is>
<saying who="rindolf">One Moose Per Child.</saying>
<saying who="buu">A moose in every.. editor?</saying>
<saying who="Su-Shee">I&#39;ll have to put it in the living room.</saying>
<saying who="rindolf">If we perldoc -f fork a Moose-based program do we get two Meese.</saying>
<saying who="rindolf">Su-Shee: what if it&#39;s a Chocolate Moose?</saying>
<saying who="Su-Shee">now it&#39;s not the elephant in the room noone&#39;s talking about, it&#39;s the moose.</saying>
<saying who="Su-Shee">rindolf: real size? living room.</saying>
<saying who="anno">Tycho de Brahe had a moose free running in his castle Unraniborg. he found a vat of beer, drank it, fell down a stair and had to be killed.</saying>
<saying who="Su-Shee">hm, I could make a nice shower gel with moose milk powder and sell it exclusively to perl programmers.</saying>
<saying who="rindolf">anno: the astronomer?</saying>
<saying who="anno">yes</saying>
<saying who="rindolf">anno: ah, really?</saying>
<saying who="Su-Shee">anno: I don&#39;t have a castle.</saying>
<saying who="anno">few do</saying>
<saying who="Su-Shee">indeed.</saying>
<saying who="Su-Shee">wise anno.</saying>
<saying who="rindolf">One Castle Per Child!</saying>
<saying who="Su-Shee">when I do my moose presentation, I&#39;ll rename myself to Moo-Shee.</saying>
<saying who="rindolf">Su-Shee: and rent a Castle.</saying>
<saying who="Su-Shee">good idea. on company&#39;s expenses. ;)</saying>
<saying who="rindolf">Su-Shee: heh.</saying>
<saying who="Su-Shee">anno: wanna come? I own Schloss Charlottenburg now. ;)</saying>
<saying who="rindolf">http://en.wikipedia.org/wiki/Charlottenburg_Palace - hmmm....</saying>
<me_is who="rindolf">contemplates what to do now.</me_is>
<me_is who="Su-Shee">RESTs.</me_is>
<saying who="rindolf">Maybe I&#39;ll watch more of Red vs. Blue.</saying>
<saying who="rindolf">Or I&#39;ll rent Schloss Charlottenburg .</saying>
<saying who="rindolf">Or something.</saying>
<saying who="rindolf">I may want to refactor the other parts of XML-Grammar-Fiction/Screenplay. I can live without testcover.</saying>
<saying who="rindolf">But I need my Moose.</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>One Moose Per Child</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="do-we-have-any-doctors">
        <meta>
            <title>Do we have any doctors?</title>
        </meta>
        <irc>
            <body>
<saying who="dxtr">Do we have any doctors in here?</saying>
<saying who="rindolf">dxtr: with Ph.D. or M.D.?</saying>
<saying who="munik">I have a PhD in Linguistics!</saying>
<saying who="munik">^ lie</saying>
<saying who="munik">:]</saying>
<saying who="dxtr">rindolf: I don&#39;t care as long as they can treat patients</saying>
<saying who="rindolf">dxtr: heh.</saying>
<saying who="munik">:o</saying>
<saying who="munik">webmd.com</saying>
<saying who="munik">might be better than #perl</saying>
<saying who="dxtr">rindolf: That question would be fun in combat. &quot;WE NEED A DOCTOR HERE!&quot; - &quot;PH.D OR M.D!?&quot;</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>Do we have any doctors in here?</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="it-is-slower">
        <meta>
            <title>It's slower</title>
        </meta>
        <irc>
            <body>
<saying who="tm604">eval: my $txt = &quot;this is a test&quot;; my $rslt = substr($txt, 4, length($txt) - 4, undef); [ $txt, $rslt ];</saying>
<saying who="buubot">tm604: [&quot;this&quot;,&quot; is a test&quot;]</saying>
<saying who="tm604">^ can anyone suggest a neater way of writing that? thought undef for the 3rd substr parameter would work instead of explicitly giving a length.</saying>
<saying who="rindolf">eval: my $txt = &quot;this is a test&quot;; my $rslt = substr($txt, 4, - 4, q{}); [ $txt, $rslt ];</saying>
<saying who="buubot">rindolf: [&quot;thistest&quot;,&quot; is a &quot;]</saying>
<saying who="tm604">Just surprised that omitting the length for substr isn&#39;t the same as passing undef.</saying>
<saying who="anno">tm604: sometimes perl makes a difference between &quot;not specified&quot; and undef</saying>
<saying who="ishi">tm604: wouldn&#39;t regexpr be shorted?  I&#39;m not sure what passes as &#39;neat&#39; in perl :)</saying>
<saying who="ishi">shorter, even...</saying>
<saying who="rindolf">eval: @s = (&quot;Long string this is a test&quot; =~ m{\A(.{0,6})(.*?)\z}ms); [@s]</saying>
<saying who="buubot">rindolf: [&quot;Long s&quot;,&quot;tring this is a test&quot;]</saying>
<saying who="rindolf">tm604: will that work?</saying>
<saying who="tm604">rindolf: thanks, that may be a better option.</saying>
<saying who="rindolf">tm604: nice. :-)</saying>
<saying who="Khisanth">that would definitely not be &quot;better&quot; ...</saying>
<saying who="ishi">it&#39;s slower ;)</saying>
<saying who="tm604">hmm, since I&#39;m passing this through SOAP::Lite through a vpn on the other side of the world maybe three times a day, I think I&#39;ll have to rewrite this part in highly-efficient x64 assembler with fallback to GPU if available.</saying>
<saying who="sacx">nah you need an FPGA</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>Mission critical fast</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="surviving-without-a-s">
        <meta>
            <title>Surviving without "a"'s</title>
        </meta>
        <irc>
            <body>
<saying who="anno">may be neat, but hard to follow</saying>
<saying who="anno">not fore real code</saying>
<saying who="Botje">qubit: cute.</saying>
<saying who="Botje">*anno</saying>
<saying who="Su-Shee">how did you get.. ah. ;)</saying>
<saying who="Su-Shee">Botje: clean your a so you don&#39;t slide to the q ;)</saying>
<saying who="Botje">Su-Shee: switch from qwerty to azerty :p</saying>
<saying who="Su-Shee">:)</saying>
<saying who="Botje">ant i&#39;m distracted</saying>
<me_is who="Su-Shee">steals Botje&#39;s a while he&#39;s distracted anyway...</me_is>
<saying who="Botje">give th.t b.ck!!</saying>
<saying who="Su-Shee">lAlAlAlaaaaah! :)</saying>
<saying who="Botje">how will i cope without .n . key!</saying>
<saying who="DrForr">&quot;h&quot;.chr(ord(&#39;b&#39;)-1).&quot;t&quot;...</saying>
<saying who="anno">4in&#39;t th4t good enough</saying>
<saying who="Su-Shee">*hehe* ;)</saying>
<saying who="Su-Shee">take anno&#39;s. ;)</saying>
<saying who="mst">time for 4n 4cme module!</saying>
<saying who="Su-Shee">god what have I done.. ;)</saying>
<saying who="DrForr">lipogrammatical perl.</saying>
<saying who="Su-Shee">is that the opposite of lowfat c?</saying>
<saying who="DrForr">(lipograms are works with one letter not used...)</saying>
<saying who="Su-Shee">ah. of course. it&#39;s leipogramm in german..</saying>
<saying who="anno">hmm... lipos - fat, lipein - lack</saying>
<saying who="anno">ah, leipein</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>Surviving without the letter "a".</tagline>
            </info>
        </irc>
    </fortune>
    <fortune id="what-would-your-nickname-imply">
        <meta>
            <title>What would your nickname imply</title>
        </meta>
        <irc>
            <body>
<saying who="fedoragirl">wait, people use binary packages in freebsd?</saying>
<saying who="asarch">fedoragirl, pkg_add -rv &lt;package_name&gt;</saying>
<saying who="fedoragirl">I thought everyone compiled from source manually or from ports</saying>
<saying who="fedoragirl">:(</saying>
<saying who="asarch">No, not any more</saying>
<saying who="fedoragirl">I knew it was possible</saying>
<saying who="fedoragirl">I just didn&#39;t realize anyone would actually do that</saying>
<saying who="fedoragirl">I thought it was a gimmick</saying>
<saying who="EdwardIII">those wacky devil worshipers over at freebsd</saying>
<saying who="fedoragirl">it&#39;s funny because my roomate is into demonology</saying>
<saying who="fedoragirl">and she actually uses fedora</saying>
<saying who="fedoragirl">while I, for the most part, use freebsd or debian</saying>
<saying who="EdwardIII">yet your nickname would imply otherwise</saying>
<saying who="fedoragirl">my nickname implies a lot of things</saying>
<saying who="EdwardIII">bsdgirl would just attract far too much attention</saying>
<saying who="Su-Shee">EdwardIII: thanking you for pointing out the obvious. I think, noone would have noticed otherwise.</saying>
<saying who="EdwardIII">come to mention it maybe i&#39;ll take that nickname arf arf</saying>
<saying who="fedoragirl">bsdgirl is actually taken</saying>
<saying who="fedoragirl">and I really should find a new one</saying>
<saying who="MorgyN">hats &lt;3</saying>
<saying who="rindolf">-NickServ- debiangirl is not registered.</saying>
<saying who="Su-Shee">man, lucky for us women, there more distributions out there than women in computing. we can ALL have our own nick!</saying>
<saying who="mst">Su-Shee++ # roflmao</saying>
<saying who="rindolf">Su-Shee: heh.</saying>
<saying who="Su-Shee">yggdrasilgirl, slackgirl, fromscratchgirl .. imagine the possibilities.</saying>
<saying who="EdwardIII">slackboy sounds pretty sexy</saying>
            </body>
            <info>
                <channel>#perl</channel>
                <network>Freenode</network>
                <tagline>What would your nickname imply</tagline>
            </info>
        </irc>
    </fortune>
</list>
</collection>
