Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Blue Perl

by Joe_ (Beadle)
on Apr 02, 2012 at 22:40 UTC ( #963133=poem: print w/ replies, xml ) Need Help??

I'm new to the whole Perl poetry thing here, so bear with me. I'm a big fan of 'Black Perl', so here is 'Blue Perl':

package in; split my $_=fork, pop and wait; for my $passion (@to_terminate) { map {my $body} ($through and $through); shift @me,'oh'..'so close to you!'; } listen 'closer',$_ foreach $breath; kill $me,'with that little death'; "What's the meaning of this rhyme"? 'You will come to learn in' : time; if (our $little_code) {'is_run'}; 'Then the two'. $will_be.'as', 1;
EDIT: Some changes made according to suggestions from tobyink. Also, couldn't resist adding "package" to that! :)

Comment on Blue Perl
Download Code
Re: Blue Perl
by tobyink (Abbot) on Apr 03, 2012 at 07:41 UTC

    This doesn't work for me:

    listen 'closer' foreach $breath;

    I get "Not enough arguments for listen".

    The following runs without error on 5.10.1. I've added $_ as an argument to listen (0 could work too) and used a few more barewords here and there. Also, added or after the listen line as it seems to improve the rhythm.

    split my $_=fork, pop and wait; for my $passion (@to_terminate) { map {my $body} ($through and $through); shift @me, oh .. so . close to . 'you!' } listen closer, $_ foreach @breath or kill $me, 'with that little death'; "What's the meaning of this rhyme"? 'You will come to learn in' : time; if ($this_little) { $code . is_run }; Then . the . two . $will_be . as , 1;

    I'm surprised you didn't work join into there. You could make the last lines:

    if (this_little . code . is_run ) { join the . two , of . us , as } 1

    Or even:

    if ( our $little_code = run ) { join the . two , of . us , as } 1
    perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
Re: Blue Perl
by Anonymous Monk on Apr 03, 2012 at 11:01 UTC

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://963133]
Approved by planetscape
Front-paged by planetscape
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (10)
As of 2014-09-02 11:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (22 votes), past polls