Recently, in an attempt at a little levity and taking the opportunity to express a 'real idea' in perl, I posted a joke about my boss in Where is the boss?

I really wrestled with where to put this for a day or so and sought the guidance of a more experienced monk before doing so.

I thought...'was thinking of perl' to do this...so checking the FAQ and checking the opinion of others, I posted in Meditations

However, after a private /msg with diotalevi, I came to realize that my original consideration to post in Poetry might have been appropriate as well.

Seems my attempt at humor really had no clear place....so, I wonder if it might be appropriate to consider a "joke" or "humor" section as an addition to this site?

Replies are listed 'Best First'.
Re: Perl Jokes
by zentara (Cardinal) on Apr 10, 2003 at 12:23 UTC
    Heh,heh, give this script to your boss. (Although your coworkers may enjoy it more) 
    #!/usr/bin/perl -w
use strict;
use Tk;
use Tk::JPEG;
use LWP::Simple;

my $URL = 'http://zentara.net/headsup.jpg';
my $localfile = $URL;
$localfile =~ s![/:~]!!g;

my $rc = mirror( $URL, $localfile );

my $mw  = MainWindow->new();
my $file = $localfile;
my $image = $mw->Photo(-file => $file);
$mw->Label(-image => $image)->pack(-expand => 1, -fill => 'both');
$mw->Button(-text => 'Caught ya', -command => [destroy => $mw])->pack;
MainLoop;

    [download]
[reply]
[d/l]
      heh...that's pretty funny

[reply]
Re: Perl Jokes
by Juerd (Abbot) on Apr 10, 2003 at 06:37 UTC
[reply]
Re: Perl Jokes
by mojotoad (Monsignor) on Apr 10, 2003 at 07:05 UTC
    Ah, interesting follow up. I found the original post to be rather humorous, and worthy of a mediation. Then I noted some stylistic flourishes such as the "local" declarations (and with chagrin noted that they had to be explained) and thought to myself interesting...this seems to straddle meditation and poetry...

    Flip a coin, bro.

    Matt

[reply]
Re: Perl Jokes
by vek (Prior) on Apr 10, 2003 at 07:28 UTC
[reply]
Re: Perl Jokes
by cLive ;-) (Prior) on Apr 10, 2003 at 21:28 UTC 
    my $dog;
$dog !~ /nose/ and $mells = how_does_dog_smell(?);

sub how_does_dog_smell {
  return 'awful';
}

    [download]
    boom boom

    cLive ;-)

[reply]
[d/l]
      OMG! I have created a monster with this thread ;-)

      that is great!...thanks

[reply]
Re: Perl Jokes
by fdillon (Novice) on Apr 10, 2005 at 19:29 UTC
    Some of the monks at the Perl monastery observe a vow of silence. In other words, they are Carmelite Perl monks. Once every ten years, however, each Carmelite Perl monk is allowed the indulgence of speaking two words. After ten years, one monk, Brother Edvard, came before his superior, Brother Thelonious, and the others present at this juncture, and said, "Food cold." He then left quietly. Ten more years passed as the Brother Edvard struggled to keep his vows. He became more somber. Again he was summoned as prescribed, to his superior, now an Abbot. When prompted, he said, "Bed hard," then left his audience in silence. Another decade went by, and the monk's mood darkened further. He finally arrived at the Archabbot's office, and said, decisively, "I quit!" The other monks, monsignors, curates, priests, and acolytes present looked up in surprise. Not the Archabbot, however, who said, "I'm not surprised. You've done nothing but complain since you got here!"
[reply]

Back to Perl Monks Discussion