Исходное сообщение
"websocket(серверная часть - perl)" Отправлено ЫЫ, 28-Апр-16 00:58
http://perldoc.perl.org/Digest/SHA.html By convention, CPAN Digest modules do not pad their Base64 output.          while (length($b64_digest) % 4) {             $b64_digest .= '=';         } > Так работает - > >    use MIME::Base64; >    $Key = MIME::Base64::encode(sha1($data)); >

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> http://perldoc.perl.org/Digest/SHA.html > By convention, CPAN Digest modules do not pad their Base64 output. > [code] while (length($b64_digest) % 4) { > $b64_digest .= '='; > } > [/code] >> Так работает - >> [code] >> use MIME::Base64; >> $Key = MIME::Base64::encode(sha1($data)); >> [/code]
	Введите код, изображенный на картинке: