Forum Webscript.Ru

Программирование => Perl => Тема начата: Inecs от 05 Апреля 2006, 16:46:09

Название: Узнать тип файла
Отправлено: Inecs от 05 Апреля 2006, 16:46:09

Возник вот какой вопрос, скажем загружаю на диск upload файлы или же я загружаю файлы из сети посредством LWP и сохраняю в виде "что-то-там.tmp". Как можно узнать какой именно файл сохранён, скажем картинка (jpg,gif,png), архив (zip, rar,arj, ha) или экзешник...
Спасибо.

Название: Узнать тип файла
Отправлено: NeoNox от 05 Апреля 2006, 18:20:26

File::MimeInfo ?

Название: Узнать тип файла
Отправлено: Inecs от 05 Апреля 2006, 18:39:05

Опробовал. Но ему нужны еще и mime типы. А их нужно устанавливать отдельно. Вот что он пишет

You don\'t seem to have a mime-info database.
See http://freedesktop.org/Software/shared-mime-info

Есть ещё варианты?

Название: Узнать тип файла
Отправлено: NeoNox от 05 Апреля 2006, 18:40:32

Ну так и установи, в чем проблема?

Название: Узнать тип файла
Отправлено: NeoNox от 05 Апреля 2006, 18:42:04

Inecs как считаешь, откуда apache берет mime-info?
Правильно, из файла mime.types.

Название: Узнать тип файла
Отправлено: Inecs от 05 Апреля 2006, 19:01:50

Если всё так было просто. Хостер - гад, устанавливать не хочет...

Вот поэтому и спрашиваю, есть ли ещё способы?

Название: Узнать тип файла
Отправлено: cr4ck3r от 07 Апреля 2006, 15:30:04

Копируешь в свой домашний каталог файл mime.types, затем:

Цитировать

use File::MimeInfo;
push(\'home/user\',@File::MimeInfo::DIRS);
  my $mime_type = mimetype($file);