Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

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
You work and you learn
No replies — Read more | Post response
by chacham
on Apr 30, 2015 at 09:55

    I spent hours and hours on what not to see,
    (To extend Ignored Users, specifically,)
    So that it would work in last hour of cb
    And then ambrus responded with simplicity.

    I tried using javascript, with Greasemonkey installed,
    For "editing scripts", it's normally called,
    With testing and googling, i was enthralled,
    Then a Perl Monks Discussion, to show what i scrawled.

    But, .chatfrom_<some digits>, when i took a peek,
    I mistakenly thought, was to keep it unique,
    Corion explained, ambrus's critique,
    It's the monk's node id, and not that oblique.

    You work and you learn, even when it's for naught,
    And look on with pride, when you see what you wrought,
    Though the answer is different than i previously thought,
    I'm happy i did it, i reached what i sought.


    Update: 4th stanza, 1st line, changed "all is" to "it's".

PM XP is just a game
3 direct replies — Read more / Contribute
by chacham
on Feb 04, 2015 at 16:40

    PM XP is just a game,
    I know, but yet, and just the same,
    The points and levels as they might,
    Add extra fun to PM's site.

    With each and every node a score,
    Begs to some to come for more,
    It sends a message loud and clear,
    Please come back, we love you here.

    But if you hang around for long
    You'll hear another PM song,
    That you should just ignore XP
    And let those silly numbers be.

    The points are simply for the node,
    Regardless of what you have been told,
    It's not a pat or user slight,
    It's based upon a node's own might.

    Who can argue with what's right?
    I'd like to say i've seen the light.
    But still deep down the voices say
    How many points you have today!

    Am i wrong to say i care?
    Or any time i look what's there?
    Or where i rank inside the Book,
    Not that i'll admit i look.

    Perhaps a game, though on the side,
    With content being the main stride,
    As long as you act in that way,
    It's okay if you like to play.

KC's Sunshine (not an original poem)
1 direct reply — Read more / Contribute
by KurtSchwind
on Jan 29, 2015 at 15:12

    A little bit of KC's Sunshine. Enjoy!

    #!/usr/bin/perl # Kurt Schwind: A little of KC's Sunshine use strict; use warnings; my @l = qw( a aah best booty can chance come dance do don't down duty everybody feeling feelings fight floor get give home I in it let's momma now Oh on run shake sister tell the to very well with world yeah you You your You're yourself); sub line { my $j = shift; while(defined $j ) { print $l[$j]." "; $j = shift; } print "\n"; } sub refrain { for(1..6) { print $l[29]." "; } print "\n"; line (29,41,3); line (29,41,3); for(1..6) { print $l[29]." "; } print "\n"; line (29,41,3); line (29,41,3); print "\n"; }; sub groove { for(1..5) { print $l[29]." "; } line (41,3); }; line (1,12,17,27,32,16,23,7); line (9,15,41,14,18,43,0,5); print "\n"; refrain(); line (1,39,4,39,4,8,22,34,35); line (42,32,2,21,32,37,20,4,31); print "\n"; line(26); refrain(); line (26,38); line (29,29,29,29); line (1,29,29,29,29); print "\n"; line(1); refrain(); line(1); groove(); line(1,9,15,32,13); groove(); line(1,18,43,0,5); print "\n"; groove(); line(42,4,8,22,8,22); groove(); line(6,19,36,24,25); groove(); print "\n"; groove(); line(1,28,10,33,30); line(29,29,29,29,27,41,3); line(1,8,41,11); line(29,29,29,29);
    I used to drive a Heisenbergmobile, but every time I looked at the speedometer, I got lost.
404 page
No replies — Read more | Post response
by Transalp
on Jan 14, 2015 at 09:58
    print "Content-type: text/html\n\n"; my @into_the_stream = qw( 1 2 3 ); my $stepsound = "..step"; print "You step into the stream .."; foreach my $step (@into_the_stream) { print "<H".$step.">".$stepsound."</H".$step.">"; if($step == 3) { sleep 1; print "<br>But the water has moved on"; sleep 1; print "<br>Sorry, this page is not here"; } }
