$I=%wonder=("What"=> "is", "it"=> "all?");
$I.'thought I had it'."I really did";
'Turns out I';sub Knew{
"Sub Knew, hah, is that even a term?, I'm coining it";
for ($constantly = (each %wonder)){'is greater than the last';
$shifting == $constantly;
$always=($shifting == $shifting);
$constantly;}
"It's";$Never = ($always==True); 'Yet'; $Never=False;
#It can't be, things go...
"to"; return $Never;
'just how it is';}
#Why!?
if ($I==Knew("I'd tell you"))
{
 while ($I='Could'){'...Would you listen?';}
}
[download]

when life conspires against you,
and no longer floats your boat
don't waste your time with complaining
just get on your back and float
[download]

Roman Numerals
are they unicode aware?
only the gods know
[download]

1. In the beginning, Larry said, "Let there be Perl", and there was Perl.
2. And many programmers flocked to Perl saying, "Let us do this and that in Perl".
3. And the programmers wrote sloppy code, and hacked code, and dirty code, and nice code, and all types of code.
4. And there became more than one way to do it.

But as the winter freeze sets in on my camp, I have found an ever-blooming flower, which can be generated with a single line of Perl code. screenshot 1 screenshot 2

#!/usr/bin/perl
use PDL;
use PDL::Graphics::TriD;

# hit 'q' to exit

imag3d [sqrt(rvals(zeroes(50,50))/2)], {Lines=>0};
[download]

/regular/expression/ism;
[download]

Two thousand 'leven
A counter ticks. Dawn breaks on
Two thousand and twelve.

I wrote some Perl to say hello,
To a world i did not know.
Prepended line numbers there in tow,
I basically told it where to go.

 10 ? 'Hello World!\n';
[download]

Something there did not quite load,
No matter how i tried to goad,
Quickly then i shifted mode,
And thought i'd see to add the code.

 use cout;
 print << 'Hello World!\n';
[download]

But that just didn't work at all,
Did i forget to make a call?
Imagining i was Larry Wall,
I coded the sequel to carry the ball.

 query::statement->execute('SELECT "Hello World!\n"');
[download]

What's there to object in that line?
On paper it had worked just fine,
Perl is broken...or is that just mine?
No, add a line, and never whine!

 procedure perl is begin(print 'Hello World!\n')
[download]

Something there was still not right,
But, waste not time and be contrite.
I must put up and win this fight,
Make a web of code to end my plight.

 <?perl <print>'Hello World!\n'</print>; ?> 
[download]

Just when i thought my code was suited,
I found that i was just deluded,
But where had the offending line intruded?
Oh! Just assemble a line to be included.

 use LC0.ascii /Hello, world!/;
 movl $LC0, (%esp);
[download]

Why is it that Perl is so frustrating?
I give perfect code, yet it's not abating,
And people love what i start hating?
I need help, if just for tranlsating.

 print *, "Hello World!",
       e\nd
[download]

Then again, thrown to the ground,
But i know that my good code is sound!
Perhaps the web has help to be found,
And answer: why does perl monkey around?

I added a node, asking the question,
I posted my code, and made sure to mention,
How perfect it was, (at least in inflection).
I just hope that Poetry is the correct section.

   our happiness is
   like the weather blowing in
   the wind in our sail

[download]