99 бутылок: Batsh, VIM script

Потихоньку возобновил наполнение раздела «99 бутылок пива на стене» — тут я пишу американскую считалочку про пиво на различных языках программирования. Добавились языки VIM script и Batsh. Первый используется в консольном редакторе vim для написания внутренних скриптов, второй — для кроссплатформенного написания шелл-скриптов.

Batsh мне вообще понравился своей идеей — простой Си-подобный язык, который умеет транслироваться и в баш (Линукс, МакОС и так далее) и в бат-файлы (Виндоуз). Не уверен нужно ли это в жизни, но абстрактно идея хороша.

50. Batsh — чрезвычайно лёгкий в освоении язык с Си-подобным синтаксисом, который умеет транслироваться в баш- и бат-скрипты, т. е. скрипты, которые будут без проблем работать и в мире Линукса, и в мире Виндоуз. Язык без особых затей, работает, похоже, железобетонно, но бедноват — даже обычного цикла for в нём нет. В общем набор минимальный (хотя рекурсия есть), но программировать можно.

// Песня о пиве на языке Batsh Степанищева Евгения

function bottles(bottle){
    if (bottle == 0) {
        return "no bottles";
    }
    
    if (bottle == 1) {
        return "1 bottle";
    }
    
    return bottle ++ " bottles";
}

i = 99;
while (i > 0) {
    b = bottles(i) ++ " of beer";

    println(b, "on the wall,", b ++ ".");
    i = i - 1;
    println("Take one down and pass it around,", bottles(i), "of beer on the wall.\n");
};

println("No more bottles of beer on the wall, no more bottles of beer.");
println("Go to the store and buy some more, 99 bottles of beer on the wall.");


49. VIM Script — встроенный скриптовый язык программирования консольного редактора VIM. Синтаксис довольно обычен, учится легко. Мощный для своего класса — обилие встроенных функций, довольно согласованный синтаксис, различные типы массивов. Есть интересные особенности, например, возможность явного переопределения функций, префиксы переменных для явного определения зоны видимости (например, префикс «a:» у меня в функции — это аргументы) или функции, которые могут принимать что-то вроде примитивного итератора.

" написал Евгений Степанищев bolknote.ru"

:function Bottles(bottle)
:    return get(["no bottles", "1 bottle"], a:bottle, a:bottle . " bottles")
:endfunction

:for beer in range(99, 1, -1)
:   let b =  Bottles(beer) . " of beer"
:   echo b "on the wall," b . "."
:   echo "Take one down and pass it around, " . Bottles(beer-1) . " of beer on the wall.\n"
:endfor

:echo "No more bottles of beer on the wall, no more bottles of beer."
:echo "Go to the store and buy some more, 99 bottles of beer on the wall."

4 комментария

Недвижимая лестница

Недвижимая лестница (188.87КиБ)

Когда мы с женой несколько лет назад были в Иерусалиме, около храма Гроба Господня, возможно я и видел на карнизе эту деревянную лестницу, но внимания точно не обратил — ну мало ли строительного инвентаря встречается у храмов? Я специально не стал вырезать из фото нужное место, чтобы было заметно насколько не цепляется глаз за эту деталь.

Оказывается, эта лестница стоит там по меньшей мере с 1834 года. Причина того, что она простояла там так долго — договорённость шести конфессий, владеющих храмом — ничего не менять, не двигать, не ремонтировать в храме без согласия всех шести владельцев.

На всех фотографиях этого храма, я с тех пор как узнал эту историю, обязательно замечаю эту лестницу.

2 комментария

Memcached и UDP

Когда я написал про поддержку модулем Мемкешед для ПХП протокола UDP, я ещё не знал многих подробностей. Например, я думал, что ребятам из Мемкешед чем-то не понравился TCP/IP и они написали поверх UDP свой протокол гарантированной доставки. В приципе, так бывает, например так работает гугловский «КВИК».

Оказывается ничего подобного — UDP нужен только тогда, когда вас устраивает негарантированная доставка, т. е. вы швырнули пакет, а дойдёт ли он до кеша — неважно, при чтении это будет считаться промахом кеша.

В интернете есть статья, которая кратко раскрывает что это даёт, в ней же приводится патч «multi UDP», который Мемкешеду уже не нужен — я смотрел в код, всё там нормально давно.

