Perl GD模块PNG图像损坏或无法打开

Question

我运行的是Windows 10，我安装了Perl v5.26.1，它是为MSWin32-x64-多线程构建的。ActiveState提供的二进制内部版本2601[404865]。

我的问题是我想使用GD:：Graph。

一切看起来都很好。我写了一个代码，做了语法检查，一切都很好。不过，当我运行脚本时，我得到的都是胡说八道。我尝试输出到*.png文件，但该文件已损坏。

这让我发疯了。我在这里做错了什么？任何帮助都将不胜感激。以下是代码

#!usr/bin/perl -w
use strict;
use GD::Graph::area;
# File: prob1.pl
my @x = (0, 0, 0.00759, 0.018975, 0.036053, 0.216319, 0.449715, 0.648956, 
0.815939, 0.935484, 1);
my @y = (0, 0.053763, 0.16129, 0.308244, 0.577061, 0.792115, 0.874552, 
0.924731, 0.964158, 0.989247, 1);
my @data = (@x, @y);
my $graph = GD::Graph::area->new(500, 300);
$graph->set( x_label=>'False Positive Rate', y_label=>'True Positive 
Rate',title=>'ROC Curve') or warn $graph->error;
my $image = $graph->plot(@data) or die $graph->error;
open IMG, ">prob1.png" or die "can't open prob1.pngn";
print IMG $image->png;
exit;

Answer 1

默认情况下，Windows版本的Perl以crlf模式打开文件(用回车+换行替换输出流中的每一行(。您不希望这种情况发生在您的png流中，因此需要告诉Perl使用raw模式(输出原始字节(。

open IMG, ">:raw", "prob1.png";

是一种方法。

open IMG, ">", "prob1.png";
binmode IMG;

是另一个。GD和GD::Graph文档多次提请注意对binmode的需求。