Forum Webscript.Ru

Программирование => Perl => Тема начата: Error202 от 22 Ноября 2005, 14:13:52

Название: Объем картинки
Отправлено: Error202 от 22 Ноября 2005, 14:13:52

Пользователь вводит путь к картинке [Обзор...]
Она заливается на сервер и отображается...

Как ограничить размеркартинки 30Кб-ами и проверить, что там действительно картинка..?

Название: Объем картинки
Отправлено: Error202 от 22 Ноября 2005, 14:30:28

Всем спасибо... Объем решил проверять по мере скачивания...

А как быть с содержанием... Проверять первые байты?

Название: Объем картинки
Отправлено: NeoNox от 23 Ноября 2005, 11:55:24

my $content_type = lc (uploadInfo($filename)->{\'Content-Type\'});
if ( $content_type =~ /^image/ )
{
...
}

Название: Объем картинки
Отправлено: Error202 от 24 Ноября 2005, 13:45:46

Спасибо, попробуем...

Название: Объем картинки
Отправлено: Kannabismus от 25 Ноября 2005, 00:54:03

попробуйте еще

; use Image::Info qw/image_info/
; my $IMG = $q->upload(\'img\') #CGI
; my $imgi = image_info($IMG)
; if($imgi->{file_ext}!~/jpg|gif|png/)
 { # подходящие форматы
 }