Кстати, обнаружились две подробности в поддержке UDP модулем Мемкешед ПХП. Во-первых, указывать в конструкторе persistent_id нельзя — ничего работать не будет без каких-либо ошибок. Во-вторых, реализована только операция записи (при попытке сделать get получим ошибку ACTION NOT SUPPORTED), читать придётся через TCP/IP.

Работоспособный тест выглядит так:

$m = new Memcached('SomeID');
$m->addServer('127.0.0.1', 11211, 1);

$m_udp = new Memcached();
$m_udp->setOption(Memcached::OPT_USE_UDP, true);
$m_udp->addServer('127.0.0.1', 11211, 1);

var_dump($m_udp->set('foo', "test string"));
sleep (1);
var_dump($m->get('foo'));

Оставить комментарий

Сцорпероба

«Сцорпероба» — в дословном переводе означает «ровные по цвету». Молодой мужчина может в своей деревне выбрать себе девушку «ровней» конечно только с ее личного согласия. Это означает, что у них могут быть романтические отношения, он может ей дарить подарки, а она например вязать для него одежду и прочее.

Они могут и физически касаться друг друга, если желают, в том числе, и целоваться, и спать вместе, но только в одежде. Мужчина не смеет иметь с ней сексуального контакта и она тоже не вправе этого допускать. Их ноги и животы в то время, когда они спят вместе, не должны соприкасаться, можно только грудью и лицами.

Как правило, у этих пар платонические отношения и вечера, и ночи они проводят в беседе о радости жизни. А под утро засыпают или спиной друг к другу, или мужчина на спине, а женщина на грудь кладет ему голову. Когда наступает утро, есть правило, что женщина подает своему «ровне» рог водки (в горной Грузии нет виноградников, и там нет культуры вина как в долинной) и еду, он выпивает, благодарит и уходит по делам. Ровни не могут женится и создать семью, они должны оставить между собой чистые, романтические отношения.

Цитата из комментариев к видео, где три девушки поют по-грузински песню про двух «ровней».

10 комментариев

Преобразование tnsnames.ora в JSON

По работе сделал разбор файла tnsnames.ora — файла оракловой конфигурации на ПХП в массив:

function Ora2Array($str)
{
    // убираю комментарии
    $str = preg_replace('/^\s*#.*$/m', '', $str);

    // преобразование скаляров
    $str = preg_replace('/\((\w+)\s*=\s*([^()]+)\)/m', '"$1": "$2", ', $str);

    // преобразование ассоциативных массивов
    do {
        $str = preg_replace('/\((\w+)\s*=\s*([^()]+?)[\s,]*\)/sS', '"$1": { $2 },', $str, -1, $count);
    } while ($count);

    // преобразование верхнеуровневых значений
    $str = preg_replace('/(\w+)\s*=\s*([^()]+?)[\s,]*(?:(?=\w+\s*=)|\s*$)/s', '"$1": { $2 },', $str);

    return json_decode('{' . trim($str, ' ,') . '}', true);
}

Не разбираются значения в кавычках — такого в наших конфигурациях не встречается, но добавляется несложно.

2 комментария

37! ≈ 1,37×10⁴³

13-го сентября рано утром, 37 лет назад родился я. Хорошо, что сегодня этот день я провожу со своей женой, были все шансы провести его в Москве, куда я уехал в четверг в купе №13 поездом по работе, но сегодня ночью я вернулся, сидя в самолёте на 13-м ряду. Забавный символизм.

Я (47.81КиБ)

