Nth

This subroutine will convert numbers (1) into placings (1st) then return it.

sub nth {
        my $num = $_[0];
        if ($num > 10 && $num < 20) {
                my $r = $num . "th";
                return $r;
        } else {
                my $end = substr($num, -1);
                if($end == 1) { return $num . "st"; }
                elsif($end == 2) { return $num . "nd"; }
                elsif($end == 3) { return $num . "rd"; }
                else { return $num . "th"; }
        }
}
[download]

Comment on Nth Download Code

Replies are listed 'Best First'.
RE: Nth by merlyn (Sage) on May 02, 2000 at 02:22 UTC
Seen at my webtechniques non-visitor counter: `$VISITOR = int rand 100_000; { next if $VISITOR =~ s/1\d$/$&th/; # 10-19 next if $VISITOR =~ s/1$/1st/; # 1 next if $VISITOR =~ s/2$/2nd/; # 2 next if $VISITOR =~ s/3$/3rd/; # 3 next if $VISITOR =~ s/\d$/$&th/; # everything else }` [download] -- Randal L. Schwartz, Perl hacker	[reply] [d/l]

Replies are listed 'Best First'.

RE: Nth
by merlyn (Sage) on May 02, 2000 at 02:22 UTC

my webtechniques non-visitor counter

$VISITOR = int rand 100_000;
{
  next if $VISITOR =~ s/1\d$/$&th/; # 10-19
  next if $VISITOR =~ s/1$/1st/; # 1
  next if $VISITOR =~ s/2$/2nd/; # 2
  next if $VISITOR =~ s/3$/3rd/; # 3
  next if $VISITOR =~ s/\d$/$&th/; # everything else
}
[download]

-- Randal L. Schwartz, Perl hacker

[reply]
[d/l]

Back to Cool Uses for Perl