如何在模块Image :: EXIF中禁用警告

Question

美好的一天！ 运行此脚本时：

#!/usr/bin/perl
use strict;
use warnings;

use Image::EXIF;
my $exif = new Image::EXIF($ARGV[0] || 'image3.jpg');

显示警告（所有照片都没有警告。）：

（null）：未知的TIFF字段类型;丢弃（未知）

是否可以取消此警告？

Answer 1

查看该模块的源代码，它有一个XS本机部分，调用的c函数看起来像这样（在文件“exifutil.c”）：

void exifwarn2(const char *msg1, const char *msg2)
{
    fprintf(stderr, "%s: %s (%s)\n", progname, msg1, msg2);
}

如您所见，它打印到STDERR，因此您可以在调用Image :: EXIF构造函数之前正确处理STDERR。 This SO question可能会对您有所帮助。