The Weekend

[SmokeyB]

#!usr/bin/perl

PARTYTIME:
{
    local @barGirl = qw/uglyugly ugly ugly ugly ugly ugly ugly hot/;
    my $beerLevel = 0;
    
    DRINKBEER:
    if ($barGirl[$beerLevel] eq 'ugly') {
        $beerLevel++;
        next DRINKBEER;
    }
    else {
        sleep $withBarGirl;
        last DRINKBEER;
    }
    
    $nextDay = 'TRUE';
    $beerLevel = 0;
    
    if ($nextDay eq 'TRUE' and $barGirl[$beerLevel]) ne 'hot') {
        die;
    }
}

if ($weekend eq 'over') {
    last PARTYTIME;
}
else {
    next PARTYTIME;
}

[daeve]

simonm is correct about the subject matter of your poetry, but there are a few minor problems with compiling and running your code also.

You have an extra ")" in the line:

if ($nextDay eq 'TRUE' and $barGirl[$beerLevel]) ne 'hot') {

after $beerLevel])
Removing it allows the code to compile but then it gives an error:

Label not found for "next DRINKBEER" at party.pl line 11.

It looks to me that DRINKBEER: should have another set of "{}" in it like below:

DRINKBEER:
{
    if ($barGirl[$beerLevel] eq 'ugly') {
        $beerLevel++;
        next DRINKBEER;
    }
    else {
        sleep $withBarGirl;
        last DRINKBEER;
    }
}

With those changes it runs and dies gracefully.

HTH
Daeve

[ajdelore]

Hubris. -- to the both of you. I do not think that it is appropriate to judge the lifestyles of other monks, and to downvote a perfectly good poem. Your prudery is your own, and not to be harshly applied to others.

Why are you so pedantic about his code anyways? It's not like the program is meant to do anything other than be read... It's a poem!!

If pharisees like you had your druthers, the world would be a lot worse off. Lighten up a little bit, and give consideration to the fact that other people who don't share your values have every right to express them artistically without being censured.

</ajdelore>

[daeve]

/me thinks ajdelore is a bit hasty.

First - I didn't downvote. Didn't ++ either.

As for the code. I replied as I would any other time I find a problem with code that hasn't already been commented on/corrected. I always try and run the code in Perl Poetry. It's a poem on multiple levels when it runs! It's fun to see if they work, try to fix them if they don't, and to then try and figure out how they work. I've learned a lot from the poems here.

You have no idea what my values are. Nuff said.

Daeve

[sauoq]

Lowbrow, jejune, and insipid? Maybe. *shrug* Who am I to judge? Blame it on TV... :-)

-sauoq
"My two cents aren't worth a dime.";

[Anonymous Monk]

Who am I to judge? Blame it on TV... :-)

Blame an entire medium based on it's current state of mostly untapped potential (which only reflects the current state of most western societies) rather than criticize a Perl poem of questionable nature that does not compile? Seems a bit ironic, doesn't it? Oops, too thought-provoking...

SAN DIMAS HIGH SCHOOL FOOTBALL RULES!

[sauoq]

Blame an entire medium based on it's current state of mostly untapped potential

By saying "blame it on TV" I wasn't saying "blame broadcasting." I was referring to the content. The content on TV (I'm talking about the U.S. because that's where I live) is the lowest of the low-brow art.

than criticize a Perl poem of questionable nature that does not compile?

You can only effectively criticize something within the context of what it attempts to be. This little ditty wasn't trying to be anything profound, so I can hardly fault it for not being profound. It wasn't trying to be beautiful, so I can hardly blame it for not being beautiful. It had almost no aspirations whatsoever, and in that context, its banality was successful. The fact that it didn't compile, whether an accident or a purposeful touch, was pure genius. ;-)

And what is "questionable nature" anyhow? Let me ask a better question. What has a nature that isn't questionable?

Seems a bit ironic, doesn't it? Oops, too thought-provoking...

Frankly, I found the OP's poem was much more thought provoking than your anonymous musings.

-sauoq
"My two cents aren't worth a dime.";

[webfiend]

Respectful or not, functional code or not, you've neglected error-handling. What if $barGirl isn't interested in you? There's also the fact that you will apparently (try to) sleep with her before a single drink, since you're checking to see if she is "ugly". In fact, she is "uglyugly", so no beer for you and you start trying to sleep with her immediately!

    local @barGirl = qw/uglyugly ugly ugly ugly ugly ugly ugly hot/;

Still, it made me chuckle a little bit. "E" for "effort". :-)

[SmokeyB]

Hey everyone!!

Thanks for all your comments, they've been a great read!

First starters, I never did intend for the code to run. Not for any reason but to be a simple poem.

You're all also right, it was never meant to be beautiful or profound. I was just stating what goes on at every bar every weekend in at least North American, but most places over the world as well! So I don't understand how this is inappropriate subject matter.

For fun, here are some good old beers through the ages:

1. More than 4,000 years ago in Babylon, it was an accepted practice that the bride's father would supply his new son-in-law with all the mead he could drink for a month after the wedding. This mead is in fact a honey beer and since the Babylonian calendar was lunar based, this period was referred to as the "honey month" or what we know today as the"honeymoon".

2. After consuming a bucket or two of vibrant brew they called aul, or ale, the Vikings would head fearlessly into battle often without armour or even shirts. In fact, the term "berserk" means "bare shirt" in Norse, and eventually took on the meaning of their wild battles.

3. It was customary in the 13th century to baptize children with beer.

4. What we now call "light beer" was known as "small beer" in the Middle Ages, and the historical footnotes aver it was the drink of the lower classes.

5. Many years ago in England, pub frequenters had a whistle baked into the rim or handle of their ceramic cups. When they needed a refill, they used the whistle to get some service resulting in today's phrase, "Wet your whistle."

6. In the early 17th century, 2 gallons of beer a day was part of the rations allocated to each youngster in the Children's Hospital of Norwich England. Beer was considered food.

7. The saying 'Mind your P's and Q's' comes from the time when alcoholic beverages were served/sold in Pints and Quarts. Thus, to mind your P's and Q's meant to be careful how much you drank.

Cheers!

[zentara]

Why do you all associate monks with christian sexual repression? At least he didn't write about seducing the choir boys.