Архив за день: 23.04.2014

Дюжина

12 лет назад по доставшемуся от Романа Ткаченко пригласительному коду (с условием, что буду писать, а не только читать) я пришёл в Живой журнал и за прошедшее время написал почти пять тысяч записей и больше двадцати тысяч комментариев (ой!)

Сейчас я пишу не в ЖЖ, а на shoorick.ru — с октября 2013 года новые записи появляются именно там, а в ЖЖ и социальных сетях — автоматически отправляемые копии. Старые записи ещё не перенесены — пока живут в ЖЖ.

Отображение закодированной кириллицы в отладчике

Перловый модуль  Data::Dumper, который умеет преобразовывать хитро завёрнутые структуры данных (хотя всякие умеет) в вид, хоть как-то пригодный для чтения, а также Data::Dumper::Perltidy, который делает этот вид ещё лучше, избавляя получившийся текст от безумного количества пробелов. Однако кириллица, добытая при преобразовании JSON-файла в перловый объект, выводится последовательностями видав последовательностями вида \x{43e}\x{43f}\x{430}.

Один из возможных путей обхода — расшифровывать: можно объявить функцию

sub unx {
    my @out;
    while ( local $_ = shift ) {
        s/\\x\{([0-9a-z]+)\}/chr hex $1/ge;
        push @out, $_;
    }
    return @out;
}

и потом её вызывать:

print unx '\x{421}\x{442}\x{430}\x{440}\x{448}\x{438}\x{439}';

Можно, записав её в одну строку, применять её и в отладчике:

  DB‹1› sub unx{my@out;while(local$_=shift){s/\\x\{([0-9a-z]+)\}/chr hex $1/ge;push@out,$_}return@out}
  DB‹2› p unx '\x{421}\x{442}\x{430}\x{440}\x{448}\x{438}\x{439}

С другой стороны, объекту, объявленному в модуле JSON, вроде, можно указать, как отображать не-ASCII данные:

my $json = JSON->new->ascii(0)->utf8;

Однако на преобразование JSON в объект это не влияет.

Апрельский снег, почти что майский

И о погоде: в Челябинской области ожидаются дождь со снегом и сильный ветер

Днем в четверг, 24 апреля, ночью и днем в пятницу, 25 апреля, при прохождении атмосферного фронта в отдельных районах области ожидаются сильные осадки в виде дождя, переходящего в снег. Возможно налипание мокрого снега на провода, гололед, усиление ветра до 20–25 м/с, резкое понижение температуры воздуха. А 25 апреля ожидается установление временного снежного покрова.

По данным челябинского гидрометцентра, днем 24 апреля температура воздуха будет на отметке +7…+12, на юге до +17, в горах +1…+6 градусов, ветер юго-западный с переходом на северо-восточный 7–12 порывы 20–25 м/с. 25 апреля в большинстве районов Челябинской области пройдет снег, местами сильный, температура воздуха ночью +2…-3, при прояснении до -8 градусов, днем ветер северный, северо-западный 6–11 отдельные порывы 13–18 м/с.

Значит, практика подтверждает сформировавшееся за много лет правило: менять зимнюю резину на летнюю надо в начале мая. Раньше — не надо.