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
Pearls of wisdom
1 direct reply — Read more / Contribute
by Naren87
on Sep 11, 2015 at 02:08
    I learnt perl when I felt dumb, // . c++, java just made me numb, // . as I mastered, I got a thumb, //  . now I am picking the PEaRLs of wisdom.
Idling in #perl
No replies — Read more | Post response
by dmitri
on Jul 28, 2015 at 22:36
    while (each %day) { join #perl wait && wait && wait; sleep 60 * 60 * int(rand(7)); }
How sad.
10 direct replies — Read more / Contribute
by BrowserUk
on Jul 01, 2015 at 01:29

    How sad it is to see, the he that is not me, become the thing that he has long decried.
    The annuated bore, crying for what went before; those lost days of his rose tinted youth.

    So blind he cannot see, his own bigotry; his intolerance of those with whom he disagrees.
    He thinks he is the man; he thinks he has a plan, to suppress the source of his jealousy.

    Although he tries to hide, whilst he is being snide, to protect his once held reputation.
    It doesn't take ESP, to see that it is he, despite his lukewarm refutation.

    With his naughties: "Hate MS" meme; and linux everywhere dream; he doesn't realise, what he has become.
    Despite his tender age, he's really turned the page; now both a dinosaur, and utterly dumb.

A familiar mantra
2 direct replies — Read more / Contribute
by belg4mit
on Jun 21, 2015 at 13:21
Perl sweet Perl
1 direct reply — Read more / Contribute
by hda
on Jun 16, 2015 at 15:21
    Long ago, with Fortran 77
    using old unglamorous computer
    I cut my programming teeth
    totally unpretentious
    but nicely real and free

    In discovering Perl long after
    I soared high, far and glad,
    with scalars, arrays and hashes,
    PDL and CPAN gave me fantasy
    and serious wings to fly

    I then left home
    don't know exactly why
    flirting with other languages,
    only to come back, older and tired
    to my and yours faithful Perl

    In coming back to this realm
    among penguins and camels
    I finally find the peace and light
    among you wise and gentle monks
    in this one, that I can truly call
    my natural and only home

Happy families
No replies — Read more | Post response
by chacham
on May 21, 2015 at 13:48

    I love OOP, You love C,
    C++'s family.
    All the classes made it seem,
    That i would love this language stream.

    I love OOP, You love Perl,
    Let's take Moose out for a whirl,
    All the symbols make it seem,
    It only takes a package stream.

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"; } }

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 rifling through the Monastery: (4)
    As of 2021-01-26 23:13 GMT
    Find Nodes?
      Voting Booth?