WebScript.Ru
C:\   главная  ::   о сайте  ::  каталог скриптов  ::  гнездо  ::  форум  ::   авторам  :: Новостройки ::   ХОСТИНГ  ::

|| разделы::
|| поиск по сайту::

|| реклама::
|| новости почтой::
Рассылки Subscribe.Ru ::



Новости сайта WebScript.Ru
Популярные статьи

Hot 5 Stories

|| рекомендуем::




Фотогалерея своими руками с использованием PERL Часть 2


Прислал: Phoinix [ 04.12.2003 @ 17:11 ]
Раздел:: [ Статьи по Perl ]


<<< Часть 1

     Рассмотрим и разберем в одтельности каждую процедуру:

процедура просмотра фотогалерей: sub mod_list_gallery {

Загружаем наш шаблон - show.htm:

my ($file);
$file='show.htm'; open(TMP,$file); @temp=<TMP>; close(TMP);

Вырезаем из него сроку списка галерей и строку списка фотографий:

my ($temp_line_1, $temp_line_2, $temp_list_1);
foreach (@temp) {
   if (m/<!-- 1 -->/gi) {$_ =~s /<!-- 1 -->//gi; $temp_line_1 .= $_; $_ = '';}
   elsif (m/<!-- 2 -->/gi) {$_ =~s /<!-- 2 -->//gi; $temp_line_2 .= $_; $_ = '';}
}

Берем данные о наших фотогалереях из базы данных MySQL:

$sql = "SELECT id, name FROM gallery_table ORDER BY name ASC";
$dbh = "DBI:mysql:$name_base_mysql:$host_base_mysql:$port_base_mysql";
$dbh = DBI -> connect($dbh, $user_base_mysql, $pass_base_mysql);
$sth = $dbh -> prepare($sql); $sth -> execute();
my ($kolvo_category, $i, $tmp, @category, $line_temp);
$i = 0;
$kolvo_category = $sth -> rows;
while ($tmp = $sth -> fetchrow_arrayref()) {$category[0][$i]=$tmp->[0];$category[1][$i]=$tmp->[1];$i++;}
$sth -> finish();
$dbh -> disconnect();

Обрабатываем полученные данные и формируем список фотогалерей:

for ($i=0; $i < $kolvo_category; $i++) {
   $line_temp = $temp_line_1;
   $line_temp =~s /%name_category%/$category[1][$i]/gi;
   $line_temp =~s /%id%/$category[0][$i]/gi;
   $temp_list_1 .= $line_temp;

Если у нас выбрана, какая, либо фотогалерея для просмотра фотографий (параметр $edit):

   if ($edit eq $category[0][$i]) {

Выбираем список фотографий из базы данных MySQL:

      $sql = "SELECT id, name, type_image FROM image_table WHERE gallery = '$category[0][$i]' ORDER BY name ASC";
      $dbh = "DBI:mysql:$name_base_mysql:$host_base_mysql:$port_base_mysql";
      $dbh = DBI -> connect($dbh, $user_base_mysql, $pass_base_mysql);
      $sth = $dbh -> prepare($sql); $sth -> execute();
      my (@tv, $kolvo_foto, @photo, $ii)
      $tv[0] = 0;
      $kolvo_foto = $sth -> rows;
      while ($tmp = $sth -> fetchrow_arrayref()) {
         $photo[0][$tv[0]] = $tmp -> [0];
         $photo[1][$tv[0]] = $tmp -> [1];
         $photo[2][$tv[0]] = $tmp -> [2];
         $tv[0]++;
      }
      $sth -> finish();
      $dbh -> disconnect();

Формируем список из шаблона:

      for ($ii=0;$ii<$kolvo_foto;$ii++) {
         $line_temp = $temp_line_2;
         $tv[2] = $path_image."i".$photo[0][$ii].".".$photo[2][$ii];
         $tv[3] = $path_image.$photo[0][$ii].".".$photo[2][$ii];
         $line_temp =~s /%name_page%/$photo[1][$ii]/gi;
         $line_temp =~s /%id%/$photo[0][$ii]/gi;
         $line_temp =~s /%link_icon%/$tv[2]/gi;
         $line_temp =~s /%link_image%/$tv[3]/gi;
         $temp_list_1 .= $line_temp;
      }
   }

Из вышеуказанного кода теперь можно определить, почему мы в таблице фотографий не указывали имени файла, а только расширение - именем файла фотографии у нас будет являться id номер, что предохранит нас от от повторов имен файлов, т.к. поле id ключевое и повторы в нем запрещены, а так же очень просто выставляется соответсвие иконки для определенной картинки, мы просто к имени файла приставляем "i", а остальное остается неизменным.

Теперь остается собрать наш шаблон воедино и выдать на экран:

foreach (@temp) {
   $_=~s /<!-- 1_insert -->/$temp_list_1/gi;
   $_ =~s /%script_url%/$script_url/gi;
   $_ =~s /%edit%/$edit/gi;
}
print "Content-type: text/html; charset=windows-1251\n\n";
print qq "@temp";
exit;
}

Вот и все с первой процедурой закончили. Берем следующую, самую, на мой взгляд, интересную...

процедура загрузки фотографии: sub mod_image_upload {

Сначала проверяем подтверждение операции над объектом, в данном случае загружаемой картинкой:

if ($doing eq "afform") {

Проверяем имя файла на соответствие разрешенного типа (расширения):

   my (@tv, $file)
   $tv[0] = $image;
   $tv[0] =~s /.*((png)|(gif)|(jpg))$/$1/gi;
   if ($tv[0] eq '') {exit;} # Хотя конечно лучше поставить более толковую проверку, но я не буду здесь "раздувать" код

Вставляем данные полученные из формы и полученное расширение файла в MySQL:

   $dbh = "DBI:mysql:$name_base_mysql:$host_base_mysql:$port_base_mysql";
   $dbh = DBI -> connect($dbh, $user_base_mysql, $pass_base_mysql);
   $dbh -> do("INSERT INTO image_table SET name = '$fdb[0]', gallery = '$fdb[1]', type_image = '$tv[0]' ");
   $tv[1] = $dbh->{'mysql_insertid'}; # Выберем последний id номер, он будет именем нашего файла
   $dbh -> disconnect();

Теперь сохраняем фотографию на сервере:

   $file = $path_image.$tv[1].".".$tv[0];
   open (IMG, ">$file"); binmode IMG; flock ($file, 2); print IMG while (<$image>); close (IMG); chmod 0644, $file;

Формируем иконку (уменьшенное изображение):

Для начала узнаем какого размера будет иконка:

   $sql = "SELECT x_icon, y_icon FROM gallery_table WHERE id='$fdb[1]'";
   $dbh = "DBI:mysql:$name_base_mysql:$host_base_mysql:$port_base_mysql";
   $dbh = DBI -> connect($dbh, $user_base_mysql, $pass_base_mysql);
   $sth = $dbh -> prepare($sql); $sth -> execute();
   my ($ix, $iy);
   while ($tmp = $sth -> fetchrow_arrayref()) {$ix = $tmp -> [0]; $iy = $tmp -> [1]}
   $sth -> finish();
   $dbh -> disconnect();

Теперь уменьшаем изображение:

   $image = Image::Magick->new;
   $image->Read("$file"); # $file - понятно что это только что загруженный файл

Разберемся с тем какой размер иконки должен быть:

   my ($ox, $oy, $oc, $ic, $nx, $ny, $geo);
   ($ox,$oy)=$image->Get('columns','height');
   if (($ox > $ix)||($oy > $iy)) {
      $oc = $ox/$oy; $ic = $ix/$iy;
      if ($oc < $ic) {$ny = $iy; $nx=int(($ox/$oy)*$iy);}
      elsif ($oc > $ic) {$nx = $ix; $ny=int(($oy/$ox)*$ix);}
      else {$nx = $ix; $ny = $iy;}}
   else {$nx=$ox;$ny=$oy;}

Изменяем размер и сохраняем изображение:

   $geo = 'geometry';
   $image->Resize(geometry=>$geo, width=>$nx, height=>$ny);
   $file = $path_image."i".$tv[1].".".$tv[0];
   $image -> Write("$file");

"Редиректим" скрипт на список фотогалерей и открываем ту в которою добавили изображение, что бы не было особого желания нажать кнопку "обновить"

   $url = $script_url."?edit=".$fdb[1];
   print "Location: $url\n\n";
}

Теперь вернемся к тому, что мы пока только хотим произвести действие, здесь, я думаю, особых сложностей не должно возникать:

Выгружаем шаблон:

$file = "upload.htm";
open(TMP, $file);
@temp = <TMP>;
close(TMP);

Вырезаем строку из SELECT для того, что бы сформировать списко галерей для выбора

foreach (@temp) {
   if (m/<!-- 1 -->/gi) {$_ =~s /<!-- 1 -->//gi; $temp_line_1 .= $_; $_ = '';}
}

Берем данные о наших фотогалереях из базы данных MySQL*:

$sql = "SELECT id, name FROM gallery_table ORDER BY name ASC";
$dbh = "DBI:mysql:$name_base_mysql:$host_base_mysql:$port_base_mysql";
$dbh = DBI -> connect($dbh, $user_base_mysql, $pass_base_mysql);
$sth = $dbh -> prepare($sql); $sth -> execute();
my ($kolvo_category, $i, $tmp, @category, $line_temp);
$i = 0;
$kolvo_category = $sth -> rows;
while ($tmp = $sth -> fetchrow_arrayref()) {$category[0][$i]=$tmp->[0];$category[1][$i]=$tmp->[1];$i++;}
$sth -> finish();
$dbh -> disconnect();

*Кстати подобная операция, как, впрочем и следующая, будет повторятся практически везде, поэтому её можно вынести в отдельную процедуру, либо выполнять сразу в начале скрипта...

Формируем список фотогалерей:

for ($i = 0; $i < $kolvo_category; $i++) {
   $line_temp = $temp_line_1;
   if ($cat eq $category[0][$i]) {$line_temp =~s /%selected%/selected/gi;} # вот, кстати, зачем нам нужен был параметр cat - только для этого, что бы было удобно
   
else {$line_temp =~s /%selected%//gi;}
   $line_temp =~s /%id_category%/$category[0][$i]/gi;
   $line_temp =~s /%name_category%/$category[1][$i]/gi;
   $temp_list_1 .= $line_temp;
}

Собираем шаблон, и выводим на экран:

foreach (@temp) {
   $_=~s /<!-- 1_insert -->/$temp_list_1/gi;
   $_ =~s /%script_url%/$script_url/gi;
   $_ =~s /%mod%/$mod/gi;
   $_ =~s /%edit%/$edit/gi;
}
print "Content-type: text/html; charset=windows-1251\n\n";
print qq "@temp";
exit;
}

С этой процедурой все, кратко пробежимся по ней:

  • если мы производим операцию над объектом, то есть производим upload изображения
    • получаем имя файла (переменная $image - по сути имеет два значения, имя файла и непосредственно файл; и в зависимости от того, как мы используем эту переменную, то получаем соответстующее её значение);
    • выбираем расширение файла, в нашем случае ((png)|(gif)|(jpg)) - разрешенные расширения файлов которые мы можем загружать;
    • вставляем данные об изображении в таблицу базы данных MySQL;
    • производми upload файла;
    • сразу же считываем только что загруженный файл в новый проект Image::Magick;
    • определяем размеры изображения, до которого мы должны его ужать;
    • сжимаем изображение и записываем в новый файл;
    • редиректим скрипт;
  • если же мы только хотим загрузить файл, то просто выводим обработанную форму и все.

С этой процедурой все, кратко пробежимся по ней:

процедура изменения и процедура удаления фотографии: sub mod_image_edit { sub mod_image_delete {

Данные процедуры отличаются лишь тем, что при переданном параметре doing - первая производит UPDATE таблицы MySQL, а вторая DELETE FROM. А изменение изображения сводится только к изменению названия, описания и галереи изображения, правда есть некоторые нюансы:

Сначала проверяем подтверждение операции над объектом, в данном случае - картинкой:

if ($doing eq "afform") {

Обновляем таблицу если мы редактируем изображение

   $dbh = "DBI:mysql:$name_base_mysql:$host_base_mysql:$port_base_mysql";
   $dbh = DBI -> connect($dbh, $user_base_mysql, $pass_base_mysql);
   $dbh -> do("UPDATE image_table SET name = '$fdb[0]', gallery = '$fdb[1]' WHERE id = '$id'");
   $dbh -> disconnect();

Изменяем иконку, изображения, так как в разных фотогалереях могут быть разные размеры иконок (данную операцию я бы рекомендовал производить после проверки изменеия галереи фотографии, что бы лишний раз не переписывать иконку)

Эта операция полностью идентична опрерации изменения иконки зображения при upload, единственное прежде нужно взять данные об изображении (id номер и расширение (type-image)). После изменения иконки производим редирект в список фотогалерей

Удаляем запись из таблицы если мы удаляем изображение:

Сначала считываем данные о этом изображении, для того, что бы мы могли удалить соответственные файлы:

   $sql = "SELECT id, type_image FROM image_table WHERE id = '$id'";
   $dbh = "DBI:mysql:$name_base_mysql:$host_base_mysql:$port_base_mysql";
   $dbh = DBI -> connect($dbh, $user_base_mysql, $pass_base_mysql);
   $sth = $dbh -> prepare($sql); $sth -> execute();
   my (@photo)
   while ($tmp = $sth -> fetchrow_arrayref()) {
      $photo[0][0] = $tmp -> [0];
      $photo[1][0] = $tmp -> [1];
   }
   $sth -> finish();

Удаляем запись:

   $dbh -> do("DELETE FROM image_table WHERE id = '$id'");
   $dbh -> disconnect();
   $file = $path_image."i".$photo[0][0].".".$photo[1][0]; unlink ($file);
   $file = $path_image.$photo[0][0].".".$photo[1][0]; unlink ($file);

Опять же редирект...

}

Теперь вернемся к тому, что мы пока только хотим произвести действие, здесь, я думаю, тоже особых сложностей не должно возникать, алгоритм такой же, что и при upload, единственное мы сначало должны получить данные об изображении из MySQL и вставить их в форму:

$file="edit.htm";
open(TMP,$file);
@temp=<TMP>;
close(TMP);

foreach (@temp) {
   if (m/<!-- 1 -->/gi) {$_ =~s /<!-- 1 -->//gi; $temp_line_1 .= $_; $_ = '';}
}

my ($kolvo_category, $i, $tmp, @category, $line_temp, @photo);
$sql = "SELECT id, name, gallery, image FROM image_table WHERE id = '$id'";
$dbh = "DBI:mysql:$name_base_mysql:$host_base_mysql:$port_base_mysql";
$dbh = DBI -> connect($dbh, $user_base_mysql, $pass_base_mysql);
$sth = $dbh -> prepare($sql); $sth -> execute();
while ($tmp = $sth -> fetchrow_arrayref()) {
   $photo[0][0] = $tmp -> [0];
   $photo[1][0] = $tmp -> [1];
   $photo[2][0] = $tmp -> [2];
   $photo[3][0] = $tmp -> [3];}
$sth -> finish();

$sql = "SELECT id, name FROM gallery_table ORDER BY name ASC";
$dbh = "DBI:mysql:$name_base_mysql:$host_base_mysql:$port_base_mysql";
$dbh = DBI -> connect($dbh, $user_base_mysql, $pass_base_mysql);
$sth = $dbh -> prepare($sql); $sth -> execute();
$i = 0;
$kolvo_category = $sth -> rows;
while ($tmp = $sth -> fetchrow_arrayref()) {$category[0][$i]=$tmp->[0];$category[1][$i]=$tmp->[1];$i++;}
$sth -> finish();
$dbh -> disconnect();

for ($i = 0; $i < $kolvo_category; $i++) {
   $line_temp = $temp_line_1;
   if ($photo[2][0] eq $category[0][$i]) {$line_temp =~s /%selected%/selected/gi;}
   
else {$line_temp =~s /%selected%//gi;}
   $line_temp =~s /%id_category%/$category[0][$i]/gi;
   $line_temp =~s /%name_category%/$category[1][$i]/gi;
   $temp_list_1 .= $line_temp;
}

$tv[2] = $image_url."i".$photo[0][0].".".$photo[3][0];
$tv[3] = $image_url.$photo[0][0].".".$photo[3][0];

foreach (@temp) {
   $_=~s /<!-- 1_insert -->/$temp_list_1/gi;
   $_=~s /%name%/$photo[1][0]/gi;
   $_=~s /%link_image%/$tv[3]/gi;
   $_=~s /%link_icon%/$tv[2]/gi;
   $_=~s /%doing%/Изменение || Удаление/gi; # В зависимости от действия
   $_ =~s /%script_url%/$script_url/gi;
   $_ =~s /%mod%/$mod/gi;
   $_ =~s /%edit%/$edit/gi;
   $_ =~s /%id%/$photo[0][0]/gi;
}
print "Content-type: text/html; charset=windows-1251\n\n";
print qq "@temp";
exit;

Вот в общем-то все процедуры работы с изображениями рассмотрели, теперь процедуры работы с фотогалереями:

Сразу хочу сказать, что различие между процедурами создания, изменения и удаления минимальны:

  • в процессе создания мы ничего не проверяем толко данные переданные из формы;
  • в процессе редактирования мы проверяем изменились ли параметры x_icon и y_icon, и если да, то переписываем все иконки изображений в соответсвии с новыми параметрами;
  • в процессе удаления, мы проверяем есть ли в данной фотогалереи фотографии и если есть отказываем в удалении, чтобы не оставалось "безхозных" фотографий ;

Структура же процедур точно такая же как и у процедур работы с изображениями;

С админ-интерфейсом все, теперь перейдем к внешней части, собственно что теперь должны увидеть пользователи...

ОПИСАНИЕ СКРИПТА ПОКАЗА ФОТОГАЛЕРЕИ:

   Сам шаблон фотогалереи у нас находит   ся в таблице базы данных MySQL, а так как, у нас может быть несколько фотогалерей, то и шаблонов будет столько же, и при запуске нашего скрипта нужно будет указывать какую фотогалерею мы используем. То есть скрипт сам по себе по ссылке //www.mysite.ru/cgi-bin/gallery.cgi - работать не будет, точнее будет, но покажет при этом пустую страницу, для этого ссылку нужно будет делать //www.mysite.ru/cgi-bin/gallery.cgi?gal=1, где gal - id номер фотогалереи. Если же мы будем использовать только одну галерею, то данный параметр мы можем вписать прямо в скрипт, и тогда не будет никаких "заморочек".

    Я предполагаю для себя такую структуру шаблона:

Что в HTML коде будет выглядеть как:

<html>
<head>
<meta http2-equiv="Content-Type" content="text/html; charset=windows-1251">
<title>
Моя фотогалерея</title>
</head>
<body>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1">
     <tr>
          <td>
               
%name_category%
          </td>
     </tr>
     <tr>
          <td>
               
%title_category%
          </td>
     </tr>
<!-- 1_insert -->
<!-- 1 -->     <tr>
<!-- 1 -->          <td>
<!-- 1 -->               Страницы &lt;&nbsp;
<!-- 2 -->               <a href="%link_page%">%n_page%</a>&nbsp;
<!-- 3 -->               <b>%n_page%</b>&nbsp;
<!-- 1 --><!-- 2_insert -->
<!-- 1 -->  
             &gt;
<!-- 1 -->          </td>
<!-- 1 -->     </tr>
<!-- 4_insert -->
<!-- 4 -->  
   <tr>
<!-- 4 --><!-- 5_insert -->
<!-- 5 -->    
      <td>
<!-- 5 -->               <a href="%link_image%" target="_blank"><img src="%link_icon%" alt="%name_image%"></a><br>
<!-- 5 -->               %name_image%
<!-- 5 -->          </td>
<!-- 4 -->     </tr>
<!-- 1_insert -->
</table>
</body>
</html>

В блоках «заголовок» и «окончание» используются следующие переменные:

  • %name_category% - Название категории;
  • %title_category% - Описание категории;

В блоке «фотография» используются следующие переменные:

  • %link_image% - Ссылка на фотографию;
  • %link_icon% - Ссылка на уменьшенное изображение;
  • %name_image% - Название фотографии;

В блоке «список страниц» используются следующие переменные:

  • %link_page% - Ссылка на предыдущую/следующую страницу;
  • %n_page% - Номер страницы;

    Теперь перейдем скрипту, естественно он должен быть компактен и работать в один проход, то есть процедуры мы не используем:

Начало стандартное:

#!/usr/bin/perl
use CGI;
use DBI;
use DBD::mysql;
use strict;
my ($query, $gallery, $page, $dbh, $sth, $sql, $tmp, @cat, $mi, $i, $max_img, @img, @temp, $tl1, $tl2, $tl3, $tl4, $tl5, $np, $ii, $tl, $link, $list2, $n_row, $n_col, $list4, $list5, $iii, $url_img, $l_img, $l_ico);

Устанавливаем начальные переменные:

$url_img = "//www.mysite.ru/gallery/";

Получаем переменные окружения:

$query = new CGI;
$gallery = $query -> param('gal');
$page = $query -> param('p');
$gallery = 0 if $gallery eq ''; # MySQL уходит в "штопор" если указывается пустое значение в условии запроса
$page = 1 if $page eq '';

Выбираем данные нашей фотогалереи:

$dbh = "DBI:mysql:mybase:localhost:3306";
$dbh = DBI->connect($dbh,'user','qwerty');
$sql = "SELECT name, titling, template, row_list, column_list FROM gallery_table WHERE id='$gallery'";
$sth = $dbh -> prepare($sql); $sth -> execute();
while ($tmp = $sth -> fetchrow_arrayref()) {
   $cat[0] = $tmp->[0];
   $cat[1] = $tmp->[1];
   $cat[2] = $tmp->[2];
   $cat[3] = $tmp->[3];
   $cat[4] = $tmp->[4]
}
$sth -> finish();

Обрабатываем полученные данные:

$mi = $cat[3]*$cat[4]; # количество фотографий на странице
$i = ($page-1)*$mi; # "стартовая точка" для LIMIT
@temp = split(/\n/,$cat[2]); # переводим шаблон в массив, так как его обработка ведется построчно

Выбираем количество фотографий фотогалереи:

$sql = "SELECT id FROM image_table WHERE category='$gallery'";
$sth = $dbh -> prepare($sql); $sth -> execute();
$max_img = $sth->rows;$sth->finish();

Выбираем список фотографий фотогалереи:

$sql = "SELECT id,name,image FROM image_table WHERE category='$gallery' LIMIT $i,$mi";
$sth = $dbh -> prepare($sql); $sth -> execute(); $i = 0;
while ($tmp=$sth->fetchrow_arrayref()) {
   $img[0][$i] = $tmp->[0];
   $img[1][$i] = $tmp->[1];
   $img[2][$i] = $tmp->[2];
   $i++}
$sth -> finish();$dbh -> disconnect();

Вырезаем из шаблона блоки:

foreach (@temp) {
   if (/<!-- 1 -->/) {$_=~s/<!-- 1 -->//g; $tl1 .= $_; $_=''}
   if (/<!-- 2 -->/) {$_=~s/<!-- 2 -->//g; $tl2 .= $_; $_=''}
   if (/<!-- 3 -->/) {$_=~s/<!-- 3 -->//g; $tl3 .= $_; $_=''}
   if (/<!-- 4 -->/) {$_=~s/<!-- 4 -->//g; $tl4 .= $_; $_=''}
   if (/<!-- 5 -->/) {$_=~s/<!-- 5 -->//g; $tl5 .= $_; $_=''}}

Формируем блок количества страниц:

if ($mi eq 0) {$mi = 1} # проверка что-бы не было деления на 0
$np = int(($max_img - 1)/$mi)+1; # количество страниц
if ($np eq 1) {$tl1 = ''} # если всего одна страница то данный блок не выводим, точнее обнуляем
else {
   for ($ii = 1; $ii < ($np + 1); $ii++) {
      if ($ii eq ($page)) {$tl = $tl3} else {$tl = $tl2} # текущая/нетекущая страница
      $link = "?gal=".$gallery."&p=".$ii;
      $tl =~s/%n_page%/$ii/gi;
      $tl =~s/%link_page%/$link/gi;
      $list2 .= $tl;
   }
$tl1 =~s/<!-- 2_insert -->/$list2/gi;
}

Получаем количество строк:

$n_row = int(($i-1)/$cat[4])+1;

Формируем строки:

for ($ii = 0; $ii < $n_row; $ii++) {
   if ($ii eq ($n_row-1)) {$n_col = $i - $ii*$cat[4]} else {$n_col = $cat[4]} # получаем количество ячеек в строке
   $list5 = '';

Формируем ячейки:

   for ($iii = 0; $iii < $n_col; $iii++) {
      $id = $ii*$cat[4] + $iii;
      $l_img = $url_img.$img[0][$id].".".$img[2][$id];
      $l_ico = $url_img."i".$img[0][$id].".".$img[2][$id];
      $tl = $tl5;
      $tl =~s/%link_image%/$l_img/gi;
      $tl =~s/%link_icon%/$l_ico/gi;
      $tl =~s/%name_image%/$img[1][$id]/gi;
      $list5 .= $tl;
   }

Вставляем сформированные ячейки в строку:

   $tl=$tl4;
   $tl=~s/<!-- 5_insert -->/$list5/gi;
   $list4 .=$tl;
}

Последняя обработка шаблона: вставляем сформированные строки и список страниц:

foreach (@temp) {
   $_ =~s/<!-- 1_insert -->/$tl1/gi;
   $_ =~s/<!-- 4_insert -->/$list4/gi;
   $_ =~s/%name_category%/$cat[0]/gi;
   $_ =~s/%title_category%/$cat[1]/gi;}

Выводим на экран:

print "Content-type: text/html; charset=windows-1251\n\n";print qq "@temp";exit;

и все... нет, конечно, еще нужно поработать с шаблономи и привести их в соответствующий вид, но это уже дело техники...

Томулевич Сергей (Phoinix) www.asit.ru




 :::::  Павел пишет 10.05.2004 @ 01:34 
Извини,если не трудно подскажи с чего начять, я хочу сделать свою страничку(программа ?,книга?.)Подскажи программу по проще:)
 :::::  Makc пишет 04.08.2004 @ 14:55 
Неплохая статья. Много полезной информации. Красиво оформлена. После небольших поправок в скрипте (добавлений знаков ; } и т.п) кое-что даже заработало. Вопросец такой: можно по-подробнее о модуле Image::Magick где его взять? У меня ругается на его отсутствие. Спасибо!
 :::::  Phoinix пишет 05.08.2004 @ 14:46 
to Makc

информацию о Image::Magick можно найти на сайте - http://www.imagemagick.org/
Правда с установкой могут возникнуть проблемы, т.к. "голый" модуль на Perl не станет, нужно устанавливать библиотеки Image::Magick в системе, причем как касабельно Unix платформ так и Win... Вообщем, тот же геммор, что и с GD... :)
 :::::  Makc пишет 06.08.2004 @ 14:43 
Спасибо. Уже разобрался. С установкой мэджика, как ни странно, проблем особых не возникло. Ставил весь пакет с исходников на Красную Шапку 7.3. Все стандартно tar, configure, make install...
 :::::  ne пишет 27.10.2006 @ 18:19 
Ну что - день потратил на то что бы все баги исправить! Запустил, щас переделал под свою галерею! Перенес ее на CGI->Templates!
 :::::  garacio пишет 20.05.2007 @ 14:46 
А можно ссылку на работающий скрипт? Я тока начал разбираться с perl и при попытке собрать всё написанное здесь во едино вылазиют ошибки от которых я не знаю как избавиться
 :::::  Сергей пишет 23.02.2008 @ 22:11 
Сравнительный анализ Мэджика и ГД:

#!d:/usr/bin/perl.exe -w
use strict;
use CGI qw(:all escape);
use GD;
use Image::Magick; #используем модуль
print "Content-type: text/html\n\n";
#===================================


mini("photo.jpeg");
minigd("photo.jpeg");
exit;

sub mini{
my $image = Image::Magick->new; #новый проект

my $res = $image->Read(shift); #открываем файл
$image->Resize(geometry=>'120x90'); #обрезаем по ширине до 90; высота вычисляется автоматически
$image->Set(quality=>85);
$res = $image->Write("photo_im.jpg"); #Сохраняем изображение.
undef $image;
return $res;
}

sub minigd{
my $jpeg = GD::Image->newFromJpeg(shift);
my ($wold, $hold) = $jpeg->getBounds();

my $jpg = new GD::Image(120,90);
$jpg->copyResized($jpeg, 0, 0, 0, 0, 120, 90, $wold, $hold);

open(JPG, ">photo_gd.jpg") || die("Невозможно создать уменьшенную копию изображения!");
binmode JPG;
print JPG $jpg->jpeg(85);
close(JPG);
return 1;
}


Исходник: файл (2 862 956 байт) 2590x1944

Результат: ГД дал 120х90 - 5255байт - качество плохое; Мэджик дал 25691 байт - качество так себе, правда не использовал егошных фильтров.

ПОЧЕМУ В 5 РАЗ РАЗНИЦА В РАЗМЕРЕ??? Photoshop даёт те же 4-5 Кб. в хорошем качестве!!!

 :::::  Королина пишет 15.07.2008 @ 13:15 
[url=http://1-000-000-seriy.net/] телесериал клуб [/url], и еще [url=http://65tv.net/] онлайн телевидения [/url], кстати тоже [url=http://begunov.net/] онлайн телевидения [/url], а так же [url=http://bombanut.net/] фейерверк киев [/url], ну и еще [url=http://cvetovod.net/] заказ доставка цветов [/url], можно посмотреть еще и тут [url=http://dancemy.net/] танцы скачать [/url], и на последок [url=http://ekellia.net/] реферат живопись [/url], еще есть такое [url=http://emock.net/] скачать эмо [/url], плюс еще [url=http://erendby.net/] скачать рнб [/url], взгляните на это [url=http://fun-fantazy.net/] мир фантастики [/url], ознакомтесь [url=http://galct.net/] краш тесты [/url], Советую так же посмотреть [url=http://galiwood.net/] актрисы голливуда [/url], Ну и еще [url=http://hardmet.net/] северсталь инвест [/url], А кстати, тоже есть [url=http://hirurgi.net/] пластическая хирургия косметология [/url], Круто, еще есть [url=http://kolechko.net/] год свадьбы [/url], Здесь тоже [url=http://krowatki.net/] инвалидные коляски [/url], А тут еще видел [url=http://ne-bum-bum.net/] рок фестиваль [/url], Ну ничего [url=http://nejenis.ru/] год семьи [/url], приколи и тут есть есть что то [url=http://net-boli.net/] лекарства москвы [/url], я тут еще стока всего видел [url=http://newsibirsk.ru/] продажа новосибирск [/url], а скока здесь всего [url=http://nu-za-vas.net/] праздники 2008 [/url], и здесь я видалал тож [url=http://offlinegames.ru/] бесплатные игры [/url], прикольно а здесь еще больше [url=http://omygood.net/] философия религия [/url], ну тут вообще ахтунг всего [url=http://oon-kaolition-liberty.net/] сайт оон [/url], здесь просто ахтунг всего [url=http://otvynta.net/] выставка зарубежной недвижимости [/url], много чего и тут видел [url=http://palmov.net/] джунгли харьков [/url], здесь больше всего [url=http://pipilatsov.net/] ford fiesta [/url], много чего еще и здесь видел

 :::::  Юрий пишет 17.10.2008 @ 17:44 
Сергею
> Сравнительный анализ Мэджика и ГД:

1. При создании нового файла
> my $jpg = new GD::Image(120,90);
> my $jpeg = GD::Image->newFromJpeg(shift);

(как источника так и приемника) необходимо добавлять флаг 'truecolor', иначе исказится палитра

$image = GD::Image->newFromJpeg($file, [$truecolor])
$image = GD::Image->new([$width,$height],[$truecolor])


2. В приведенном примере, похоже изображение уменьшается.
Для GD, в этом случае, лучше использовать copyResampled, подобна copyResized, но действует мягче

Из практики:
у GD при параметре качество/сжатие для jpeg - 85 качество близкое к PShop при одинаковых размерах



Имя:
Email:
URL

Введите сумму двух чисел девять и шесть (девять+шесть=?)
Запомнить мою информацию

* Html запрещен* Ваш E-mail опубликован не будет.

Copyright © 2000-2001 WebScript.Ru nas@webscript.ru
Design © 2001 by Parallax Design Studio (aka Spectator.ru)
Все торговые марки и авторские права на эту страницу принадлежат их соответствующим владельцам.
Сгенерировано за: 0.0306530