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
contentment, finally
1 direct reply — Read more / Contribute
by silent11
on Oct 14, 2021 at 17:57

    i visit this site, about once a year

    nostalga burns bright, then fades into fear

    same questions posted, like back in the day

    chatterbox quiet, not much to say()

    life is a cycle, times they move fast

    but joy's found looking forward, not in the past

    I'm finally content, 2 decades hence

    resigned this will __END__, t'was quite the experience

    like your favorite module, lastly return true

    1; is so boring, end yours "with whatever you want to";

A pensive musing...
No replies — Read more | Post response
by Polyglot
on Aug 31, 2021 at 09:55


    Perl, once my ally, threatens now to become my nemesis.
    Without her, perhaps, I'd be in line for a new genesis.
         But such is the enigma
         That she would bring such stigma
    And place me, unexpectedly, into such antithesis.



fine as you go
No replies — Read more | Post response
by Anonymous Monk
on Jun 23, 2021 at 06:01
    perl - what are you on about? me - you've led me so deep in the mire how are either of us to know? use lib '.'; use soandso; there happens to be a dirth of package soandso anywhere yet we merrily + whizz along
Regex On Your Tombstone?
12 direct replies — Read more / Contribute
by McD
on May 19, 2021 at 10:15

    Hello Monastery - long time, no see.

    As the Brothers here grow old and gray (or grey, I suppose - TMTOWTDI), we must surely be contemplating the eternal.

    Leading me to wonder this morning... What's a good regular expression for your tombstone?


    die "Normal termination" if /life$/;

    Share your best idea!

12 days of Perl?
4 direct replies — Read more / Contribute
by johnaj
on Apr 29, 2021 at 22:03

    I've been working on an exercise to generate the English "Twelve days of Christmas song". So far, I've come up with the following:

    for(<DATA>){s/%/ing/;$_=($i++?$i-1+print" ":a)." $_";print"On the $i",(st,nd,rd)[$i-1]||th," day of Christmas, my true love gave to me: ",$t=$_.$t}__DATA__ partridge in a pear tree. turtle doves and French hens, call% birds, golden rings, geese a-lay%, swans a-swimm%, maids a-milk%, ladies danc%, lords a-leap%, pipers pip%, drummers drumm%,

    That generates the following text:

    My script is 343 bytes, which is better than zip and tar+gzip but worse than gzip:

    -rw-r--r-- 1 john john 294 May 1 13:29 12days.gz -rw-r--r-- 1 john john 343 Apr 30 04:00 -rw-r--r-- 1 john john 370 May 1 13:30 12days.tar.gz -rw-r--r-- 1 john john 2169 May 1 13:29 12days.txt -rw-r--r-- 1 john john 439 May 1 13:30

    Does anybody have a shorter solution? For simplicity's sake, I've limited the challenge to digits rather than written numbers.

Binary Comedy -- 01 - 000001
No replies — Read more | Post response
by Discipulus
on Apr 07, 2021 at 12:32
                                                                               to my father, sure of his pardon :)


    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.
@ISA happy memory
1 direct reply — Read more / Contribute
by silent11
on Feb 10, 2021 at 19:18
    I don't post logged in,
    socials link to my handle.
    I return every few years,
    get filled with nostalgia.
    Now back to work,
    to do whatever.
    But not with my Perl,
    not today, and likely not ever.
Perl Saroyan
1 direct reply — Read more / Contribute
by Anonymous Monk
on Sep 11, 2020 at 20:56
    perl -e 'use Time::HiRes qw(usleep); foreach $i (1..145) { print join("", (" " x 72)) . "crickets\n"; usleep 550000 }'
the road ahead
1 direct reply — Read more / Contribute
by Anonymous Monk
on Oct 14, 2019 at 04:25
    perl -le'$_=`perldoc -T perlfaq4`,s/^.*N;(.*?)E.*$/$1/s,print'
obfupoetry II
1 direct reply — Read more / Contribute
by Discipulus
on Mar 21, 2019 at 04:46
    In occasion of first day of Spring* i give you the second issue of perl obfupoetry:

    How:to:forget:when:I:was:young: join ' had ', (glob'spr{a,e,i,o,u}ng')[2,4]; Now:I:get:in:the:middle:of: join ' and ', (glob'Y{i,a}n{,g}')[0,-1]; and:I:remember:it:was:a:bang: seek DATA,0,0;while(<DATA>){last if/DATA/; chomp&&print/:/?(join$",split':',$_):eval,$/} __DATA__


    (*)please do not reply with positivist comments about the exact first day of Spring: seasons always start in day 21: the notion is in my mind since..

    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.

Add your poem
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":

  • Are you posting in the right place? Check out Where do I post X? to know for sure.
  • Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
    <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
  • Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
  • Want more info? How to link or How to display code and escape characters are good places to start.
Log In?

What's my password?
Create A New User
Domain Nodelet?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (5)
As of 2022-11-28 21:36 GMT
Find Nodes?
    Voting Booth?