RDV+DIAL chat illimit� dans ta r�g!
no save
Assistance
Achat
News

Forum | programmation
[PERL]tableau de valeurs dans une variable
phoenix1984, le mer. 29 oct. 2008 à 13:38:10
Bonjour,

voici un bout de programme opérationnel qui me fournit un joli graph.

#!/usr/bin/perl -i.orig
use perlchartdir;


# The data for the line chart CONNEXIONS
my $data = [30, 28, 40, 55, 75, 68, 54, 60, 50, 62, 75, 65, 75, 91, 60, 55, 53, 35, 50, 66, 56, 48, 52, 65, 62];


# The labels for the line chart HEURES
my $labels = ["0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12",
"13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24"];

# Create a XYChart object of size 250 x 250 pixels
my $c = new XYChart(500, 500);

# Set the plotarea at (30, 20) and of size 200 x 200 pixels
$c->setPlotArea(30, 20, 450, 450);

# Add a line chart layer using the given data
$c->addLineLayer($data);

# Set the labels on the x axis.
$c->xAxis()->setLabels($labels);

# Display 1 out of 3 labels on the x-axis.
$c->xAxis()->setLabelStep(1);

# output the chart
$c->makeChart("simpleline.png")

Mais ce programme est "statique" dans le sens où il contient les valeurs des variables $data & $labels

j'aimerais plutôt qu'il aille les lire dans un fichier texte tout simple ..

Si vous avez une idée elle est la bienvenue ...
j'ai déjà fait un petit test :

#!/usr/bin/perl -i.orig
use perlchartdir;
use Shell qw(cat);

my $data=cat("data.txt");

...
..
.

# Add a line chart layer using the given data
$c->addLineLayer([$data]);

.
..
...

qui ne fonctionne ÉVIDEMENT pas ..

Merci

VincentConfiguration: Windows XP
Firefox 3.0.3


lami20j
oct. 08
Suivant
REPONSES
lami20j
oct. 08
phoenix1984
oct. 08
lami20j
oct. 08
phoenix1984
oct. 08
lami20j
oct. 08
Version Web
Réalisé par RedShift
no save