Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

12 days of Perl?

by johnaj (Sexton)
on Apr 30, 2021 at 02:03 UTC ( [id://11131906]=poem: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    for(<DATA>){s/%/ing/;$_=($i++?$i-1+print"
    ":a)." $_";print"On the $i",(st,nd,rd)[$i-1]||th," day of Christmas,
    ...
    lords a-leap%,
    pipers pip%,
    drummers drumm%,
    
  2. or download this
    On the 1st day of Christmas,
    my true love gave to me:
    ...
    3 French hens,
    2 turtle doves and
    a partridge in a pear tree.
    
  3. or download this
    -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
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: poem [id://11131906]
Approved by kcott
Front-paged by Discipulus
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others meditating upon the Monastery: (4)
As of 2024-04-19 22:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found