ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Vadim Tzirulnicov                    2:5020/40.102  08 Dec 2003  21:31:24
 To : Alexander Ilyankin
 Subject : укоротить слово
 -------------------------------------------------------------------------------- 
 

  AI> Каким образом можно укоротить длинное слово ? Вот например имеется
  AI> предложение: "Голосуйте за ЛДПР !!!" Если в предложении есть слово
  AI> больше 7 букв, то берутся первые две буквы с начала и последние две
  AI> буквы с конца, а по середине ставится две точки. "Го..те за ЛДПР !!!"
 
 Это агитация ? Сколько тебе платят за данную рекламу партии ? :)
 
 #!/usr/bin/perl
 print "Content-type:text/html\n\n";
 my $string='Голосуйте за ЛДПР !!!';
 $string=~s/([a-zA-Zа-яА-Я]{2})[a-zA-Zа-яА-Я]{4,}([a-zA-Zа-яА-Я]{2})/$1\.\.$2/g;
 print $string;
 
 ... Windows - вирус с удобным интерфейсом.
 --- Team: [Ru.Znakomstva] [Mo.Apartments] [Mo.Apartments.Talk]
 
 

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

Тема:    Автор:    Дата:    укоротить слово   Alexander Ilyankin   06 Dec 2003 00:54:06   укоротить слово   Vadim Tzirulnicov   08 Dec 2003 21:31:24