my $exif = new Image::EXIF ();
if (!defined $exif) {return 1;}
$exif->file_name($image_fname);
if ($exif->error) {return 1;}
$res=$exif->get_all_info();
Перенапавление вывода в Perl (или беда с Image::EXIF)
В общем есть такая беда, в воремя аплоада файлов мне нужно проверять содержимое тегов EXIF.
Использую Image::EXIF. Вот код:
Без в том, что $exif->file_name выводит варнинги, и апач от такого просто угарает с "Premature end of script headers".
Как мне сделать так чтобы эти варининги ни попадали ни в STDERR ни в STDOUT ???
Использую Image::EXIF. Вот код:
Код:
Без в том, что $exif->file_name выводит варнинги, и апач от такого просто угарает с "Premature end of script headers".
Как мне сделать так чтобы эти варининги ни попадали ни в STDERR ни в STDOUT ???