ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ђ­в®­ ‡ ©жҐў                         2:5020/400     06 Oct 2000  17:49:50
 To : All
 Subject : поменять буквы
 -------------------------------------------------------------------------------- 
 

 Вот допустим надо поменять буквы в слове местами.
 Пишу:
 
 $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 ничего не заносит...
 
 Поможите люди добрые.
 
 Антон
 --- ifmail v.2.15dev5
  * Origin: RIPN/Russia (2:5020/400)
 
 

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

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