ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexey Mahotkin                      2:5020/400     29 Feb 2004  00:08:19
 To : Nikolay Pichtin
 Subject : Re: Суффикс
 -------------------------------------------------------------------------------- 
 

 >>>>> "NP" == Nikolay Pichtin <Nikolay.Pichtin@f30.n5056.z2.fidonet.org> writes:
 
  NP> Есть ли такой модуль, чтобы подставлять окончания Hапример, - 100
  NP> файлОВ - 1 файл - 2 файлА
 
 руками пишется за шесть минут.
 
 sub plural_accusative {
   my $class = shift;
   my $n = shift;
   my ($thing1, $thing2, $thing5) = @_;
 
   return $thing1 if $n == 0;
 
   my $n1 = $n % 100;
   return $thing5 if (($n1 >= 11) && ($n1 <= 19));
 
   my $n2 = $n % 10;
   return $thing2 if (($n2 >= 2) && ($n2 <= 4));
 
   return $thing1 if ($n2 == 1);
 
   return $thing5;
 }
 Вызывается как plural_accusative($n, "файл", "файла", "файлов");
 
 --alexm
 --- ifmail v.2.15dev5.3
  * Origin: tyranny (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Суффикс   Nikolay Pichtin   27 Feb 2004 23:37:11   Re: Суффикс   Alexey Mahotkin   29 Feb 2004 00:08:19   Re: Суффикс   Nikolay Pichtin   29 Feb 2004 10:24:21