Wie erhalte ich das Ordinal Suffix einer ganzen Zahl in Perl (wie st, nd, rd, th)

Question

Ich habe Nummer und muss das Suffix hinzufügen: 'st', 'nd', 'rd', 'th'. Also zum Beispiel: wenn die Zahl 42 ist, ist das Suffix "nd", 521 ist "st" und 113 ist "th" und so weiter. Ich muss dies in Perl tun. Irgendwelche Zeiger.

Answer 1

Versuchen Sie folgendes:

my $ordinal; 
if ($foo =~ /(?<!1)1$/) { 
    $ordinal = 'st'; 
} elsif ($foo =~ /(?<!1)2$/) { 
    $ordinal = 'nd'; 
} elsif ($foo =~ /(?<!1)3$/) { 
    $ordinal = 'rd'; 
} else { 
    $ordinal = 'th'; 
} 

Answer 2

Verwendung Lingua::EN::Numbers::Ordinate. Aus der Übersicht:

use Lingua::EN::Numbers::Ordinate; 
print ordinate(4), "\n"; 
# prints 4th 
print ordinate(-342), "\n"; 
# prints -342nd 

# Example of actual use: 
... 
for(my $i = 0; $i < @records; $i++) { 
    unless(is_valid($record[$i]) { 
    warn "The ", ordinate($i), " record is invalid!\n"; 
    next; 
    } 
    ... 
} 

Answer 3

Versuchen Sie, diese kurze Unterprogramm

use strict; 
use warnings; 

sub ordinal { 
    return $_.(qw/th st nd rd/)[/(?<!1)([123])$/ ? $1 : 0] for int shift; 
} 

for (42, 521, 113) { 
    print ordinal($_), "\n"; 
} 

Ausgang

42nd 
521st 
113th 

Answer 4

Hier eine Lösung ist which I originally wrote for a code golf challenge, etwas für die Code-nicht-Golf zu üblichen Best Practices entsprechen neu geschrieben :

$number =~ s/(1?\d)$/$1 . ((qw'th st nd rd')[$1] || 'th')/e; 

Die Art und Weise, wie es funktioniert, ist, dass die Regexp (1?\d)$ die letzte Ziffer der Nummer übereinstimmt, plus die vorangehende Ziffer, wenn es 1 ist. Die Substitution verwendet dann die übereinstimmenden Ziffern als Index für die Liste (qw'th st nd rd'), Abbildung 0 bis th, 1 bis st, 2 bis nd, 3 bis rd und jeden anderen Wert für undef. Schließlich ersetzt der Operator || undef durch th.

Wenn Sie nicht mögen s///e, könnte im Wesentlichen die gleiche Lösung geschrieben werden, z. dies wie:

for ($number) { 
    /(1?\d)$/ or next; 
    $_ .= (qw'th st nd rd')[$1] || 'th'; 
} 

oder als Funktion:

sub ordinal ($) { 
    $_[0] =~ /(1?\d)$/ or return; 
    return $_[0] . ((qw'th st nd rd')[$1] || 'th'); 
} 

Answer 5

eine andere Lösung (obwohl ich mag die bereits existierenden Antworten, die einer Verwendung der Module besser unabhängig sind):

use Date::Calc 'English_Ordinal'; 
print English_Ordinal $ARGV[0];