2016-11-26 50 views
-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(); 

我發現那裏的數據是手動輸入的例子,但這次我想從一個文本文件中恢復它(動態數據的變化)

+2

你忘了問一個問題。你有什麼問題? – toolic

+0

我想在圖中表示f1.txt和f2.txt的數據。 – Younes27

+4

這不是問題,而是一個問題陳述。一個問題是「如何用這些數據創建餅圖?」你需要更具體,展示你的嘗試,並說明你已經嘗試了什麼問題。 – Tanktalus

回答

-2

這是好的,所以把恢復的數據堆放在一個帶有push函數的表格中,然後通過引用傳遞.graph(\ @ Country,\ @Purcent);