<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<p>Дальнейшие эксперименты дали совсем странное.</p>
<p>use utf8::all;<br>
</p>
<p>как и <br>
</p>
<p>use open ':std', ':encoding(UTF-8)';<br>
</p>
<p>приводят к тому, что на всех машинах оно ломается и начинает
выдавать перекод. <br>
</p>
<p>Кажется, вот эта строка</p>
<p> $handle->print(encode('UTF-8', $msg)) or croak "Can't write
to log: $!";<br>
</p>
<p>в Mojo::Log написана, прямо скажем, не подумавши, и приводит к
двойному перекодированию.<br>
</p>
<br>
<div class="moz-cite-prefix">06.10.2018 17:33, Ксения Боброва пишет:<br>
</div>
<blockquote type="cite"
cite="mid:CAO_8yzcCpP1u2VYPLSe9OqW5Tu2Qb7GTfreBJZvxvC5k48-8aA@mail.gmail.com">
<meta http-equiv="content-type" content="text/html; charset=utf-8">
<div dir="ltr">А куда он пишет, в STDERR или STDOUT?
<div><br>
</div>
<div>Не пробовали <span class="gmail-pln"
style="font-family:inherit;font-style:inherit;font-variant:inherit;font-weight:inherit;white-space:inherit;background-color:rgb(239,240,241);font-size:13px;margin:0px;padding:0px;border:0px;font-stretch:inherit;line-height:inherit;vertical-align:baseline;box-sizing:inherit;color:rgb(48,51,54)">binmode</span><span
class="gmail-pun"
style="font-family:inherit;font-style:inherit;font-variant:inherit;font-weight:inherit;white-space:inherit;background-color:rgb(239,240,241);font-size:13px;margin:0px;padding:0px;border:0px;font-stretch:inherit;line-height:inherit;vertical-align:baseline;box-sizing:inherit;color:rgb(48,51,54)">(</span><span
class="gmail-pln"
style="font-family:inherit;font-style:inherit;font-variant:inherit;font-weight:inherit;white-space:inherit;background-color:rgb(239,240,241);font-size:13px;margin:0px;padding:0px;border:0px;font-stretch:inherit;line-height:inherit;vertical-align:baseline;box-sizing:inherit;color:rgb(48,51,54)">STDERR</span><span
class="gmail-pun"
style="font-family:inherit;font-style:inherit;font-variant:inherit;font-weight:inherit;white-space:inherit;background-color:rgb(239,240,241);font-size:13px;margin:0px;padding:0px;border:0px;font-stretch:inherit;line-height:inherit;vertical-align:baseline;box-sizing:inherit;color:rgb(48,51,54)">,</span><span
class="gmail-pln"
style="font-family:inherit;font-style:inherit;font-variant:inherit;font-weight:inherit;white-space:inherit;background-color:rgb(239,240,241);font-size:13px;margin:0px;padding:0px;border:0px;font-stretch:inherit;line-height:inherit;vertical-align:baseline;box-sizing:inherit;color:rgb(48,51,54)">
</span><span class="gmail-str"
style="font-family:inherit;font-style:inherit;font-variant:inherit;font-weight:inherit;white-space:inherit;background-color:rgb(239,240,241);font-size:13px;margin:0px;padding:0px;border:0px;font-stretch:inherit;line-height:inherit;vertical-align:baseline;box-sizing:inherit;color:rgb(125,39,39)">":utf8"</span><span
class="gmail-pun"
style="font-family:inherit;font-style:inherit;font-variant:inherit;font-weight:inherit;white-space:inherit;background-color:rgb(239,240,241);font-size:13px;margin:0px;padding:0px;border:0px;font-stretch:inherit;line-height:inherit;vertical-align:baseline;box-sizing:inherit;color:rgb(48,51,54)">)
и </span><span class="gmail-pln"
style="font-family:inherit;font-size:13px;font-style:inherit;font-variant:inherit;font-weight:inherit;white-space:inherit;background-color:rgb(239,240,241);margin:0px;padding:0px;border:0px;font-stretch:inherit;line-height:inherit;vertical-align:baseline;box-sizing:inherit;color:rgb(48,51,54)">binmode</span><span
class="gmail-pun"
style="font-family:inherit;font-size:13px;font-style:inherit;font-variant:inherit;font-weight:inherit;white-space:inherit;background-color:rgb(239,240,241);margin:0px;padding:0px;border:0px;font-stretch:inherit;line-height:inherit;vertical-align:baseline;box-sizing:inherit;color:rgb(48,51,54)">(</span><span
class="gmail-pln"
style="font-family:inherit;font-size:13px;font-style:inherit;font-variant:inherit;font-weight:inherit;white-space:inherit;background-color:rgb(239,240,241);margin:0px;padding:0px;border:0px;font-stretch:inherit;line-height:inherit;vertical-align:baseline;box-sizing:inherit;color:rgb(48,51,54)">STDOUT</span><span
class="gmail-pun"
style="font-family:inherit;font-size:13px;font-style:inherit;font-variant:inherit;font-weight:inherit;white-space:inherit;background-color:rgb(239,240,241);margin:0px;padding:0px;border:0px;font-stretch:inherit;line-height:inherit;vertical-align:baseline;box-sizing:inherit;color:rgb(48,51,54)">,</span><span
class="gmail-pln"
style="font-family:inherit;font-size:13px;font-style:inherit;font-variant:inherit;font-weight:inherit;white-space:inherit;background-color:rgb(239,240,241);margin:0px;padding:0px;border:0px;font-stretch:inherit;line-height:inherit;vertical-align:baseline;box-sizing:inherit;color:rgb(48,51,54)"> </span><span
class="gmail-str"
style="font-family:inherit;font-size:13px;font-style:inherit;font-variant:inherit;font-weight:inherit;white-space:inherit;background-color:rgb(239,240,241);margin:0px;padding:0px;border:0px;font-stretch:inherit;line-height:inherit;vertical-align:baseline;box-sizing:inherit;color:rgb(125,39,39)">":utf8"</span><span
class="gmail-pun"
style="font-family:inherit;font-size:13px;font-style:inherit;font-variant:inherit;font-weight:inherit;white-space:inherit;background-color:rgb(239,240,241);margin:0px;padding:0px;border:0px;font-stretch:inherit;line-height:inherit;vertical-align:baseline;box-sizing:inherit;color:rgb(48,51,54)">)
?</span></div>
</div>
<br>
<div class="gmail_quote">
<div dir="ltr">сб, 6 окт. 2018 г. в 15:45, Alex Povolotsky via
Moscow-pm <<a href="mailto:moscow-pm@pm.org"
moz-do-not-send="true">moscow-pm@pm.org</a>>:<br>
</div>
<blockquote class="gmail_quote" style="margin:0 0 0
.8ex;border-left:1px #ccc solid;padding-left:1ex">Добрый день<br>
<br>
Обнаружил, что Mojo::Log у меня не пишет русские буквы<br>
<br>
<br>
=== cut mojolog ===<br>
<br>
#!/usr/bin/env perl<br>
use strict;<br>
use utf8;<br>
use Mojo::Log;<br>
my $log = new Mojo::Log;<br>
print "Просто принт\n";<br>
$log->info('тест лога');<br>
=== cut mojolog ===<br>
<br>
% perl mojolog<br>
Просто принт<br>
[Sat Oct 6 15:22:43 2018] [info] �е�� лога<br>
<br>
В попытках разобраться, обнаружил, что на трех других серверах
этот <br>
скрипт работает адекватно.<br>
<br>
Версия ОС везде FreeBSD 11.1 или 11.2. Perl 5.26. Mojolicous
8.00 или <br>
7.88. LANG везде ru_RU.UTF-8.<br>
<br>
Что это может быть? Попробовал на проблемной машине обновить
перл, <br>
пересобрал все модули с бинарниками, эффекта никакого.<br>
<br>
--<br>
<br>
Alex<br>
-- <br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org" target="_blank"
moz-do-not-send="true">moscow-pm@pm.org</a> | <a
href="http://moscow.pm.org" rel="noreferrer" target="_blank"
moz-do-not-send="true">http://moscow.pm.org</a><br>
</blockquote>
</div>
<br clear="all">
<div><br>
</div>
-- <br>
<div dir="ltr" class="gmail_signature"
data-smartmail="gmail_signature">
<div dir="ltr">
<div>
<div dir="ltr">
<div>Ksenia Bobrova</div>
<br>
</div>
</div>
</div>
</div>
</blockquote>
<br>
</body>
</html>