Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

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
3 direct replies — Read more / Contribute
by Discipulus
on Mar 21, 2016 at 05:06
    In occasion of first day of Spring* i give you the first issue of perl obfupoetry:

    who can guess the poem without running it?

    #!/usr/bin/perl use strict; use warnings; our @life = (0..70); my $self = { age => $life[int($#life/2)], # #078101108032109101122122111032100101108032099097109109 #105110032100105032110111115116114097032118105116097 # remember => sub{scalar @_}, }; our $wood = { dark=>1, #109105032114105116114111118097105032112101114032117110 #097032115101108118097032111115099117114097 # straight_way => undef, #099104101039032108097032100105114105116116097032118105 #097032101114097032115109097114114105116097046 # # wild=>1, rough=>1, stubborn=>1, inside=>[], }; while ( $self->{'age'} ){ push @{$wood->{'inside'}},$self; if (scalar @$wood{qw(wild rough stubborn)}) { #065104105032113117097110116111032097032100105114032113 #117097108032101114097032101039032099111115097032100117114097 # for (@$wood{qw(wild rough stubborn)}) { #101115116097032115101108118097032115101108118097103103 #105097032101032097115112114097032101032102111114116101 # $self->{'fear'}+= $$self{remember}->($_); #099104101032110101108032112101110115105101114032114105 #110111118097032108097032112097117114097033 # # } } last; } END { seek DATA,0,0; while (<DATA>){ print "\n" if /^#$/; s/^#//; print map {chr 0+$_} ($_=~/\d{3}/g); } } __DATA__


    (*)please do not reply with positivist comments about the exact first day of Spring: seasons always start in day 21: the notion was in my mind when thumbs were still there..


    There are no rules, there are no thumbs..
    Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.
AI Overlords
1 direct reply — Read more / Contribute
by chacham
on Mar 09, 2016 at 09:29

    Gaming live,
    One of five,
    Humanity at one end.
    Each AI,
    Gives a try,
    Lee Se-dol defends.

    DeepBlue beat,
    That old meet,
    Over a decade has passed.
    Joined the show,
    Go-ing very fast.

    Who's to say,
    When's the day,
    AI is overboard.
    I, for one,
    Give welcome,
    To our new overlords.

Don't format my code
2 direct replies — Read more / Contribute
by dmitri
on Feb 26, 2016 at 15:35
    If you take perltidy to my code,
    Я тебя поймаю и прибью, урод!
Happy Monkday
2 direct replies — Read more / Contribute
by chacham
on Oct 27, 2015 at 10:38

    Today when i logged in,
    My clicking yet to begin,
    Today is a fun day,
    It said, "Happy Monkday!!1!"
    I was welcomed with a grin.

    To say it with such elation,
    That's the points of exclamation,
    Enclosing a number 1,
    A shift, meant for fun,
    The key to successful formation.

    "You've been here 4 stimulating years."
    The numeric pun, leaves me in tears,
    (It'd be better to double,
    But that's too much trouble),
    The Monastery, where monks are your peers.

    It warns me, "Don't panic!"
    (Do they think that i'm manic?)
    The greeting was cursory
    It's just an anniversary
    And the greeting is pleasantly organic.

My Perl
No replies — Read more | Post response
by Anonymous Monk
on Oct 25, 2015 at 21:39
    Print ("I Love Perl");
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

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 chanting in the Monastery: (13)
    As of 2018-08-20 16:09 GMT
    Find Nodes?
      Voting Booth?
      Asked to put a square peg in a round hole, I would:

      Results (192 votes). Check out past polls.