Happy Monkday!!
You’ve been here 1 thrilling year.

Is it really a whole year since I joined the Monastery? I’m so glad I did, and so very grateful to all the monks whose enthusiasm and dedication make PerlMonks the special place it is.

So this seems like a good opportunity to post a rather long poem I wrote to meet the challenge of finding rhymes for all the monastic levels, from Initiate to Pope.

Enjoy! :-)

Cheers,

Better version than under Re: Need Help in processing a file

use strict; # just kidding
my%hat;my@cat=split/ /,<DATA>;
while(@cat){
  my($cat=>$hat)=splice@cat,0,2;
  $hat{$cat}=$hat>$hat{$cat}?$hat:$hat{$cat};
}
print join" ",%hat; # and that was that
__DATA__
a.txt 4 b.txt 3 z.txt 1 a.txt 5 b.txt 2 b.txt 4 z.txt 2 
[download]

The Road goes ever on and on
Down from the door where it began.
Now far ahead the Road has gone,
And I must follow, if I can,
Pursuing it with eager feet,
Until it joins some larger way
Where many paths and errands meet.
And whither then? I cannot say.

     ---Bilbo Baggins
[download]

use EagerFeat;
use constant{
    OnAndOn =>1,
    TRUE    =>1,
};

while ($Road == OnAndOn){
    if ($can){
        $follow = TRUE;
    }
    elsif (join(':', $Road,$larger_way)){
        meet($errands, $paths);
        last;
    }
}

$wither_then? cannot():say();
[download]

Long time using
big, slow, strongly-typed Java,
subject to impenetrable containers -
too many bloated layers of software
slapped too quickly
around Open Source
by multinational companies
run by too many layers of management,
highly paid executives
who listen to the day traders that own the stock today,
and fire the coders who understand the product,
for a more profitable quarter now and pain later,
coders who bitterly give up software careers 
to teach Math or sell flutes.  Really.

Perl was always my scripting language of choice.

Finally...again...those who know answers
are encouraged to share them,
and lastingly enjoy the results of their labors,
and not try to forget.

What a difference.
[download]

Boss man doesn't code.
Likes to read over shoulders.
Can't read Perl...  Too dumb.

"Perl is ugly, rough,
unreadable!"  Quoth Boss man:
"Do it in Logo."

Did it in Logo.
Problem not solved, but now Boss
finally groks code.
[download]

Where are the poets?
No wisdom is here today
New Year hangover

seek and join our flock and connect
accept and return our values        [1]
read study and listen
use our time when given or          [2]
open our crypt and grep             [3]
return when time exists and write
log exp for each
and continue
[download]

[1]: PerlMonks FAQ
[2]: Seekers of Perl Wisdom
[3]: Super Search

code right and code tight
and don't let the bit bugs byte
use warnings, use strict
[download]

Changes, first to last
Classic golf trick same as tac
Need paragraph mode

does your code run slow?
finding your time dilated?
galactic frame drag
[download]