Сообщения

1

Вакансии / Информационному ресурсу требуется Perl - PHP разработчик.

« : 06 Февраля 2008, 19:43:34 »

Информационному ресурсу (http://www.skitalets.ru)  требуется веб-программист. Perl, PHP, MySQL.
Рефакторинг существующего кода, разработка новых фич для проекта.

Работа по совместительству, предполагается длительное сотрудничество. Желательно проживание в СПб.

Предложения и вопросы высылайте на адрес piter-g@yandex.ru.

Большое спасибо!

2

Perl / Неправильный ресайз картинки. Image::Magick - здесь ли проблема?

« : 15 Января 2005, 14:15:41 »

Phoinix:
Надеюсь расписано все понятно...

Более чем! Спасибо, Вы очень мне помогли!

3

Perl / Неправильный ресайз картинки. Image::Magick - здесь ли проблема?

« : 13 Января 2005, 18:39:27 »

2Kwazar:

Спасибо. Кстати - а если обрежется важный кусок картинки? Мне кажется, что так, как поступаю я, более правильно, хотя это и не имХО.

4

Perl / Неправильный ресайз картинки. Image::Magick - здесь ли проблема?

« : 09 Января 2005, 18:34:30 »

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

5

Perl / Неправильный ресайз картинки. Image::Magick - здесь ли проблема?

« : 09 Января 2005, 18:32:51 »

Glebushka, Вы имеете ввиду, что не обработан вариант, когда $width==$height? Но в этом случае их отношение равно 1, выполняется условие, и высота принимает значение 75, как и ширина.
 
А может, Вы имеете ввиду, что картинка должна расшириться, если исходный ее размер меньше 75? Но, может я неправильно выразился. Какртинка в некоторых случаях увеличивается в размерах непропорционально, а именно, ширина больше, чем должна была бы быть, и картинка выглядит "растянутой".

6

Perl / Неправильный ресайз картинки. Image::Magick - здесь ли проблема?

« : 09 Января 2005, 18:00:56 »

из загружаемой пользователем картинки я делаю аватар путем ее уменьшения до размера 75 пикселей по длинной стороне. Другая сторона вычисляется.
      my ($width, $height)=$image->Get(\'width\',\'height\');
      $ratio=$height/$width;
      if ($width>=$height){
         $avatar_width=75;
         $avatar_height=int($avatar_width*$ratio);
         }
      else{
         $avatar_height=75;
         $avatar_width=int($avatar_height/$ratio);
         }
Потом ресайз. Все с помощью Image::Magick. Скрипт работает, и пользователи им успешно пользуются. Но иногда возникает проблема - картинка после ресайза становится расширенной, и изображение поганится. Причем это не зависит от ориентации исходной картинки - вертикальной или горизонтальной. В чем здесь может быть дело? Может ли это быть связано с каким-либо багом в Image::Magick, и если да, то с каким? Заранее благодарен за конструктивное обсуждение.

7

Базы данных / Обсуждение статьи ДЕРЕВО КАТАЛОГОВ NESTED SETS (ВЛОЖЕННЫЕ МНОЖЕСТВА) И УПРАВЛЕНИЕ ИМ

« : 03 Ноября 2004, 00:21:59 »

Phoinix

Ну, конечно, ты прав, это же очевидно. Я эти узлы и имел ввиду под подчиненными. Да и по поводу перемещения ты, наверное, прав. Так, как  это описано в статье, действительно, может и не проще для понимания, но правильней.

8

Базы данных / Обсуждение статьи ДЕРЕВО КАТАЛОГОВ NESTED SETS (ВЛОЖЕННЫЕ МНОЖЕСТВА) И УПРАВЛЕНИЕ ИМ

« : 30 Октября 2004, 22:05:17 »

To Phoinix

Это как? ты добавляешь узел сразу с подчиненными узлами?

Нет, я вставляю узел за каким-то определенным узлом. У этого узла могут быть и подчиненные узлы. Тогда их нужно переподчинить вновь вставляемому узлу.

9

Базы данных / Обсуждение статьи ДЕРЕВО КАТАЛОГОВ NESTED SETS (ВЛОЖЕННЫЕ МНОЖЕСТВА) И УПРАВЛЕНИЕ ИМ

« : 30 Октября 2004, 11:46:40 »

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

тогда при удалении нужно добавить для подчиненных узлов:

UPDATE my_tree SET right_key = right_key – 1,  left_key = left_key – 1WHERE right_key < $right_key AND left_key > $left_key

при добавлении для подчиненных узлов:

UPDATE my_tree SET right_key = right_key + 1,  left_key = left_key + 1WHERE right_key < $right_key AND left_key > $left_key

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

10

Perl / Пересылка файла по http

« : 11 Февраля 2003, 19:51:44 »

Пересылаю файлы gif и jpeg из броузера Internet Explorer 5.5 - вот html-код:


Результаты:
При пересылке jpeg-а съедается часть cgi-запроса, следующенго за файлом.
ПРи пересылке больших gif-ов (~>5 Кб) - то же самое.
То же в Опере и Нетскейпе 4.07
В чем может быть причина?
И - дполнительный вопрос - как правильно обработать поле запроса, связанное с файлом?

11

JavaScript & JScript / Проверка, разрешено ли выполнение Java-скрипта

« : 10 Ноября 2002, 23:25:39 »

В перл-скрипт

12

JavaScript & JScript / Проверка, разрешено ли выполнение Java-скрипта

« : 10 Ноября 2002, 22:19:19 »

Как проверить, разрешено ли выполнение ява-скрипта в броузере клиента или нет?.
Вот есть такой метод объекта Navigator - JavaEnabled - Проверяет разрешено ли выполнение Ява. Но разве сам этот метод не будет работатьь только в том случае, если выполнение Ява включено? Тогда какой в нем смысл?

13

Perl / Проблемы с отсылкой почты

« : 27 Сентября 2002, 23:46:55 »

Отсылаю ссобщения при пом модуля MIME::Lite.
$msg = MIME::Lite->new(From =>$admin_mail,To =>$e_mail,Subject =>$subject,Type => \'multipart/related\');
$msg->attach(Type =>\'text/html; charset=windows-1251\',Data => $message);
$msg->send();

При этом на мой адрес на яндексе (piter-g@yandex.ru), например, письма не доходят.
В чем может быть проблема?.
Мои предположения:
1) Символы - и  _ в адресах.
2) Глюк яндекса (потому что на другие ящики, как
стационарные, так и расположенные например, на mail.ru, письма приходят, хотя проверялись только адреса, не
содержащие вышеуказанных символов)

14

Perl / SSI и print.

« : 13 Августа 2002, 14:22:43 »

Как известно, SSI-команда заключена в
Как быть, если нужна динамическая генерация html-страницы?
Используя метод print в cgi-скрипте
(  print ""  ), невозможно заставить работать SSI.
Помогите разрешить данную проблему.

15

Perl / require

« : 17 Июля 2002, 20:55:15 »

Никак не могу понять следующее.
В двух package я вызываю с пом. require третий модуль (назовем его x.pl)
При этом один модуль видит этот самый x.pl, а другой нет.
Интересно узнать, почему. Я логических объяснений не нашел - оба модуля одинаковы по своей структуре, имеют одни и те же атрибуты, находятся в одном каталоге с x.pl, наконец, оба работоспособны (вернее один ,который видит x.pl). Помогите, пожалуйста.