ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Nikolay Pichtin                      2:5056/30      12 Sep 2002  19:57:04
 To : Alexander Titaev
 Subject : Re: count
 -------------------------------------------------------------------------------- 
 

 
  AT>>     ни как сообразить не могу как посчитать регексом подряд идущие
  AT>>     согласные в слове...
 
  AC> 0. Что значит "посчитать"? Если бы там была ровно одна такая
  AC>    последовательность, было бы понятно. Так - нет.
  AC> 1. И на каком языке?
 
 Hаверно ты про русский имел ввиду?
 У меня вот что получилось:
 
 use strict;
 
 my $text = "Длинношеее животное из Африки. Касса.";
 #my @w = ('а','е','ё','и','й','о','у','ш','щ','э','ю','я');
 # Hа всякий случай гласные буквы
 my @w =('б','в','г','д','ж',
 'з','к','л','м','н','п','р',
 'с','т','х','ц','ч','ь','ы','ъ');
 
 foreach my $l(@w) {
  if ($text =~ /($l{2,})/i) {
   my $sum = length $1;
   print "Ok! $l - $sum\n";
  }
 }
 * Этого в книжке нету, это я сам придумал.
 -- Hиколай
 ----------------------------------------------------------------------
 ---
  * Origin: Истина - это вовсе не то, что можно убедительно доказать (2:5056/30)
 
 

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

Тема:    Автор:    Дата:    Re: count   Nikolay Pichtin   12 Sep 2002 19:57:04   Re: count   vilfred   14 Sep 2002 13:08:57