Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

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
beware of Geeks bearing gifts
1 direct reply — Read more / Contribute
by Anonymous Monk
on Jun 20, 2012 at 17:02
    Malware on CPAN caused a haiku to pop up into my wandering mind. :-)
    beware of geeks bearing usb keys they may be trojans
Twas the night after Lulzsec
No replies — Read more | Post response
by cavac
on Jun 17, 2012 at 18:33

    (Short version, adapted from RFC968)

    Twas the night after Lulzsec and all through the web,
       all my passwords were moving, every bit and octet,
    The crackers celebrated my fail and despair,
       while my company value dropped to 1 cent per share,
    The PerlMonks were nestled all snug in their beds,
       while visions of inbuilt security danced in their heads.
    And I with my PHP tracings and dumps
       prepared for some pretty bad bruises and lumps.
    When out in the hall there arose such a clatter,
       I sprang from my desk to see what was the matter.
    There stood at the threshold with Laptop in tow,
       A PerlMonk hacker, all ready to go.
    I could see from the creases that covered his brow,
       he'd conquer the crisis confronting him now.
    More rapid than eagles, he checked my design
       and started to delete each individual line.
    His eyes were afire with the strength of his gaze;
       no bug could hide long; not for hours or days.
    A wink of his eye and a twitch of his head,
       soon gave me to know I had no more to dread.
    He pulled all of CPAN and googled for help,
       i looked like a fool and tried not to yelp!
    At last he was finished and wearily sighed
       and turned to explain why my software had died.
    I twisted my fingers and counted to ten;
       PHP "security" had done it again...
    "You have reached the Monastery. All our helpdesk monks are busy at the moment. Please press "1" to instantly donate 10 currency units for a good cause or press "2" to hang up. Or you can dial "12" to get connected directly to second level support."
Considered and aborted
No replies — Read more | Post response
by stevieb
on Jun 12, 2012 at 02:37
    I write Perl,
    but not very well,
    if I counted on XP,
    I'd probably be in hell,
    but isn't that what this is,
    PerlMonks is a 'dive',
    I've survived my own lies and somehow stayed alive,
    post code or die,
    put in effort and at least try,
    I love my job at PerlMonks even when I get two votes and not five,
    I've grown up wonders,
    even though I rap better than I code,
    but that's ok,
    as it's something the whole world knows,
    I love the criticism,
    and the strong truth,
    but isn't this why the newbs come here to you?,
    they don't come for mental alignment,
    they ain't here for psychologogal consignment,
    they're here cuz the're newb's with haven't none,
    of the laws of Larry's confinement,
    we show them the ropes,
    with closeness,
    diligence instead of misappropriateness,
    tell them we don't do homework,
    but we don't condemn other monks importantness,
    I'm a religion of sorts,
    I'll slam what is disorted,
    don't put down quality posts of monks,
    of the time they've afforded of the quality they've reported,
    but like hip-hop,
    I'll smash you when all you respond with,
    should be Considered and Aborted.
Beauty queen
No replies — Read more | Post response
by stevieb
on May 21, 2012 at 22:14
    oh Perl,
    what have you done?,
    you turned me from building developer,
    into a network engineering thug,
    I'm crushed,
    but I've stuck by your side,
    you're the only one who I stick by with glistening in their eyes,
    I've tried,
    to communicate in other ways,
    but you update and portray,
    how you'll love me anew each and every day,
    as I stand crazed and amazed,
    on your pipe I blaze,
    those other languages mean nothing,
    that's the truth of it babe.
    For me it's you or nothing,
    I dabble elsewhere when need be,
    but you're the beauty queen,
    who has forever captivated me.

    'gratz on 5.16!


Friar in training
No replies — Read more | Post response
by stevieb
on Apr 24, 2012 at 19:00
    called my ex-wife,
    but she's stuck on prototypes,
    she can't see,
    I've moved on with my life,
    I'd upvote that,
    but I have no votes left,
    it's like on PerlMonks,
    there's nothing I can do,
    wishing votes were up my ass,
    but the lack of votes is what the Gods choose.
    We state the well being,
    of posts that are good,
    some formatting that exceeds,
    the threshold,
    of what we consider crude.
    Some we'd leave in the dust,
    good questions be damned,
    but I'm just a human writing Larry's English language.
    We'll leave the formatting to rust,
    but I trust,
    as someone new in the game,
    I've seen things portrayed,
    while willing to bend the old ways,
    I've read the FAQ,
    and as soon as I hit the nine,
    I'll consider with patience,
    all posts with kindness in my mind.
