Re: English Date-Suffixes

[petral]

in reply to English Date-Suffixes

And qw(0 st nd rd)[pop=~/(1?.)$/]or"th"
will do any integer.


Note that for pre-5.6 perl you have to do (qw(...))[index]
because qw was translated into  split' ','...' during compilation.

  p

[mtve]

small improvement:

(0,st,nd,rd)[pop=~/1?./g]||th

[petral]

Wow, didn't know about dropping the qw!
Why does the ||th  lead to only returning the last value from the /1?./g -indexed list?

Update:  I see, it becomes a comma list which returns the last value ("the result of the last expression").
see, A list returns its last, an array returns its weight

  p