Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
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 perusing the Monastery: (8)
As of 2015-07-07 10:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (88 votes), past polls