Итак, что же произошло у меня в жизни за минувший год, с прошлого Дня рождения:

  • я прочитал 44 книги
  • попробовал свои силы в PHPF*ck’е, плотно поработал с поисковым движком «Сфинкса» (в итоге написал поисковик, хранящий данные в памяти на Гоу), написал автоподбиралку для словохвата, заказал себе свитер памяти Стива Джобса, возобновил заполнение раздела «99»
  • добавил в «Неглупый дом» «глазок» на входе в квартиру, фото посетителей
    за дверью, температуру в прихожей, а потом благополучно похоронил проект
  • в очередной раз побывал в Самаре, в первый — на Шри-Ланке, в Армении (в Ереване), Азербайджане (Баку и Гобустане), Испании (в Санта-Сусанне, Рупите, Бесалу, Барселоне и Кастеллфоллите де ла Роса), Андорре (Ордино и Андорра-Ла-Велья) и Франции (в Фуа и Каркассоне)
  • придумал CSS-хаки для IE10 и для Хрома (исключая «Сафари»)
  • купил турник и научился подтягиваться на одной руке, а так же вернул в число своих хобби Pump It Up, купил велосипед и летом ездил на работу на нём, а так же поучился кататься на мотоцикле, но пока не уверен, что это моё
  • стал, наконец, «москвичом» — теперь у нас в собственности с женой есть квартира в пределах МКАД
  • поддержал небритябрь
  • в дереве предков добрался до начала некоторых фамилий, постепенно распутываю клубок, всё бо́льшая часть моих предков причисляется к однодворцам, а так же мои изыскания в некоторых ветках «добили» до 18-го века и, наконец, научился довольно уверенно читать скоропись того времени
  • прошёл генетическое исследование, которое, похоже, оказалось неверным (ещё напишу, когда получу результат)
  • пережил два тяжёлых кризиса (не уверен, что оправился до конца хотя бы от одного)
  • в очередной раз попал на «Баш»
  • пострелял боевыми патронами
  • ощутил свой профессиональный рост — в руководстве процессами
  • в первый раз в жизни перевёл в электронный вид книгу — «Четверо под одной обложкой» Арканова, Горина, Успенского и Камова
    Вцелом, кажется, стал меньше писать в блог и бо́льшую часть своей творческой энергии отдавать в проект, разработкой которого я руковожу — это система облачного документооборота.

25 комментариев

Отключение 4G (LTE) в HTC One

Я тут утопил свой замечательный смартфон «Хайскрин», который живёт неделю на зарядке и временно использую прежний смартфон жены — Эйч-Ти-Си Уан. Вчера сильно расстроился его прожорливостью, но сегодня нашёл способ поправить дела — надо только выключить ЛТЕ. В обычных настройках этого нет, нужно войти в инженерное меню. Для этого надо набрать номер «*#*#4636#*#*», открывшуюся страницу промотать до «Задать предпочитаемый тип сети» и выбрать значение со скриншота.

HTC One без 4G (110.44КиБ)

По сравнению со вчерашним временем работы — просто небо и земля.

4 комментария

Недокументированный Memcached-2

У модуля Мемкешед для ПХП удивительно плохо с документацией, я иногда заглядываю в его исходники, с целью почитать. Недавно наткнулся на очередную опцию, описания которой в документации нет (причём в документации аналогичного модуля для Пайтона она есть).

Оказываются UDP не единственный способ ускорить работу с Мемкешед, если вам скорость важнее результата операции. Способ хорош тем, что используется протокол TCP (т. е. с гарантированной доставкой), но мы не ждём — нам главное, что кеш-сервер переданное получил, а получилось ли записать — дело десятое.

Посмотрите на пример и обратите внимание на опцию OPT_NOREPLY.

$m = new Memcached;
$m->addServer(0, 11211);

$val = str_repeat(file_get_contents('/etc/passwd'), 200);

$m->set('key', $val);
$m->setOption(Memcached::OPT_NOREPLY, true);
$m->setOption(Memcached::OPT_COMPRESSION, false);

$time = microtime(true);
$m->append('key', $val);
echo number_format(microtime(true) - $time, 4, ',', ''), "\n";

Кстати, такое большое (как в примере) значение мне потом обратно прочитать не удалось, видимо превысил какие-то лимиты, так что оно здесь просто для иллюстрации и чтобы разница в задержке была очевидней. Без ключа операция append у меня заняла 0,0407 секунд, с ним — 0,0013.

Интересно, что можно делать несколько операций append подряд, очерёдность их сохраняется, корректность прочитанного — тоже. Вот только непонятно не может ли чтение получить данные между двумя append, скорее всего — может, но этот способ как раз для случаев, когда на первом месте скорость записи к кеш.

5 комментариев

Вот вам загадка

Seiko (64.35КиБ)

Как вы думаете, для чего предназначалось белое прямоугольное устройство в центре кадра? Производилось в восьмидесятые. Правильный ответ вечером или когда кто-нибудь ответит достаточно близко.

7 комментариев

«Берегиня»

Берегиня (8.05КиБ)

На сайте Студии Лебедева увидел шрифт «Берегиня». Это стилизация кириллического и латинского шрифтов под стиль белорусского орнамента (красная полоса над «приветом» — это он). Там есть даже цифры и знаки препинания!

В заметке про шрифт написано (на белорусском), что он может использоваться как декоративный для оформления заголовков, а по мне так лучше использовать его как субкультурный маркер для славянофилов. Сразу вспоминается нюй-шу, тайная письменность женщин уезда Цзянъюн южнокитайской провинции Хунань.

