Re: 12 days of Perl?

s/%/ing,/
[download]

gives 339.

Update 335:

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%
[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Comment on Re: 12 days of Perl? Select or Download Code

Replies are listed 'Best First'.
Re^2: 12 days of Perl? by johnaj (Sexton) on Apr 30, 2021 at 22:00 UTC
Wow, that's a clever usage of $@!	[reply]
Re^2: 12 days of Perl? by WithABeard (Beadle) on May 09, 2023 at 12:07 UTC
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: <Reveal this spoiler or all in this thread>	[reply] [d/l]