http://qs321.pair.com?node_id=1590
"Poetry" is in the eye of the beholder; it could be any of:
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

    Perlimerick

    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.

    Blessings,

    ~Polyglot~

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?

    Maybe:

    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 12days.pl -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 12days.zip

    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 :)
    
    
    

    L*

    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__

    L*

    (*)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
Title:
Text:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":