Многие начертания, как мне показалось, можно было сделать проще, но, во-первых, для скрытности более простой вариант хуже, во-вторых, я не шрифтовик, может быть дизайнер их пробовал, но возникли практические трудности, которые мне не увидеть. В конце-концов я только русифицировал меньше десятка шрифтов, когда переводил игрушки на «Спектруме», это весь мой опыт.

Чтение сильно затрудняет пробел — чтобы в этом месте не было провала, автор нарисовал очередную «загогулину», поэтому разрыва слов не видно. Но понимаю зачем это сделано — в традиционных орнаментах никаких разрывов и нет.

Оставить комментарий

«Открылся у нас новый бааар»

С ДДТ меня познакомил Дима Мартынов, друг детства, с которым мы дружили всю школу, а потом, когда он уехал в Ульяновск, а позже и в Питер, мы остались приятелями. Я был типичным «ботаником», только очков не носил, заучкой тоже не был, у меня была «своя атмосфера» — школа мне была неинтересна, я постигал реальность самостоятельно. На моё отношение к жизни песни группы ДДТ ложились как нельзя лучше, так же как и «Агаты Кристи», «Нау», «Пикника», «Аквариума» и некоторых другие.

Ничего из этого списка, кроме ДДТ, кстати, я в настоящее время не слушаю. Ещё с детства помню выкрик фаната «открылся у нас новый бааар», который я уже более 20 лет слышу на записи песни «Я зажёг в церквах все свечи». Всё подряд я не слушаю даже у самых любимых групп, поэтому немудрено, что я не знал, что это то ли заказ песни из зала, то ли фанат спутал вступление.

Сегодня погуглил эту реплику (за 20 лет она обязана была обрести известность) и вот что нашёл:

Много лет перед «Я зажёг в церквях все свечи»  я слышал хрип уфимского поклонника «открылся у нас новый бааанк». Причём здесь банк, думал я. Какая-то странная, зрительская реклама. Когда, в конце 90-х стали перевыпускать ранние альбомы, и я услышал песню 82 года «открылся у нас новый бар», всё стало предельно ясно. Но какие там бары, когда зажигаются свечи? Эти мелкие реплики не затёрли при последующем сведении концертного альбома. Не знаю, специально, или сложно было технически.

По мне такие огрехи добавляют живости, а по прошествии стольки лет чистить их просто нельзя — они уже стали частью той записи, при прослушивании губы сами шепчут в нужном месте «открылся у нас новый бааар».

1 комментарий

ENUM

Не понимаю, почему в «Оракле» (это СУБД) нет такой полезной вещи как тип ENUM. Вещь совершенно необходимая, как по мне. Вот посмотрите, что понятнее:

CREATE TABLE event_queue (
     …
     status ENUM('done', 'new', 'failed', 'running'),
     …
);

или

CREATE TABLE event_queue (
     …
     status NUMBER(1), -- тут у нас 4 значения будет
     …
);

Я как-то за первый вариант — всюду сразу видно что означает конкретное поле. Это по-моему, так очевидно, что и обсуждать тут нечего. Вместо этого в запросах появляются либо некие магические константы, либо приходится в них пропихивать что-то именованное из кода, но при этом в выборке всё равно будут те же номера.

Кроме удобства программиста, есть очевидная польза и для самой СУБД. Например, возьмём запрос к таблице выше, где мы определили поле status как число. Мы знаем, что статусов у нас всего четыре, это знаем мы, но это не знает «Оракл». Теперь взглянем на два совершенно эквивалентных с точки зрения программиста запроса (ведь он знает, что значений четыре) и посмотрим планы их выполнения:

SELECT *
FROM event_queue
WHERE status IN (1,2)
AND target='search' AND attempts < 3

 

План №1 (17.65КиБ)

 

SELECT *
FROM event_queue
WHERE status NOT IN (3,4)
AND target='search' AND attempts < 3

 

План №2 (17.77КиБ)

Как видите, разница в стоимости аж в три раза. Спрашивается, почему? Ответ очень простой, конечно: в первом случае если status оказался равен единице, вторая проверка уже не нужна, во втором случае, всегда нужны обе проверки. Почему цифры отличаются именно в два раза, а не в три, я не скажу, это, видимо, прикидка, основанная на статистике использования этой таблицы — одно из этих значений (статус «задание провалено») вообще ещё ни разу не записывалось.

Вообще, есть несколько способов имитировать тип ENUM: добавить ограничение (check), ввести новый тип. Но первое никак не сказывается на плане и требует перехода к строковому типу, а со вторым я ещё не эксперементировал.

