in reply to Re: 12 days of Perl?
in thread 12 days of Perl?
why the heredoc, is there an older version of perl that must be supported where simple strings could not be multiline?
this is 333, works on 5.32 atleast:
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: ",$@=$_.$@for split/^/,"partridge in a pear tree. turtle doves and French hens, calling birds, golden rings, geese a-lay% swans a-swimm% maids a-milk% ladies danc% lords a-leap% pipers pip% drummers drumm% "
|
|---|