如何禁用模塊中的警告圖片:: EXIF

Question

美好的一天！ 當您運行此腳本：

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

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

顯示警告（警告是不是所有的圖片。）：

（空）：未知TIFF字段類型;丟棄（未知）

是否可以抑制此警告？

Answer 1

縱觀該模塊的源代碼，它有一個XS本地部分，被稱爲這個樣子的（在文件「exifutil.c」）的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可能會幫助你。