Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

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
Wannabe.PL - my first Poem
No replies — Read more | Post response
by perlron
on Oct 24, 2014 at 07:09
    print 'true'
    if ('i wanna be someone great' lt 'i wanna build something great');
I wrote my car in Perl
2 direct replies — Read more / Contribute
by chacham
on Oct 14, 2014 at 13:37

    I wrote my car in Perl, my project for today,
    I started with use gas, and proceeded on my way,
    But a friend who's eco-friendly, and perhaps a bit eccentric,
    Changed it to require, and Acme::clean::electric,
    And that's when things got strange, and all about was hectic,
    Though, searching through the code i was not able to detect it.

    I wrote my bed in Perl, to sleep upon my code,
    I dreamt a fairy came, and turned me into a toad,
    I hopped upon my pillow, bellowing, "oh gribbit!"
    "If my princess frog arrives, the kiss, but who will give it?"
    I woke up in a sweat, and after just a minute,
    I fixed a nasty bug, and tons of others in it.

    I wrote my house in Perl, to save a bit of rent,
    I still don't have the money, nor an idea where it went,
    But on that fateful day, when my friend came and arrived,
    He found so many bugs, we're amazed that i survived,
    Well, there was a patch or two, without a thought contrived,
    That worked in the short term, but was longevity deprived.

    And that's my life of code, which worked until a friend,
    Or unconscious source, showed me what had to bend,
    I might just try again, but plan before i do,
    To use others' advice, (and check on CPAN too,)
    For though it's great homemade, and i do adore home brew,
    It usually is better, to sit and think things through.

I'd code without....
1 direct reply — Read more / Contribute
by chacham
on Oct 07, 2014 at 09:30

    I'd code without my eyes, if i could still see.
    I'd code with no soul, but that wouldn't be me.

    I'd code without my head, but how would i think?
    I'd code with no mouth, but how would i drink?

    I'd code without my ears, but who'd hear me shout?
    I code with no hair, i already pulled it out.

    I'd code without my hands, but my digits would fall,
    I'd make up with my toes, but i don't have the gall.

    I'd code without my fingers, but keys must be pressed,
    I could peck with my nose, who would have guessed?

    I could code with no knees, there's some room to bend,
    I could try with no legs, and start a short trend.

    I might code with my feet, just don't jump to conclusions,
    My clone could take over, but that'd lead to confusion.

    I'd code without my heart,, i just couldn't.

Welcome to the Monastary
1 direct reply — Read more / Contribute
by chacham
on Sep 23, 2014 at 12:32
Make the world better than you found it.
1 direct reply — Read more / Contribute
by ghernandez
on Sep 11, 2014 at 01:49
    sub self($) { $world = shift; return ++$world; }
Life and death are balanced on the edge of a razor
1 direct reply — Read more / Contribute
by ghernandez
on Sep 11, 2014 at 01:47
    print "Life and death are balanced on the edge of a razor.\n"; sub razorsEdge { $life=shift; $death=shift; if ($death == $life) { $life = int(rand($death+1)*2); $death = int(rand($life+1)*2); } $life++ if ($life < $death); $death-- if ($death > $life); $life-- if ($life > $death); $death++ if ($death < $life); razorsEdge($life, $death); } razorsEdge($life, $death);
A love poem that parses
2 direct replies — Read more / Contribute
by awesomeamyg
on Aug 27, 2014 at 11:53
    #!/usr/bin/perl my $love; for (@you) { until ($i) {die $i; do {}}; }
Dunning-Kruger Meets Bulwer-Lytton
3 direct replies — Read more / Contribute
by GotToBTru
on Aug 12, 2014 at 01:01

    In the writing of poetry, worthy of tribute
    The most crucialistic part is the words in the poem.
    Sure, rhyme, rhythm, meter, these all contribute
    But if you make lousy word choices, people are going to read it and say "Who wrote this trash?" and then somebody says "GotToBTru" and then somebody says "Who's that?" and out of embarrassment they say "Don't know 'im."

    Does Perl Monks have an official Poet Laureate?
    We've got a section here for him, ready and warmed up.
    Meanwhile, rank and file monks fill in with haiku and couplet
    Waiting for a real class act to finally show up.

    That's not me, I'm not a skilled nor prolific Perl Poetry contributor.
    I much prefer coding, I'm not ashamed to admit it.
    So it works out not to be much of a non sequitur
    To say "GotToBTru. Your day job - don't quit it."

    1 Peter 4:10
Written History
No replies — Read more | Post response
by marcoonroad
on Jul 05, 2014 at 15:31

    So, I try it with Perl 6... :)

    #!/usr/bin/perl6 use v6; # I'm a little ashamed to say the her name. our @history; our @ever = 0 .. Inf; sub Written (@place, @what) { push @place, @what } sub history ( ) { return @history } sub with ($n1, $n2) { return $n1, $n2 } sub Me ( ) { return "Me" } sub You ( ) { return "You" } sub ever ( ) { return @ever } say "Running..."; ######################### Written history, with Me, You for ever ######################### # Just Another Perl Poem. # 0xP6 / EOS (End Of Script)
There i was, steeped in code
2 direct replies — Read more / Contribute
by chacham
on May 05, 2014 at 12:46

    There i was, steeped in code,
    Trying to find that bug,
    And all around there was no sound,
    So late, yet deeper i dug.

    I looked line by line,
    It seemed to be fine,
    Nothing but fail after fail,
    I just couldn't find it,
    I seemed just behind its
    ever elusive trail.

    Fighting off slumber,
    I downed quite the number,
    Coffee, my favorite caffiene,
    I was oh so confounded,
    By all that surrounded,
    It managed to stay unseen.

    "That's it!" i cried for the umpteenth time,
    As if i'd listen and learn,
    I'll start over clean,
    It has to be seen,
    How long can it have its turn?

    I'll polish each statement,
    And check its encasement,
    Every variable must be declared,
    I'll even go and use strict;
    Cus' i'm getting ticked,
    This bug was getting me scared.

    After i "fixed", all those bugs that i "missed",
    See?! use strict; was no help at all,
    I added use warn;
    And then till the morn,
    I answered its beck and call.

    I could no longer fight,
    I had stayed up all night,
    Sleep had finally won,
    There i collapsed,
    And hours had passed,
    I slept until i was done.

    Upon raising my head,
    From this strange looking bed,
    I ran the code like before,
    It played like a song,
    Nothing was wrong!
    The bug had been banished once more.

    In these times of need, i remember my creed,
    In it: Bugs die in the night.
    Distressed in bug searching mode?
    Just sleep on your code,
    By morning it'll all be alright.

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 the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others taking refuge in the Monastery: (8)
    As of 2015-11-30 10:42 GMT
    Find Nodes?
      Voting Booth?

      What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

      Results (769 votes), past polls