为什么此脚本在Windows上创建损坏的PNG文件？

Question

我正在尝试创建一个PNG文件。

下面的脚本执行时没有返回任何错误，无法查看输出文件tester.png（并且cmd窗口打印附加的附加文本）。

我不知道为什么我无法查看此脚本生成的PNG文件。

我同时使用了Active Perl（5.18.2）和Strawberry Perl（5.18.4.1），但同样存在问题。虽然我没有收到任何错误，但我尝试了草莓Perl，因为它有libgd和libpng作为安装的一部分。有什么建议吗？

#!/usr/bin/perl

use Bio::Graphics;
use Bio::SeqFeature::Generic;
use strict;
use warnings;

my $infile = "data1.txt";
open( ALIGN, "$infile" ) or die;
my $outputfile = "tester.png";
open( OUTFILE, ">$outputfile" ) or die;

my $panel = Bio::Graphics::Panel->new(
    -length => 1000,
    -width  => 800
);
my $track = $panel->add_track(
    -glyph => 'generic',
    -label => 1
);

while (<ALIGN>) {    # read blast file
    chomp;

    #next if /^\#/;  # ignore comments
    my ( $name, $score, $start, $end ) = split /\t+/;
    my $feature = Bio::SeqFeature::Generic->new(
        -display_name => $name,
        -score        => $score,
        -start        => $start,
        -end          => $end
    );
    $track->add_feature($feature);

}

binmode STDOUT;
print $panel->png;
print OUTFILE $panel->png;

Answer 1

你有

binmode STDOUT;
print $panel->png;

有趣的是，你也有：

print OUTFILE $panel->png;

但你永远不会binmode OUTFILE。因此，您在命令提示符下显示PNG文件的内容，并创建一个损坏的PNG文件。 （另见When bits don't stick。）

如果删除print OUTFILE ...，并将脚本输出重定向到PNG文件，则应该能够在图像查看器中查看其内容。

C:\> perl myscript.pl > panel.png

或者，您可以避免将二进制文件的内容打印到控制台窗口，而是使用

binmode OUTFILE;
print $panel->png;