ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  12 Oct 2000  14:02:54
 To : Maxim Y. Zinyakov
 Subject : Re: поменять буквы
 -------------------------------------------------------------------------------- 
 

  АЗ>> $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 ничего не заносит...
 MYZ> а если после последнего слеша букву e поставить?
 
 Она действует только на replace-часть.
 
 -- 
 Счастливо!
   Ран.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

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

Тема:    Автор:    Дата:    поменять буквы   Ђ­в®­ ‡ ©жҐў   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