http://qs1969.pair.com?node_id=227201

It doesn't do anything, but it will compile and execute. And in traditionall haiku style, it is indeed about a season.

Perl In Fall

$Leaves = 60; $Leaves-- until $Leaves eq '0';

Perl Monks do it more than one way.

Replies are listed 'Best First'.
Re: Perl in Fall
by BronzeWing (Monk) on Jan 15, 2003 at 19:33 UTC

    At pfaut's suggestion, here's one that prints out "Just another perl hacker."

    $me = "Just a"; print "other perl hacker.\n" if print $me and print "n";

    Hmm, the problem with making code haiku is that people pronounce symbols different ways... imagine trying to write a haiku in perl if you pronounced each "dollar sign".


    Perl Monks do it more than one way.

      Somewhere during my young and innocent BASIC days, annoyed at the lengthy (even more so in German) "dollar sign", I picked up the habit of pronouncing $ as "string". I have never been able to shake it since. :)

      Makeshifts last the longest.

        same here, aristotle. :)

        sometimes i even find myself pronouncing it in UNC shares: \\server\share$ ("share string")

        I have not developed via habit a wonderful shortcut for dollar sign (or just dollar). I think if I'm going to give it the verbal chop, I'll try training myself to use Buck. You know, buck as in dollar. If I can knock it to one syllable, I'll get more ! for my speaking $.
        =)

        -=rev=-
Re: Perl in Fall
by krisahoch (Deacon) on Jan 16, 2003 at 18:38 UTC
    Leaves equals sixty
    Leaves decrement until
    Leaves equal zero
    
    Update: The last line had six syllables (equal to). That is what I was pointing out. The <AnalAlert>equality comparison operator (==) </AnalAlert> has always been pronounced 'equal to' by me and those that I have encounted. Mr. Muskrat told me that I should remove it, so I first went to <Anal Alert> a dictionary</AnalAlert> and looked it up. After reading the definition, I found that I can now say either 'equal' or 'equal to' when speaking of the <AnalAlert>equality comparison operator (==) </AnalAlert>

    Kristofer Hoch
    Si vos can lego is, vos es super erudio

      Hi,
      I see that as I expected my poem has a different number of syllables than it did in my head. :p I'm afraid it comes from not having any other perl coders to talk (out loud) to. For reference, here's how I pronounced the symbols while I was writing it:

      Leaves equals sixty.
      Leaves-minus-minus, until
      Leaves equals zero.

      -BronzeWing