Надо было мне тут вставить в текстовое поле соединенную через concat строку, но один из компонентов этого слияния мог принимать значение NULL. Казалось бы ну и хрен с ним, но нет - concat любого количества подстрок, одна из которых NULL возвращает NULL. В MsSQL для этих целей есть волшебная штука ISNULL, которая призвана заменять NULL-значения:
( Read more... )

Ну это конечно ерунда, но всё равно мне было любопытно. Задача получить текущую дату в формате ГГММДД.

Поддавшись противоестественному желанию сделать всё плохо, я написал следующее:

my ($mday, $mon, $year);
(undef,undef,undef,$mday,$mon,$_,undef,undef,undef) = localtime(time);
$_ += 1900;
$mon++;
$mon= '0'.$mon if ($mon=~/^(d ( Read more... )

Если вам немного скучно, есть хороший метод развлечься!
Надо сделать всего несколько пунктов:
1). Берем рабочий сервер с FreeBSD
2). Логинимся под рутом
3). Выполняем команду «chmod -R o-rwx /8). Profit ( Read more... )

то легко ответите на вопрос:

Что выведет на экран следующая команда?
print '\\';
( правильный ответ )

Наконец-то смог оценить всю мощь нового сервака.
Так как сначала всё приходилось делать на старом и очень желательно было, что бы скрипты работали не 20 часов, всё приходилось оптимизировать как только можно. Зато теперь, на новом железе всё прямо таки летает.
Вот данные о серваках из dmesg.

Старый:CPU: Intel(R) Xeon(TM) CPU 2.00GHz (1993.61-MHz ( Read more... )

Ну вообще святая тема приходить не к девяти на работу. Вот пришёл в час дня, выспавшийся, бодрый, сидишь себе такой кодишь или ещё чё там. Да и под конец дня в офисе нет никого, классно так, восемь вечера, чаёк, музыка, сочиняешь письма все из себя деловые. Да и вообще всё круто. Ну и да курсоры в mysql действительно работают, но зато нельзя ( Read more... )

Давно что-то я таких эскуэлек не писал. Мне нравится =)
UPDATE bad_domains INNER JOIN
(SELECT a.id_dom AS id_dom, b.hash AS hash
FROM bad_domains AS a
LEFT JOIN all_domains AS b
ON a.domain = b.domain
WHERE a.owner <> b.hash) OR (a.owner IS NULL AND b.hash IS NOT NULL) OR (a.owner IS NOT NULL AND b.hash IS NULL)) AS owner_diff
SET ( Read more... )

Меня тут попросили сделать лабораторку по сям по теме «разложение числа в сумму чисел Фибоначчи», ну а я решил расслабить разум на работе и написал бета-версию на перле =)
#!/usr/bin/perl use strict; use POSIX;   sub round { return int($_[0]+.5); }   sub Fib{ round((((1+sqrt(5))/2)**$_[0])/sqrt(5)); }   my $value = $ARGV[0]; my $begin = 0; my $end ( Read more... )

«

18B2:0100 6A 00 68 4B 01 66 83 7E-E0 00 74 05 B8 4C 01 EB j.hK.f.~..t..L ( Read more... )

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

if ((buffer=NULL)||((int)offset>size-1)||(regSize==0)||((int)offset+(int)regSize>size-1))
return -1;
*buffer = 0;И конечно же мозг не мог предположить, что в проверке параметров может что-то изменятся. Я уж думал, что чего-то об ( Read more... )