Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Perl Poetry

( #1590=superdoc: print w/replies, xml ) Need Help??
"Poetry" is in the eye of the beholder; it could be any of:
  • Poetry written in Perl
  • Using perl to generate poetry
  • Poetry about Perl/PerlMonks
New Poems
Just Another Perl Haiku-er
1 direct reply — Read more / Contribute
by ColonelPanic
on Nov 28, 2012 at 05:40
    no warnings; require 5.7.5; sub haiku { $word = shift; join $word x 5 . "\n" , shift, $word x 2, shift, shift; } print haiku('foo ');

    When's the last time you used duct tape on a duct? --Larry Wall
Be careful what you wash for
2 direct replies — Read more / Contribute
by space_monk
on Nov 26, 2012 at 11:35
    Rain, oh land devour!
    Wash the streets clean again
    Damn I'm driving home
    A Monk aims to give answers to those who have none, and to learn from those who know more.
T Day
1 direct reply — Read more / Contribute
by luis.roca
on Nov 21, 2012 at 11:47

    Storm beseeching mouths!
    having third, fourth ... fifth helpings?!?!
    On the morrow? /perl

    "...the adversities born of well-placed thoughts should be considered mercies rather than misfortunes." Don Quixote
Money for nothing
2 direct replies — Read more / Contribute
by space_monk
on Nov 08, 2012 at 10:29
    Bank account empty
    Maybe I should consider
    Writing some PERL now.
    A Monk aims to give answers to those who have none, and to learn from those who know more.
The Nymph's Reply to the Shepherd
1 direct reply — Read more / Contribute
by frost_knight
on Nov 06, 2012 at 12:10

    The college I work for recently published a small poetry journal with the theme of romantic love. Submissions had to translate an exisiting poem from English into another language, or vice versa. I submitted this and it was enthusiastically accepted.

    Some lines are a hair over 80 columns. Fitting onto a single page was the highest priority for the publication, so I used less whitespace and more columns than I normally would for production code. The code will run if executed.


    #!/usr/bin/env perl # filename: # description: the nymph's reply to the shepherd # created: before 1599, sir walter raleigh (wraleigh) # modified: 02.14.2012, william fielder (wfielder) # bug tracker: (cmarlowe) successful exit conditions will never be met # bug closed: (wraliegh) nofix, working as designed # === pragmas and globals === # use File::Copy; $world_and_love = 1000; # vast untold +eons $shepherds_tongue = 0; # what a guy $rocks = 300; # warm, degree +s kelvin $philomel = 100; # iq, smart bi +rd $youth = 0; # wasted on th +e young $rivers = "with more than flinty rage"; # apologies to + thom $folly = "the riper should by time decease"; # apologies to + will $season = "rotten apple from the hoard"; # apologies to + geoff @items = qw(gowns, shoes, roses, cap, kirtle, posies); @accessories = qw(belt of straw, ivy buds, coral clasps, amber studs); @joys = qw(date, age, need); # === subroutines === # sub TickTock { $time = localtime(); if (-e "/field/flocks" ) { move("/field/flocks", "/field/fold") || die("cannnot move, $!\n +"); } print("\n$time\n\n"); } # === main === # if (($world_and_love <= 8) && ($shepherds_tongue)) { move("/me/pretty_pleasures", "/thee/thy_love") || die("cannot move, + $!\n"); exit 0; } TickTock(); while (($rivers =~ m/rage/) && ($rocks >= 200)) { $rocks -= 128; $philomel -= 32; push(@the_rest, qw(cares)) || warn("cares: complain\n\n"); } undef($flowers); $wanton_fields = "wayward winter reckoning"; @sorrows_fall = @fancys_spring = ("honey tongue", "heart of gall"); if (($folly =~ m/ripe/) && ($season =~ m/rotten/)) { foreach $item (@items) { undef($item); } } unless (@accessories) { move("/me/to_come", "/thee/thy_love") || die("cannot move, $!\n"); exit 0; } if (($youth) && (-e "/thee/thy_love")) { unless(@joys) { move("/me/delights", "/thee/thy_love") || die("cannot move, $!\ +n"); exit 0; } } exit 1; # eof
Ending it all
No replies — Read more | Post response
by space_monk
on Nov 06, 2012 at 10:59
    I think this one is better than my previous attempt, but they complement each other and form a pair....
    Winter evening
    The monitors stop shining
    It's time for a beer!
Neverending war
No replies — Read more | Post response
by space_monk
on Nov 06, 2012 at 01:49
    Prompted by a dislike of getting up this morning...
    Six thirty; Code waits
    New day fighting new battle
    Core dumps shrapnel
floating down the information stream
No replies — Read more | Post response
by zentara
on Nov 05, 2012 at 07:25
Coming home
1 direct reply — Read more / Contribute
by bibliophile
on Oct 26, 2012 at 09:56
    A brief hiatus
    into the world of Javascript.
    It's good to be back.

wait for @commands
1 direct reply — Read more / Contribute
by Sixtease
on Oct 05, 2012 at 08:30

    Not really a poem, it just struck me how nice the second line of this code sounds:

    for (@commands) { if (fork==0) { exec $_ } }; wait for @commands;
    use strict; use warnings; print "Just Another Perl Hacker\n";

Add your poem
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?

    What's my password?
    Create A New User
    and all is quiet...

    How do I use this? | Other CB clients
    Other Users?
    Others romping around the Monastery: (2)
    As of 2016-12-06 02:28 GMT
    Find Nodes?
      Voting Booth?
      On a regular basis, I'm most likely to spy upon:

      Results (96 votes). Check out past polls.