Question

我有一个小程序，可以从CSV文件中检索数据（国家/地区名称和百分比）。我将国家/地区的名称存储在f1.txt文件中，并将每个国家/地区的百分比存储在f2.txt中。

我想用图表表示数据。

这是我写的

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();

我找到了手动输入数据的示例，但这次我想从文本文件中恢复它（数据动态变化）

Answer 1

这很好，所以使用push函数将恢复的数据堆叠在一个表中，然后通过引用传递.graph（\ @ Country，\ @Purcent）;

perl如何使用此数据创建饼图？

1 个答案: