каКУю хренотУ наДЫБаЛ:
#!/usr/bin/perl
BEGIN{srand(time()^($$+($$<<15)))}
sub randcase {rand(100)<20?"\u$_[0]":"\l$_[0]"}
s/(\w)/randcase($1)/ge;
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
каКУю хренотУ наДЫБаЛ:
#!/usr/bin/perl
BEGIN{srand(time()^($$+($$<<15)))}
sub randcase {rand(100)<20?"\u$_[0]":"\l$_[0]"}
s/(\w)/randcase($1)/ge;