Обладая Оракл информацией о том, что у нас в этом поле всего четыре возможных значения в этом поле, он мог бы запросто инвертировать значения и снизить стоимость.

21 комментарий

Процедурное настоящее PHP

ПХП, к сожалению, в сердце ещё глубоко процедурный язык. Наткнулся на очередную особенность. Сначала небольшая предыстория.

Многие знают, что FastCGI в ПХП не настоящий — при каждом запросе весь код интерпретируется заново, это позволяет не заботиться об утечке памяти, сбросе состояния между запросами и ещё о многих вещах, а значит упрощает вообще всё, что соответствует духу ПХП — понизить до минимума порог вхождения. Конечно, это сказывается на производительности, но в некоторых случаях ПХП научился смягчать этот недостаток.

Например, есть такая вещь как «постоянные соединения» (persistent connections) — это специальные режим, в котором на уровне процесса PHP FastCGI соединения с чем-либо не закрываются и выдаются в следующий запуск кода уже открытыми. Чудесная вещь, ведь операция соединения, например, с «Ораклом» очень дорогая.

Конечно, кое-чем приходится расплачиваться — например, в открытом соединении «Оракла» остаются установленные предыдущим кодом параметры сессии, временные таблицы, незавершённые транзакции, наверное что-то ещё. Первые два пункта меня лично не пугают, так как параметры сессии у нас везде одинаковые и временные таблицы мы не используем, а вот последний — очень.

Как известно, ПХП может свалиться в фатальной ошибкой по многим причинам, одна из них — превышение времени обработки скрипта. Соответственно, скрипт может упасть и в середине транзакции, она останется незакрытой и может остаться висеть долгое время, пока соединение не получит скрипт, в котором встретится команда закрытия транзакции.

А пока этого не произошло, блокировки на базе могут привести к коллапсу.

В общем-то, есть хороший выход — у нас же есть сервис-объект для работы с базой? Вставим в деструктор принудительный откат транзакции (rollback) и все дела! Если транзакция была не завершена в силу фатальной ошибки, она откатится и всё! Ведь деструктор должен вызвааться на уничтожение объекта!

Как показывает практика, должен, но не обязан. Ниже простой код:

class ImportantToClose {
    public function __destruct()
    {
        // закрываем что-то важное
        echo "Вызвался деструктор\n";
    }
}

$itc = new ImportantToClose;

register_shutdown_function(function()  {
    echo "Вызвалась shutdown function\n";
});

set_time_limit(1);

for(;;);

Если запустить его в интерпретаторе и подождать секунду, то мы получим следующую ошибку:

PHP Fatal error: Maximum execution time of 1 second exceeded in fatal.php on line 18

Fatal error: Maximum execution time of 1 second exceeded in fatal.php on line 18 Вызвалась shutdown function

Можно ещё попробовать записать что-нибудь в файл, результат будет тот же — деструктор не вызовется, тогда как-то старая добрая процедурная shutdown function — да. Поэтому, если у вас есть нечто важное, что необходимо аккуратно закрывать, не делайте это в деструкторе, делайте в этой магической функции. В нашем случае, можно реализовать в каждом сервисе метод close и в этой функции вызвать этот метод для кажого открытого сервиса.

Кстати, не забудьте выставить внутри shutdown function нужное вам время выполнения, если предел будет превышен, то и эта функция будет прервана, в этом случае вам уже ничего не поможет закрыть ресурс корректно.

10 комментариев

Кухня блокадного Ленинграда

Читая в «Википедии» статью про Игоря Растеряева, увидел упоминание некой «хряпы» и «дуранды», никогда слов этих не слышал, заинтересовался. Оказывается, это упоминались названия со стола блокадников в Ленинграде.

Дуранда — это жмых от подсолнечного масла: плотные, желтовато-коричневые большие пластинки. За ней выстраивались огромные очереди, потому что ее давали без карточек. Просто так дуранду есть нельзя: ее нужно размачивать. Ее клали в большую кастрюлю с теплой водой, она там размякала, потом пропускали через мясорубку. Получалась тестообразная масса, из которой пекли лепешки. Это считалось деликатесом.

Хряпа — верхние капустные листья, которые остаются на поле после уборки кочанов. Обычно в пищу людьми не употребляются, используются как корм скоту. Чтобы отбить горечь, их вымачивают и засаливают.

5 комментариев

← сюда туда →