私はWindows10を実行しており、MSWin32-x64-multithread用に構築されたPerlv5.26.1をインストールしました。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.png\n";
print IMG $image->png;
exit;
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加