Домашние маски для лица или волос с использованием натуральных продуктов, свежих фруктов и овощей – одно из лучших и дешевых средств мгновенно улучшить свой внешний вид. К сожалению, овощи и фрукты средней полосы в зимний сезон практически лишены своей ценности и витаминов. И тут на помощь женщинам приходит «экзотика».
Читать далее
|
Опал – камень человеконенавистников. Он порождает неприязнь к подарившему, и легко может привести к раздору. А у мечтательных людей вызывает вероятность заболеть шизофренией…
В день 21-й годовщины свадьбы советуют дарить этот зловещий камень супругам. Забавные традиции у народа! Рекомендуют собственными руками разрушить семью?
Читать далее
Что делать в случае ДТП? Некоторые советы авто-юриста могут оказаться полезными и нужными в этой неприятной ситуации. Итак, произошло ДТП. Вокруг столкнувшихся машин любят собираться праздные зеваки. Они будут смотреть на Вашу реакцию. Не доставляйте им удовольствия громкими разборками, даже если считаете, что в случившемся ДТП виноваты не Вы, а другой водитель. Обычно дорожно-транспортное происшествие несчастье коллективное. Возможно, что в нем есть доля Вашей вины.
Читать далее
В последнее время участились случаи "конфискации" у граждан дорогих мобильных телефонов злоумышленниками, выступающими под видом работников правоохранительных органов. Чаще всего потерпевшими оказываются подростки и молодежь без достаточного жизненного опыта.
Читать далее
Пространства имен в 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);
Код использован в бою на сервисе рейтинга русских блогов.
Конкурентоспособный и быстрый - два термина, которые являются основоположными в мире компьютеров. Постоянно изменение и развитие компьютерных систем приносят как для пользователей, так и для программистов всё больше удобств и преимуществ. Гонка за лидерство между Vista и Mac OSX Tiger началась в 2003 году с объявления компанией Microsoft о планах относительно внедрения новых функциональных возможностей в систему Windows Vista.
Читать далее
петрушка
Прошел сезон свежих фруктов и овощей, но пора косметики «с грядки» еще далеко не окончена. Что там растет у вас на подоконнике? Прежде всего, это различная зелень: укроп, сельдерей, базилик и поистине «королева красоты» петрушка!
Читать далее
Есть некоторый скрипт, который периодически (например раз в 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.
Каждый, кто хоть раз пытался перочинным ножом вскрыть раковину, добытую со дна моря, лелеял надежду: «А вдруг там жемчуг…» Везет одному счастливчику из ста. Наверное, поэтому последние 5 тысяч лет жемчуг так популярен...
Читать далее
Если взглянуть на статистику по отказам домашней техники, то до 45% от всех возможных причин — это проблемы с электропитанием. Каждый хоть раз попадал в ситуацию, когда в квартире начинал мигать свет, либо отключались все электроприборы из-за падения напряжения в сети…
Читать далее
При покупке первого автомобиля возникают одни и те же вопросы — купить новый или подержанный автомобиль, маленький или большой, какую марку, какого типа, цвета. Но самое важное — хорошо взвесить, имеет ли смысл вообще покупать автомобиль. Автор никого не собирается отговаривать от приобретения машины, но по собственному опыту знает, насколько жизнь была бы неинтереснее, а кошелек полнее, если бы кто-нибудь в такой момент смог убедительно отговорить его.
Читать далее
В этом уроке напишем не самую простую программу на Си. Главная цель урока - попробовать написание программ с использованием основных типов данных.
Читать далее
1. Если предыдущие версии Windows скрывали, как долго они способны работать без перезагрузки, то ХР в этом плане есть чем гордиться. Войдите в командную строку из меню Accessories, которое вызывается стартовой кнопкой All Programs, и наберите systeminfo. Компьютер выдаст много полезной информации, в том числе время бесперебойной работы. Для сохранения этих данных в файле наберите systeminfo > info.txt.
Читать далее
Компании, особенно крупные и академические институты долго наслаждались удобствами компьютерных сетей и сетевых папок. Эти сетевые папки могут стать незаменимым ресурсом, при необходимости распространения данных между различными пользователями или при предоставлении доступа к свободному перемещению информации между различными рабочими станциями.
Читать далее
Если у вас есть онлайн банковский счёт, то существует вероятность, что вы сможете стать жертвой хакера. Интернет - эффективный инструмент для связи. Однако из-за него существует вирусная угроза, которая может привести к тому, что кибер-преступник получит доступ к вашему компьютеру и украдёт ваши деньги или же какую-либо конфиденциальную информацию. Как это происходит? Можно ли как-то защититься?
Читать далее