Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

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.
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.
The wise coder
2 direct replies — Read more / Contribute
by hippo
on Jan 22, 2019 at 14:14
    The wise coder will never pipe grep into awk
    For unneeded processes cause neighbours to talk.
    The wise coder will never type cat file | foo
    Unless they want a UUoCA too.
    The wise coder will never discard output from backticks
    As that displays ignorance of better tactics.
    The wise coder won't shell out to grep, awk or sed
    Since no JAPH would be seen doing that, dead.

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 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 chanting in the Monastery: (5)
As of 2021-12-02 09:49 GMT
Find Nodes?
    Voting Booth?
    R or B?

    Results (18 votes). Check out past polls.