Страницы

пятница, 29 апреля 2011 г.

Очень полезная штука

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

Используется просто качаешь и отвечаешь на пару вопросов при запуске - говорю ж для ленивых

качать а заодно слегка читать здесь

понедельник, 25 апреля 2011 г.

Python и Perl

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


d=",".join([ str(i) for i in range(0,10000)] )


Понял, что что-то два эти языка роднит, и это за областью синтаксиса или языковых конструкций.
Значит, что это что-то фундаментальней и общей, и понял...
Понял, что это совобода - python-у абсолютно подойдет лозунг "it's more than one way to do it". И вольностей в обращение с операторами у него ничуть не меньше чем в Perl, чего стоит хотя бы добавление свойств класса прям на лету. Значит ли, что он повторит судьбу Perl - медленного превращение в инструмент аутентичных разработчиков? На этот вопрос трудно дать ответ. Зато точно знаю, что некоторые системные функции нельзя давать переопределять, по крайней мере таким простым способом :

str=" privet world "


P.S
   Долго не мог оддуплиться, что было не так

P.S.S
   Оказалось некоторые не замечают подвоха в последней строчке кода на python, поэтому посню. Данный код определяет переменную, но имя str зарезервировано для встроенной функции str, приведения к строчному виду любого переданного объекта, и она используется повсеместно, собственно у меня падал из-за этого django процесс. Этот код переопределяет ее без каких-то зазрений совести, что собственно у меня не вызвало кстати удивления, покорил себя немного за невнимательность.

воскресенье, 24 апреля 2011 г.

Еще немного о том, как себя заставлять..

Ответить на вопрос «Как себя заставлять?» невозможно. Невозможно не потому что себя заставить нельзя, а потому что сама идея является неверной с самого начала.

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

В результате этого возникает отсутствие контакта с собой, в результате которого возникает раздвоенность сознания и личности, в результате которой сознание думает одно, а личность делает совсем другое, в результате чего и возникает проблема «Как себя заставлять?».

Никак.

Нужно лечить причину.

источник http://habrahabr.ru/blogs/gtd/118049/

Мой новый способ перестать страдать фигней и начать работать

В операционных системах есть такая штука, как планирощик задачь. Многозадачность довольна илюзорная - на самом деле все выполняется последовательно( спасибо КЕП). Самый простейший планирощик задач основан на приоритетах - то есть каждому процессу присваивается приоритет, на их основе выделяется кванты времени на выполнения, и последовательность. При этом возникает проблема, что малоприоритетные задачи могут никогда не быть выполненны. Так вот не кажется вам,что частенько человек работает именно по такому принципу. Да-да...А у еще вот у него бывает такое, видя задачу уже поставил ее в начало списка...ему так влом начинать ее делать...она ж большая...хочеться ее разбить. Короче не хочеться даже начинать...Ну вообщем тупик, потому сначала делаем самое пишем самое незначительно, что надо было написать...Я вот написал скрипт, который все картинки ресайзит с задаными параметрами и складует ее в папку..

#!/usr/bin/perl

use GD;
my $PERCENT=shift;#насколько процентов уменьшить картинку

my $PROC_DIR=shift;#куда сложить копии

use File::Find;
mkdir($PROC_DIR);

finddepth(\&wanted, ("./") );
exit(0);
sub wanted{
my $tmp=lc $_;
return unless($tmp=~/([\d]+)\.(png)$|([\d]+)\.(jpeg)$|([\d]+)\.(jpg)$|([\d]+)\.(gif)$/);

resize_save2thumbs($_);

}


sub resize_save2thumbs{

my ($image,$image_save)=@_;



my $thumb_img=GD::Image->new($image) or die $!;

my ($width,$height) = $thumb_img->getBounds();
my $new_height=($height/100)*$PERCENT;

my $kow=$new_height/$height;

my $new_width=$width*$kow;

my $new_thumb_img=GD::Image->new($new_width,$new_height);

$new_thumb_img->copyResampled($thumb_img,0,0, 0,0,$new_width,$new_height,$width,$height);


my $jpg_data = $new_thumb_img->jpeg;


open(FL,">$PROC_DIR$image".'.jpg') or die $!;

print FL $jpg_data;

close(FL);
}