Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: English Date-Suffixes

by petral (Curate)
on Nov 07, 2002 at 15:43 UTC ( #211093=note: print w/ replies, xml ) Need Help??


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


Comment on Re: English Date-Suffixes
Select or Download Code
Re: Re: English Date-Suffixes
by mtve (Chaplain) on Nov 10, 2002 at 09:36 UTC

    small improvement:

    (0,st,nd,rd)[pop=~/1?./g]||th
      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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://211093]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (10)
As of 2014-10-31 18:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (223 votes), past polls