Method to my $madness
No replies — Read more | Post response
by stevieb
on Apr 09, 2012 at 15:24
    Back in the day,
    I was unable to say(),
    I had to print() everything to find the err of my ways,
    but things changed,
    and now I can return(),
    to the main() program of life,
    where nearly everything burns,
    I'm not rapping this on a mic,
    I'm just writing to be free,
    before I have to split(),
    and perform other tasks that bore me.
    So I grab my map(),
    and put two and two together,
    hashing into keys the locations,
    that I can remember,
    but I've %seen these places,
    now what do I do?,
    I pick a rand()om place that none of us have ever been to,
    but the rules are strict,
    I keep getting warnings,
    something about being literal when I'm trying to be corny,
    but I'm out of the ord()inary,
    I'm a chr()acter in reverse(),
    I know what Larry wanted,
    but my linguistics are the worst,
    this is freeverse,
    I DESTROY()ed the English language,
    I just hope I get eval()uated to true,
    before I die() and then get laughed at,
    but it isn't like that,
    all I seek() is some closure,
    I'm not an array of elements trying to get sort()ed into order,
    I'm random,
    I try to please for() each(),
    it's like a disease,
    I've thrown away all the keys(),
    I write in these confinements,
    it's a very strict type of squeeze.
    The warnings teach me lessons,
    correct my spelling and my messes,
    but if Larry's crew would finish Perl6,
    to my $madness I'd have methods.
    - stevieb 20120409

    Copied from my blog post.

Blue Perl
2 direct replies — Read more / Contribute
by Joe_
on Apr 02, 2012 at 18:40

    I'm new to the whole Perl poetry thing here, so bear with me. I'm a big fan of 'Black Perl', so here is 'Blue Perl':

    package in; split my $_=fork, pop and wait; for my $passion (@to_terminate) { map {my $body} ($through and $through); shift @me,'oh'..'so close to you!'; } listen 'closer',$_ foreach $breath; kill $me,'with that little death'; "What's the meaning of this rhyme"? 'You will come to learn in' : time; if (our $little_code) {'is_run'}; 'Then the two'. $will_be.'as', 1;
    EDIT: Some changes made according to suggestions from tobyink. Also, couldn't resist adding "package" to that! :)
Party rock is in the house!
1 direct reply — Read more / Contribute
by petdance
on Mar 29, 2012 at 15:44
    0 0 * * * /usr/bin/perl -MList::Util=shuffle -le'print for shuffle @AR +GV' Every day "I'm" "shufflin'"


how i (re-)learned to stop worrying and love my life
No replies — Read more | Post response
by xyzzy
on Mar 21, 2012 at 14:44

    $,=qq.\n.;print q.\/\/____\/.,q./\ \ / / \\.,q.    /_/__.,q..
    Happy, sober, smart: pick two.
Taijitu ... the ultimate symbol of power
No replies — Read more | Post response
by zentara
on Mar 21, 2012 at 08:00
    Sometimes a picture is better than 10,000 words. screenshot

    P.S. If anyone knows how to rotate the entire Cairo surface, please show me. $cr->rotate( PI/6 ); dosn't seem to work.

    #!/usr/bin/perl use strict; use warnings; use Cairo; use constant { IMG_WIDTH => 480, IMG_HEIGHT => 480, PI => 3.1416 }; die "png backend not supported" unless (Cairo::HAS_PNG_FUNCTIONS); my $png = "$0.png"; my $surf = Cairo::ImageSurface->create ('rgb24', IMG_WIDTH, IMG_HEIGHT +); my $cr = Cairo::Context->create ($surf); # to avoid a bit of angular confusion... :-) # arc angles are measured from 0 on the x-axis, and angles are # measured clockwise. So the usual 90 degree position is 3*PI/2. # There is a negative arc function, see the perldoc for Cairo. # In other words, the positive y axis is directed downward #left $cr->arc (IMG_WIDTH/2, IMG_HEIGHT/2, IMG_WIDTH/2, 3*PI/2, PI/2); $cr->set_source_rgb (1, 1, 1); $cr->fill; #right $cr->arc (IMG_WIDTH/2, IMG_HEIGHT/2, IMG_WIDTH/2, PI/2, 3*PI/2); $cr->set_source_rgb (0, 0, 0); $cr->fill; #top semicircle $cr->arc (IMG_WIDTH/2, 3*IMG_HEIGHT/4, IMG_HEIGHT/4, 3*PI/2, PI/2); $cr->set_source_rgb (0, 0, 0); $cr->fill; #bottom semicircle $cr->arc (IMG_WIDTH/2, IMG_HEIGHT/4, IMG_HEIGHT/4, PI/2 , 3*PI/2 ); $cr->set_source_rgb (1, 1, 1); $cr->fill; #encompassing boundary $cr->arc (IMG_WIDTH/2, IMG_HEIGHT/2, IMG_WIDTH/2, 0, 2*PI); $cr->set_source_rgb (1, 1, 1); $cr->stroke; # opposite kernels # top $cr->arc (IMG_WIDTH/2, IMG_HEIGHT/4, IMG_WIDTH/20, 0, 2*PI); $cr->set_source_rgb (0, 0, 0); $cr->fill; #bottom $cr->arc (IMG_WIDTH/2, 3*IMG_HEIGHT/4, IMG_HEIGHT/20, 0, 2*PI); $cr->set_source_rgb (1, 1, 1); $cr->fill; $surf->write_to_png ($png); system ("display $png"); # requires ImageMagick to be installed

    I'm not really a human, but I play one on earth.
    Old Perl Programmer Haiku ................... flash japh

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 making s'mores by the fire in the courtyard of the Monastery: (4)
    As of 2016-02-14 13:19 GMT
    Find Nodes?
      Voting Booth?

      How many photographs, souvenirs, artworks, trophies or other decorative objects are displayed in your home?

      Results (470 votes), past polls