A new year is here
No replies — Read more | Post response
by chacham
on Jan 08, 2015 at 12:44

    A new year is here, but where?
    The four to five is live, do i care?
    A few will renew, but time is due,
    The stuff is old enough, let's review.

    The end of December i remember, a glowing ember.
    Scoff at days off?! Been waiting since November!
    Our mood ensued, and delicious food,
    Even the restive were festive, no more feuds.

    But i fear it's clear, the new year,
    A slow start in part, but we're here.
    Politics back on track, poised to attack
    The anointed pointed, picked up the slack.

    The new is bold, but old and cold,
    Again and then, or so i'm told.
    The end had a trend, people would bend,
    It didn't stay, but the day, i await my new friends.

NoŽl, NoŽl
2 direct replies — Read more / Contribute
by Athanasius
on Dec 25, 2014 at 01:03

    It’s Christmas! Ring the Monastery bell,
    As we with joy recall that first NoŽl
    When shepherds, watching through the lonely night,
    Were over-awed by heaven’s glorious light.

    With cheer, we’ll greet our brother monks, and sisters,
    And amnesty extend to Pythonistas,
    And other erring souls; foreach, today,
    We wish bright blessings in a long @array.

    And tho’ at times, alas!, we make a %hash
    Of our Monastic Rule, with insults rash
    And words unkind: today we start anew
    And map our way with kinder goals in view.

    A maid needs help with syntax? We’ll not fail ’er.
    A hill of bugs is in our way? We’ll $scalar.
    Tho’ all the year in Perl we script — and well, —
    Today it’s “Per”, in honour of NoŽl.

    © 2014

    Merry Christmas!

    Athanasius <°(((><contra mundum Iustus alius egestas vitae, eros Piratica,

A Perl Beard
No replies — Read more | Post response
by perlron
on Nov 01, 2014 at 06:28
    A Perl beard is not usually well formatted.
    It just grows from lack of care
    late working hours give dirty collars
    n modest clothes are best to wear
    When you feel the bugs are scary,
    weird enough to pull your hair
    take a break , you big Perl guy
    sleep on it and come back fair.
    Perls got debug, n mods that Capture
    every bit n trace out there
    rest assured, there aint no language
    that's got so much built-in flair
Upvotes n Downvotes
No replies — Read more | Post response
by perlron
on Oct 29, 2014 at 14:39

    Upvotes and Downvotes, arent they just frills
    lacking all context; reputation's sigils
    if you while working, come across pain
    turn to the perlmonks, there's so much to gain

    some might be dandy, some might be plain
    some might just tease you , to check once again
    all in good sport then, we newbies must take
    the acts of good valor, the dear monks display
get PerlED
No replies — Read more | Post response
by perlron
on Oct 28, 2014 at 09:41

    I found a new verb called perled
    it means make the most of your *nix world
    keeps you looking classy with text
    makes your code sassy n best
    and for the help the monks freely give
    try to donate your time or a triv'
    and e'en if you dont want to spend
    at least vote on good posts a plent'.
There was this client from Notre Dame
1 direct reply — Read more / Contribute
by perlron
on Oct 26, 2014 at 04:45
    There was this client from Notre Dame
    who asked to code up something lame
    I looked at him with weary eyes
    and asked him if that's all heíll buy

    He said its just for fun n games
    his actual work didnít need ITs pain
    But yet he feels the webís a rule
    n every business needs this tool

    I quickly sketched what came to mind
    He liked it and said ill pay u fine
    I put my zeal into the work
    lest later on he changed the perk

    But sad that day he said to me
    Ron that project..lets wait n see
    i glibly said ok thats fine
    and tried to simply pass the time

    I prayed to God oh please help me
    This delay does not work with me
    Please work on him to change his mind
    Give me the solace of cash n kind

    Few days passed and client replied
    Hey Ron the TV crews are nigh
    i need that simple site of mine
    so might as well get a page out fine

    I clapped my hands in earnest glee
    and wrote markup with a JS reel
    and as the project drew to a close
    i mused in silence and repose

    But still the bucks took time to brew
    while i did the logo, perl and hue
    and since the cheque was post dated true
    i sat and cried a big boo hoo.

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: (8)
    As of 2018-06-25 20:09 GMT
    Find Nodes?
      Voting Booth?
      Should cpanminus be part of the standard Perl release?

      Results (128 votes). Check out past polls.