-3
我有一個小程序從CSV文件(國家名稱和百分比)中檢索數據。我將國家名稱存儲在f1.txt
的文件中,並將每個國家/地區的百分比存儲在f2.txt
中。perl如何使用此數據創建餅圖?
我想表示圖中的數據。
這裏是我寫
use strict;
use warnings;
use Text::CSV;
use GD::Graph::bars;
use GD::Graph::Data;
my $filename = "out.csv";
my $input1 = 'f1.txt';
my $input2 = 'f2.txt';
open(OUT1, '>' . $input1) or die("can't open $input1. \n");
open(OUT2, '>' . $input2) or die("can't open $input2. \n");
sub main {
print "Entrez la valeur : ";
my $val;
chomp($val = <STDIN>);
open(INPUT, $filename) or die "Cannot open $filename";
my $line = <INPUT>;
print "les pays ou les accident sont a cause de la TraFic sont :";
while ($line = <INPUT>) {
chomp($line);
my ($name, $name2, $purcent, $purcent1, $purcent2, $purcent3, $purcent4, $purcent5)
= split(' ', $line);
if ($name2 > $val) {
print "$name\t$name2\t\n";
print OUT1 "$name\n";
print OUT2 "$name2\n";
print "\n";
}
}
}
main();
我發現那裏的數據是手動輸入的例子,但這次我想從一個文本文件中恢復它(動態數據的變化)
你忘了問一個問題。你有什麼問題? – toolic
我想在圖中表示f1.txt和f2.txt的數據。 – Younes27
這不是問題,而是一個問題陳述。一個問題是「如何用這些數據創建餅圖?」你需要更具體,展示你的嘗試,並說明你已經嘗試了什麼問題。 – Tanktalus