Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Zen And The Art Of Perl Poetry

by webfiend (Vicar)
on May 30, 2002 at 19:21 UTC ( #170492=poem: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    $youngMan = YoungMan->new( -from => "Nantucket" );
  2. or download this
    if ($you{understand}) {
        @things = qw(such as they are);
    else {
        @things = qw(such as they are);
  3. or download this
    use strict;
    elsif (not $you{understand}) {
        @things = @things;
  4. or download this
    @things = @things if $you{understand};
    @things = @things if not $you{understand};
  5. or download this
    @things = ($you{understand}) ? @things : @things;
  6. or download this
    @things = @things;
  7. or download this
  8. or download this

  9. or download this
    $ perl -e ''

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://170492]
Approved by virtualsue
Front-paged by grep
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (6)
As of 2015-10-09 18:56 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (250 votes), past polls