ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Nikolay Pichtin                      2:5056/30      29 Feb 2004  10:24:21
 To : Alexey Mahotkin
 Subject : Re: Суффикс
 -------------------------------------------------------------------------------- 
 

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

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

Тема:    Автор:    Дата:    Суффикс   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