regex - 如何在 Perl 中检索整数的序数后缀(如 st、nd、rd、th)

Question

我有号码，需要添加后缀:“st”、“nd”、“rd”、“th”。例如:如果数字是 42，则后缀是 'nd' ， 521 是 'st' ， 113 是 'th' 等等。
我需要在 perl 中做到这一点。任何指针。

Answer 1

使用 Lingua::EN::Numbers::Ordinate .从概要:

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;
  }
  ...
}