PM XP is just a game,
I know, but yet, and just the same,
The points and levels as they might,
Add extra fun to PM's site.
With each and every node a score,
Begs to some to come for more,
It sends a message loud and clear,
Please come back, we love you here.
But if you hang around for long
You'll hear another PM song,
That you should just ignore XP
And let those silly numbers be.
The points are simply for the node,
Regardless of what you have been told,
It's not a pat or user slight,
It's based upon a node's own might.
Who can argue with what's right?
I'd like to say i've seen the light.
But still deep down the voices say
How many points you have today!
Am i wrong to say i care?
Or any time i look what's there?
Or where i rank inside the Book,
Not that i'll admit i look.
Perhaps a game, though on the side,
With content being the main stride,
As long as you act in that way,
It's okay if you like to play.
|
#!/usr/bin/perl
# Kurt Schwind: A little of KC's Sunshine
use strict;
use warnings;
my @l = qw(
a
aah
best
booty
can
chance
come
dance
do
don't
down
duty
everybody
feeling
feelings
fight
floor
get
give
home
I
in
it
let's
momma
now
Oh
on
run
shake
sister
tell
the
to
very
well
with
world
yeah
you
You
your
You're
yourself);
sub line {
my $j = shift;
while(defined $j ) {
print $l[$j]." ";
$j = shift;
}
print "\n";
}
sub refrain {
for(1..6) {
print $l[29]." ";
}
print "\n";
line (29,41,3);
line (29,41,3);
for(1..6) {
print $l[29]." ";
}
print "\n";
line (29,41,3);
line (29,41,3);
print "\n";
};
sub groove {
for(1..5) {
print $l[29]." ";
}
line (41,3);
};
line (1,12,17,27,32,16,23,7);
line (9,15,41,14,18,43,0,5);
print "\n";
refrain();
line (1,39,4,39,4,8,22,34,35);
line (42,32,2,21,32,37,20,4,31);
print "\n";
line(26);
refrain();
line (26,38);
line (29,29,29,29);
line (1,29,29,29,29);
print "\n";
line(1);
refrain();
line(1);
groove();
line(1,9,15,32,13);
groove();
line(1,18,43,0,5);
print "\n";
groove();
line(42,4,8,22,8,22);
groove();
line(6,19,36,24,25);
groove();
print "\n";
groove();
line(1,28,10,33,30);
line(29,29,29,29,27,41,3);
line(1,8,41,11);
line(29,29,29,29);
--
I used to drive a Heisenbergmobile, but every time I looked at the speedometer, I got lost.
|
print "Content-type: text/html\n\n";
my @into_the_stream = qw( 1 2 3 );
my $stepsound = "..step";
print "You step into the stream ..";
foreach my $step (@into_the_stream) {
print "<H".$step.">".$stepsound."</H".$step.">";
if($step == 3) {
sleep 1;
print "<br>But the water has moved on";
sleep 1;
print "<br>Sorry, this page is not here";
}
}
|
A new year is here, but where?
The four to five is live, do i care?
A few will renew, but time is due,
The stuff is old enough, let's review.
The end of December i remember, a glowing ember.
Scoff at days off?! Been waiting since November!
Our mood ensued, and delicious food,
Even the restive were festive, no more feuds.
But i fear it's clear, the new year,
A slow start in part, but we're here.
Politics back on track, poised to attack
The anointed pointed, picked up the slack.
The new is bold, but old and cold,
Again and then, or so i'm told.
The end had a trend, people would bend,
It didn't stay, but the day, i await my new friends.
Update:
its->it's
annointed->anointed
|
It’s Christmas! Ring the Monastery bell,
As we with joy recall that first Noël
When shepherds, watching through the lonely night,
Were over-awed by heaven’s glorious light.
With cheer, we’ll greet our brother monks, and sisters,
And amnesty extend to Pythonistas,
And other erring souls; foreach, today,
We wish bright blessings in a long @array.
And tho’ at times, alas!, we make a %hash
Of our Monastic Rule, with insults rash
And words unkind: today we start anew
And map our way with kinder goals in view.
A maid needs help with syntax? We’ll not fail ’er.
A hill of bugs is in our way? We’ll $scalar.
Tho’ all the year in Perl we script — and well, —
Today it’s “Per”, in honour of Noël.
© 2014
Merry Christmas!
|
A Perl beard is not usually well formatted.
It just grows from lack of care
late working hours give dirty collars
n modest clothes are best to wear
When you feel the bugs are scary,
weird enough to pull your hair
take a break , you big Perl guy
sleep on it and come back fair.
Perls got debug, n mods that Capture
every bit n trace out there
rest assured, there aint no language
that's got so much built-in flair
|
Upvotes and Downvotes, arent they just frills
lacking all context; reputation's sigils
if you while working, come across pain
turn to the perlmonks, there's so much to gain
some might be dandy, some might be plain
some might just tease you , to check once again
all in good sport then, we newbies must take
the acts of good valor, the dear monks display
|
There was this client from Notre Dame
who asked to code up something lame
I looked at him with weary eyes
and asked him if that's all he’ll buy
He said its just for fun n games
his actual work didn’t need ITs pain
But yet he feels the web’s a rule
n every business needs this tool
I quickly sketched what came to mind
He liked it and said ill pay u fine
I put my zeal into the work
lest later on he changed the perk
But sad that day he said to me
Ron that project..lets wait n see
i glibly said ok thats fine
and tried to simply pass the time
I prayed to God oh please help me
This delay does not work with me
Please work on him to change his mind
Give me the solace of cash n kind
Few days passed and client replied
Hey Ron the TV crews are nigh
i need that simple site of mine
so might as well get a page out fine
I clapped my hands in earnest glee
and wrote markup with a JS reel
and as the project drew to a close
i mused in silence and repose
But still the bucks took time to brew
while i did the logo, perl and hue
and since the cheque was post dated true
i sat and cried a big boo hoo.
|