Beefy Boxes and Bandwidth Generously Provided by pair Networks Cowboy Neal with Hat
Welcome to the Monastery
 
PerlMonks  

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
Today I took My Holidays
1 direct reply — Read more / Contribute
by samus
on Dec 11, 2012 at 09:44
    24/12/2012: Description: s/\bwork\b/holiday/ Reason: return 1; 26/12/2012: Description: s/\bwork\b/fun stuffs/ Reason: return defined $fun and defined $stuff ? $stuff eq $fun : ($ +stuff = $fun); 27-28/12/2012: Description: s/\bwork place\b/christmas/ig Reason: s/\bwork place\b/christmas/ig 31/12/2012: Description: s/\bwork place\b/new year/ig Reason: return $home if my($blood_alcohol_content) gt 2; 2-4/1/2013: Description: s/\bnew\s+year\b/$rest and $peace/ge Reason: (my $bed and my $rest) or (my $bed and my $gf) or ($Perl_suc +ks)
galactic frame drag
1 direct reply — Read more / Contribute
by zentara
on Dec 10, 2012 at 08:15
Pilgrims Progress
No replies — Read more | Post response
by space_monk
on Dec 06, 2012 at 10:23
    I have been a Pilgrim Now I have Bunyans The life of a Friar for me Living on chips you see

    feat. John Bunyan and Geoffrey Chaucer - props

    A Monk aims to give answers to those who have none, and to learn from those who know more.
Answer Advice
1 direct reply — Read more / Contribute
by ColonelPanic
on Dec 04, 2012 at 07:21
    One line may solve it, but before you dash e, note: golf ain't for newbies.


    When's the last time you used duct tape on a duct? --Larry Wall
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: nymphs_reply.pl # 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!

Add your poem
Title:
Text:
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!
  • 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
  • Outside of code tags, you may need to use entities for some characters:
            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?
    Username:
    Password:

    What's my password?
    Create A New User
    Chatterbox?
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others romping around the Monastery: (9)
    As of 2014-04-19 13:59 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      April first is:







      Results (481 votes), past polls