ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrew Alakozow 2:5061/6 13 Oct 2004 18:21:50
To : Ivan Frolkov
Subject : Re: функция xor для каждого элемента строки
--------------------------------------------------------------------------------
AP>> join "",map { chr ($_^0xff) } split //,$str
IF> Жуть вампирная (да еще и неправильно). А правильно так:
IF> $str =~ s/(.)/chr(ord($1) ^ 0xff)/ge;
В твоем варианте модификатора s не хватает.
$str ^ "\377" x length $str; # для однобайтовой кодировки
aa29
--- Microsoft Outlook Express 6.00.2720.3000
* Origin: Life In The Dark (2:5061/6)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
