what_me: Стиль вызова fork
Все знают, что при вызове системных функций необходимо проверять был ли вызов успешен. Обычно при успешном вызове фуцнкции возвращают true, а при неудаче false, и вызовы оформляются в стиле "сделай или умри":
Читать далее

Пространства имен в XML — это своего рода параллельное измерение. Есть вложенность тегов, есть атрибуты, а есть пространства имен, которые могут перенести фрагмент XML в другое пространство и даже сделать его таким образом невидимым для парсеров:





При работе с таким XML через XML::LibXML важно не забывать, что для того, чтобы добраться до узла с пространством имен, отличной от той, что используется во всем документе, требуется создать контекст, а затем уже с его помощью выбирать нужные узлы:

my $context = new XML::LibXML::XPathContext;
$context->registerNs('yablogs', 'urn:yandex-blogs');

my @codeNodes = $context->findnodes("yablogs:$nodeName/text()", $node);

Код использован в бою на сервисе рейтинга русских блогов.

Есть некоторый скрипт, который периодически (например раз в 3 минуты) запускается по крону. Он делает некоторую работу и переписывает некоторые конфиги, но заранее неизвестно сколько он будет работать и за 3 минуты он может не закончить. Я не хочу чтобы одновременно их запускалось несколько - смысла в этом нет. Поэтому в начале скрипта -
use Unix::PID '/var/run/my-config-build.pid';

Не смотря на это, однако, периодически вижу десяток запущенных экземпляров скрипта. В это время нагрузка (по LA) заметно повышатся, но является ли это причиной ли следствием я не знаю.

От выбора модуля для создания pid файлов это поведение не зависит - проверял около года назад перебором 3-4х модулей. Скрипт запускается от рута, пид файл действительно создается и если проверить вручную - обычно можно убедится что он не дает запустить две копии одновременно. Но иногда - дает.

Вопросы - со стороны ли модуля перла у меня проблема, какой модуль лучше использовать для этого, что я делаю не так?

upd: Похоже все просто, вместо
use Unix::PID '/var/run/this.pid';
надо делать
use Unix::PID;
Unix::PID->new()->pid_file_no_unlink('/var/run/this.pid')
or die 'The PID in /var/run/this.pid is still running.';
Однако почему оно по дефолту не такое, причем везде - для меня загадка.

$discounts = _hasDiscounts($service); #returns 1
$data->{hasDiscounts} = $discounts; # now it is 1
warn $o->isCustomPrice; # returns 1
$data->{hasDiscounts} = undef if $o->isCustomPrice; # Сейчас оно все еще истинно и 1
# - проверяли print $data->{hasDiscounts} (***)

#warn $data->{hasDiscounts}; # - но если выполнить вот это - оно станет undef, как и должно.

Собственно вопрос - почему так и что сделать, чтобы было так как я ожидаю, т.е. undef с первой попытки.
Или я где-то туплю и именно так и должно быть?

#perl -v
This is perl, v5.8.8 built for i486-linux-gnu-thread-multi


upd:, *** - Минимальный кусок кода для воспроизведения в комменте.

Про print - проверялось не сразу print, а через некоторую функцию, которая складывает это в буфер, который потом выдается вместе с заголовками перед выводом основной части хтмл в некотором fastcgi фреймворке. Что как-бы говорит (если мы правы), что проблема именно со стороны перла, а не HTML::CTPP2.

Уж коли хочется писать use v5.10, то надо понимать, как это работает в новой версии :-)

Помимо use v5.10 допустимо писать и так:

use feature ':5.10';

Начиная с Perl 5.10.1 (и по крайней мере в пределах 5.10) в этом случае будут иметь значение только две первые части версии. Следующие два варианта полностью эквивалентны:

use feature ':5.10.1';
use feature ':5.10';

В отличие от Perl 5.10, где версия проверяется целиком, Perl 5.10.1 разрешает указывать и еще не существующую версию, например:

use feature ':5.10.3';

Perl 5.10 же в этом случае сообщает об ошибке:

Feature bundle "5.10.1" is not supported by Perl 5.10.0 at usefeature.pl line 1
BEGIN failed--compilation aborted at usefeature.pl line 1.

Разумеется, use feature не следует путать с use vX.Y.Z. В такой инструкции версия проверяется полностью и честно:

use v5.10.3;
say "test";

Perl v5.10.3 required--this is only v5.10.1, stopped at usefeature.pl line 1.
BEGIN failed--compilation aborted at usefeature.pl line 1.