Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: English Date-Suffixes

by petral (Curate)
on Nov 07, 2002 at 15:43 UTC ( [id://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

Replies are listed 'Best First'.
Re: Re: English Date-Suffixes
by mtve (Deacon) 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
Domain Nodelet?
Node Status?
node history
Node Type: note [id://211093]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others avoiding work at the Monastery: (5)
As of 2024-03-19 09:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found