Re: 12 days of Perl?

s/%/ing,/
[download]

gives 339.

Update 335:

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: `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]	[reply] [d/l]