ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Maxim Y. Zinyakov                    2:5065/21      06 Oct 2000  20:48:54
 To : Ђ­в®­ ‡ ©жҐў
 Subject : поменять буквы
 -------------------------------------------------------------------------------- 
 

 
 06 Oct 00 17:49, you wrote to All:
 
  АЗ> $i = 7;
  АЗ> $k = 3;
  АЗ> $l = length($crypt_word);
  АЗ> $crypt_word =~
  АЗ> s/(\w{$k-1}?)(\w{1}?)(\w{$i-$k-1}?)(\w{1}?)(\w{$l-$i}?)/$1$4$3$2$5/;
  АЗ> Hе меняет!
  АЗ> А в чем трабл?
  АЗ> Даже в $1...$5 ничего не заносит...
 
 а если после последнего слеша букву e поставить?
 
 Удачи!
 *Maqs.* [max@surt.sochi.ru]
 
 --- GoldED/LNX 3.0.1
  * Origin: WARNING! System paused: waiting for the miracle... (2:5065/21)
 
 

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

Тема:    Автор:    Дата:    поменять буквы   Ђ­в®­ ‡ ©жҐў   06 Oct 2000 17:49:50   поменять буквы   Maxim Y. Zinyakov   06 Oct 2000 20:48:54   Re: поменять буквы   Artem Chuprina   12 Oct 2000 14:02:54   Re: поменять буквы   Paul Kulchenko   06 Oct 2000 21:44:19