Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

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
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
Hmm... Hmm...
No replies — Read more | Post response
by chacham
on Mar 19, 2012 at 18:01

    When code is written by the best and the brightest,
    It is likely to be the fastest and the lightest,
    Loops would be the most efficient and tightest,
    And the code would look great overall.

    But if it is written by the rest of us here,
    It may take a little longer for results to appear,
    And some of the logic would not be as clear,
    But it might just work overall.

    The question is then, as you may have guessed,
    Should the writers of code be only the best?
    The answer, of course, is whomever has zest,
    Will always work out overall.

    As long as we admit, we don't know it all,
    (Unless you're a Larry, known as a Wall,)
    And code for the answer the call,
    We ought to be better overall.

    [3/22/2012 fixed typo in last stanza.]

High on PCrack
No replies — Read more | Post response
by stevieb
on Mar 05, 2012 at 23:47
    I spit rhymes fast,
    I'm a poet and a rapper,
    street linguistics I've mastered,
    but then I stumbled onto Perl,
    and became formality's disaster,
    it's a catastrophe,
    for me,
    trying to write Perl poetry,
    imagine me,
    trying to write something sane within Wall's linguistic mastery.
    Guttman, you're in the game, 
    chromatic's logic keeps me sane, 
    the love on PerlMonks keeps me doing it all again...
    it became,
    keeping everything in context,
    I almost lost it before I bought this,
    there's more than one way to keep things,
    too many ways keep me from knowing how I want them.
    Remember reading about references,
    back in the day, 
    merlyn's book with Gilligan crushed my understanding in all ways,
    then it clicked,
    and it all came together,
    those references to Gilligan,
    is what I'll forever remember,
    newbs need to read,
    and write mistakes constantly,
    to get past their insanity,
    they must write crappy code and help others,
    even if they doubt their certainty.
    To give up is failure,
    so just show up with code,
    like you're an anonymonk high on crack,
    and be proud knowing,
    you're just another Perl hacker.
A bit short...
No replies — Read more | Post response
by chacham
on Feb 26, 2012 at 23:12
    I have ~42 writeups! And so i want to say,
    That this is kewl,
    But i'm a fool,
    It just now went away.
Change (my first poem)
No replies — Read more | Post response
by Pseudomander
on Feb 26, 2012 at 08:50
    $I=%wonder=("What"=> "is", "it"=> "all?"); $I.'thought I had it'."I really did"; 'Turns out I';sub Knew{ "Sub Knew, hah, is that even a term?, I'm coining it"; for ($constantly = (each %wonder)){'is greater than the last'; $shifting == $constantly; $always=($shifting == $shifting); $constantly;} "It's";$Never = ($always==True); 'Yet'; $Never=False; #It can't be, things go... "to"; return $Never; 'just how it is';} #Why!? if ($I==Knew("I'd tell you")) { while ($I='Could'){'...Would you listen?';} }
a TGIF poem ... float or real
No replies — Read more | Post response
by zentara
on Feb 10, 2012 at 07:43
    I heard this sage advice somewhere, and it bears repeating on a Friday in the midst of a rugged economy ....
    when life conspires against you, and no longer floats your boat don't waste your time with complaining just get on your back and float

    I'm not really a human, but I play one on earth.
    Old Perl Programmer Haiku ................... flash japh
SuperBowl haiku XLVI
1 direct reply — Read more / Contribute
by zentara
on Feb 04, 2012 at 05:47
    There are recent stories about young people not knowing that XLVI means 46. I bet most such youngsters who saw Superbowl XLVI ads for the first time, must have thought X-tra Large Very Intoxicating :-)
    Roman Numerals are they unicode aware? only the gods know

    I'm not really a human, but I play one on earth.
    Old Perl Programmer Haiku ................... flash japh
Redundant short summary
1 direct reply — Read more / Contribute
by chacham
on Jan 25, 2012 at 14:18
    1. In the beginning, Larry said, "Let there be Perl", and there was Perl.
    2. And many programmers flocked to Perl saying, "Let us do this and that in Perl".
    3. And the programmers wrote sloppy code, and hacked code, and dirty code, and nice code, and all types of code.
    4. And there became more than one way to do it.
a 3D flower made with Perl, for anonymous girl
3 direct replies — Read more / Contribute
by zentara
on Jan 04, 2012 at 08:56
    Awhile back, some girl, I assume, asked how she could make flowers with Perl. Everyone directed her to various ascii art modules or 2d graphics libraries, my personal offering would have been Tk::Zinc generation of petals. That code is quite complicated.

    But as the winter freeze sets in on my camp, I have found an ever-blooming flower, which can be generated with a single line of Perl code. screenshot 1 screenshot 2

    #!/usr/bin/perl use PDL; use PDL::Graphics::TriD; # hit 'q' to exit imag3d [sqrt(rvals(zeroes(50,50))/2)], {Lines=>0};

    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!
  • 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
  • Outside of code tags, you may need to use entities for some characters:
            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 romping around the Monastery: (3)
    As of 2015-01-31 19:55 GMT
    Find Nodes?
      Voting Booth?

      My top resolution in 2015 is:

      Results (260 votes), past polls