С нами с 06.08.03
Сообщения: 243
Рейтинг: 228
|
Добавлено: 28/06/06 в 19:40 |
Последний раз редактировалось: Magus (20/11/17 в 16:09), всего редактировалось 1 раз
|
|
|
|
С нами с 20.06.06
Сообщения: 9
Рейтинг: 11
|
Добавлено: 28/06/06 в 20:07 |
http://search.cpan.org/~lds/GD-2.34/GD.pm
Код: | #!/usr/bin/perl
use CGI;
use GD;
my $img = GD::Image->new("image.jpg");
$x = 100;
$y = 100;
$z = 85;
my $img1 = $img->copyResized($img, 0,0,0,0,
$x, $y, $img->width, $img->height);
open(IF, ">newimage.jpg");
binmode IF;
print IF $img1->jpeg($z);
close IF;
|
З.Ы. Не проверял.
З.З.Ы. Вместо $img->copyResized можно попробывать $img->copyResampled. параметры те же. смотреть на качество.
З.З.З.Ы. Для ресайза имхо, лучше Image::Magic
|
|
|
|
С нами с 06.08.03
Сообщения: 243
Рейтинг: 228
|
Добавлено: 28/06/06 в 21:08 |
Последний раз редактировалось: Magus (20/11/17 в 16:09), всего редактировалось 1 раз
|
|
|
|
С нами с 06.08.03
Сообщения: 243
Рейтинг: 228
|
Добавлено: 28/06/06 в 21:59 |
Последний раз редактировалось: Magus (20/11/17 в 16:09), всего редактировалось 1 раз
|
|
|
|
root
С нами с 04.04.04
Сообщения: 888
Рейтинг: 242
|
Добавлено: 28/06/06 в 22:19 |
- запусти скрипт из ssh и посмотри как ругается
- сам GD на сервере стоит ?
|
|
|
|
С нами с 06.08.03
Сообщения: 243
Рейтинг: 228
|
Добавлено: 28/06/06 в 22:27 |
Последний раз редактировалось: Magus (20/11/17 в 16:10), всего редактировалось 1 раз
|
|
|
|
С нами с 26.04.06
Сообщения: 77
Рейтинг: 70
|
Добавлено: 28/06/06 в 22:53 |
права то стоят на запись в каталог?
|
|
|
|
С нами с 06.08.03
Сообщения: 243
Рейтинг: 228
|
Добавлено: 28/06/06 в 23:02 |
Последний раз редактировалось: Magus (20/11/17 в 16:10), всего редактировалось 1 раз
|
|
|
|
С нами с 26.04.06
Сообщения: 77
Рейтинг: 70
|
Добавлено: 29/06/06 в 00:18 |
напиши полностью какая ошибка
|
|
|
|
С нами с 26.02.03
Сообщения: 2366
Рейтинг: 987
|
Добавлено: 29/06/06 в 00:28 |
|
|
|
|
С нами с 26.04.06
Сообщения: 77
Рейтинг: 70
|
Добавлено: 29/06/06 в 00:38 |
Код: | #!/usr/bin/perl
use CGI;
use GD;
my $img = GD::Image->new("./image.jpg");
$x = 100;
$y = 100;
$z = 85;
my $img1 = GD::Image->new($x, $y, 1);
$img1->copyResized($img, 0, 0, 0, 0, $x, $y,
$img->width, $img->height);
open(IF, ">./newimage.jpg");
binmode IF;
print IF $img1->jpeg($z);
close IF;
|
проверил, работает
|
|
|
|
С нами с 06.08.03
Сообщения: 243
Рейтинг: 228
|
Добавлено: 29/06/06 в 01:54 |
Последний раз редактировалось: Magus (20/11/17 в 16:10), всего редактировалось 1 раз
|
|
|
|
С нами с 06.08.03
Сообщения: 243
Рейтинг: 228
|
Добавлено: 29/06/06 в 01:57 |
|
|
|
|