Workday

This is my first poem, which I hd to write down with haste, so have mercy.:-)

So long
C-Keen - the bored one

P.S.:Suggestions are welcome, of course.

Update:Corrected a serious bug in the code (as serious as poetry can be) thanx to theorbtwo for pointing it out!

use brains::fantasy; # with no boundaries

goto work;

work: open(WORKTODO,"sigh");

while (<WORKTODO>){
  forget_work();
  fantasy->dream(ofHer) unless $time==$EndOfDay;

}

close WORKTODO;

goto home;

home: hug_all();
[download]

Comment on Workday Download Code

Replies are listed 'Best First'.
Re: Workday by theorbtwo (Prior) on Oct 02, 2001 at 04:00 UTC
I like, I like a lot. I should try my hand at some perl poetry sometime myself. I'd ++ this, but I'm out of votes for today Just a couple suggestions I have for you How about `use Brains::Fantasy qw(-boundaries);`, or `use Brains::Fantasy;<br> no Boundries;`? Sigh is the filename of WORKTODO? How about `open(WORKTODO, "tedium") and &sigh;` <strikeout>Will you please return my third point to me if you find it?</strikeout> Ahh, yes, that was it: Your perl has a bug: `unless time()==$EndOfDay`. Double-equals vs single-equals will mess you up every time... sometimes, I think pascal (`:=`) had the right thing. (Then I snap out of it and relize how much extra typing that is, and how much I hated it when forced to use it.) James Mastros, Just Another Perl Initate	[reply] [d/l] [select]
Re: Re: Workday by C-Keen (Monk) on Oct 02, 2001 at 10:06 UTC
Thank you for your suggestions! I corrected the bug, but I decided to leave the poem the way it is, since it is my first try and it has the right to have some flaws. But of coourse your suggestions will influence all my other poems I am to create! Thank you, C-Keen	[reply]