How sad it is to see, the he that is not me, become the thing that he has long decried.
The annuated bore, crying for what went before; those lost days of his rose tinted youth.
So blind he cannot see, his own bigotry; his intolerance of those with whom he disagrees.
He thinks he is the man; he thinks he has a plan, to suppress the source of his jealousy.
Although he tries to hide, whilst he is being snide, to protect his once held reputation.
It doesn't take ESP, to see that it is he, despite his lukewarm refutation.
With his naughties: "Hate MS" meme; and linux everywhere dream; he doesn't realise, what he has become.
Despite his tender age, he's really turned the page; now both a dinosaur, and utterly dumb.
Long ago, with Fortran 77
using old unglamorous computer
I cut my programming teeth
totally unpretentious
but nicely real and free
In discovering Perl long after
I soared high, far and glad,
with scalars, arrays and hashes,
PDL and CPAN gave me fantasy
and serious wings to fly
I then left home
don't know exactly why
flirting with other languages,
only to come back, older and tired
to my and yours faithful Perl
In coming back to this realm
among penguins and camels
I finally find the peace and light
among you wise and gentle monks
in this one, that I can truly call
my natural and only home
I tried using javascript, with Greasemonkey installed,
For "editing scripts", it's normally called,
With testing and googling, i was enthralled,
Then a Perl Monks Discussion, to show what i scrawled.
But, .chatfrom_<some digits>, when i took a peek,
I mistakenly thought, was to keep it unique,
Corionexplained, ambrus's critique,
It's the monk's node id, and not that oblique.
You work and you learn, even when it's for naught,
And look on with pride, when you see what you wrought,
Though the answer is different than i previously thought,
I'm happy i did it, i reached what i sought.
--
Update: 4th stanza, 1st line, changed "all is" to "it's".
#!/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);
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";
}
}