Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

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
This could be considered poetry of the subconscious (TMTOWTDI).
5 direct replies — Read more / Contribute
by anneli
on Oct 10, 2011 at 17:19

    I woke up from an odd dream. In the dream, I was in the living room using my computer, and my wife was in the kitchen. She was asking me to bring her a Pepsi1, despite her being the one in the kitchen.

    I sat there and enumerated all the different ways she could be using Perl to get the Pepsis out of the fridge, and I was being serious about it too. In this dream world, drink $_ foreach (@{$fridge->{PEPSIS}}) was a reality!

    Possibly related to us discussing naming a future daughter Perl the night before.

    1. Not that we have or drink any, but this is how dreams go.

Perl Motivation
4 direct replies — Read more / Contribute
by onelesd
on Sep 26, 2011 at 18:52

    I was coding away in perl one morning when my 4yr old daughter asked me what I was doing. I said, "I am typing code into the computer to write a program."

    She said, "I have some code too," and insisted I type it for her on the screen (she doesn't type yet):

    Jewel, painting feet.
    Painting pinkies with sparkles;
    Painting middle toe.
    Painting fingers but they're lost,
    stones fell off.

    See, perl really is poetry!

Superluminal Perl Haiku
7 direct replies — Read more / Contribute
by zentara
on Sep 25, 2011 at 14:49
please help us and learn
No replies — Read more | Post response
by Anonymous Monk
on Sep 17, 2011 at 12:19

    let us learn it together

    in all kind of weather

    do it together

    1+1 is four

What then must we do?
3 direct replies — Read more / Contribute
by hesco
on Sep 17, 2011 at 00:27
    if( ! $physical_evidence && $police->suborn->perjury && $police->intimidate->witnesses ){ $killer->walks; $innocent->framed; } while( $courts->ignore->justice ){ $witnesses->recant; $witnesses->testify($police->misconduct); $world->takes_notice; } unless( $we_all->call( 'Georgia Board of Pardons and Paroles', 'Chairwoman Gale Buckner', '404-657-9350' ) && $we_all->call( 'Georgia Attorney General', 'Thurbert E. Baker', '404-656-3300')) { $Georgia->executes('Troy Davis') && $an_innocent_man->dies() && $we_all--; } }

    CNN: Death Row Mistake

    if( $lal && $lol ) { $life++; }
    if( $insurance->rationing() ) { $people->die(); }
Goto statement considered harmful
4 direct replies — Read more / Contribute
by davido
on Sep 04, 2011 at 19:40

    Dedicated to the history buffs out there:

    no warnings;EWDs:;SHORTEST_PATH:$dijkstra;goto considered;;harmful: ;sought;formal,verification;$algol=(qw[forefather of c c inspired], ,qq[Just another Perl hacker,\n]) [5];RECURSION_ELIMINATION:goto KNUTH;wirth;considered:goto harmful;PASCAL:;abolished:;in;modula II ;;;;KNUTH:"considered";goto efficient;efficient:$in_some,qw/cases/; FORTRAN;BASIC;should;never,be;taught;print $algol or say with Lisp;

    Inspired by MJD's blog: Dijkstra was not insane, Knuth's Paper on Goto, many articles on Wikipedia on topics in early CS, and an enjoyment of the history of computer languages.


My first attemp at this, Haiku-like verse
1 direct reply — Read more / Contribute
by Caio
on Sep 02, 2011 at 16:52
    This is my first shot at this poetry thing, i just hope it's perlish enough.
    hammering fingers keyboard for anvil sharp code is born
    What inspired this was a fellow monk (whose name i can't recall now) that said programing was one of the last crafting jobs still existing.
Late Spring
No replies — Read more | Post response
by PhillipHuang
on Aug 04, 2011 at 01:23

    My first try.

    #!/usr/bin/perl use strict; use warnings; my $blossoms; my $orioles_sound; my $frog_sound; my $listen; my $count; $blossoms = "fallen"; if($blossoms eq "fallen"){ print "No one cares the $blossoms blossoms.\n"; print "Only shades of trees spreading.\n\n"; } $frog_sound = "frogs croaking"; $orioles_sound = "orioles singing"; $count = 12; while($count > 0){ $listen = join(',',$frog_sound,$orioles_sound); print "There are $listen.\n"; $count--; if($count == 0){ $listen = $frog_sound; print "\nOrioles emit no more sound.\n"; print "I alone listen to $listen.\n"; } }
Nejpur lacks to her heart
1 direct reply — Read more / Contribute
by emilbarton
on Jul 27, 2011 at 20:37

    The real hak project runs,
    Helper or junk chatter as
    Just another Perl hacker;
    Nejpur lacks to her heart.

    No jack, the perl sutra, her
    Pure talk, can't josher. Her
    Plea jut carks. Her throne
    Rut jerks the pale archon.

    Just note her lark preach,
    Let others jar, prune, hack...
    Thou, jank perls, trace her
    Truth here, no slack japer.

    She perketh to curl a raj 'n
    Jats lurk ther Nacre, hope
    No hater tracks her julep,
    Nor juker laceth her past.

    Ka, the archer, purls on jet,
    Hankers to jut per her lac.
    Another lust: jar her, peck
    At her rank. Sepulcher jot:

    Tara John (the Perl sucker)

my $deity;
No replies — Read more | Post response
by Sir mXe
on Jun 21, 2011 at 19:10
    On the first day of Creation, my $deity gave to me BEGIN { reality(); } On the second day of Creation, $deity gave to me do { print; } while ( <> ) #presuming you read ) as close parenthesis On the third day of Creation, $deity gave to me foreach my $key ( keys %hash ) { $hash->{$key} = "breathe"; } On the fourth day of Creation, $deity gave to me my $obj = Earth::Humanity->new(will => "free"); On the fifth day of Creation, $deity gave to me tie %myself, $obj->get(target => "me"); On the sixth day of Creation, $deity gave to me $myself{"name"} = "Sir mXe"; On the seventh day of Creation, $deity took a rest, $deity->sleep() && bless; ... On the final day of Revelations, $deity gave to me, END { close_reality(); }

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!
  • 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?

    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 about the Monastery: (6)
    As of 2014-08-22 02:00 GMT
    Find Nodes?
      Voting Booth?

      The best computer themed movie is:

      Results (145 votes), past polls