#!/usr/bin/perl use GD::Graph::bars; use strict; open(F, "estadisticas.txt") || die "no abri estadisticas\n"; my @data = ; close(F); my ($i, %jugadores, %jugados, $id, $j, $ganador, $demas); foreach $i (@data){ ($id, $ganador, $demas) = split(/\s/, $i); chomp $demas; $jugadores{$ganador} ++; foreach $j (split(/\|/, $demas)){ if ($j ne ""){ $jugados{$j} +=1; $jugadores{$j} += 0; } } } my (@jug, @ganados, @partidos); my @porcentajes; foreach $i (keys(%jugadores)){ push (@jug, $i); push (@ganados, $jugadores{$i}); push (@partidos, $jugados{$i}); push (@porcentajes, sprintf("%.2f",($jugadores{$i}*100)/$jugados{$i})); } my @datagraf = ([@jug], [@porcentajes]); my $graph = GD::Graph::bars->new(500,400); $graph->set(title => 'Estadisticas de XBLAST', x_label => 'Jugadores', y_label => 'Porcentaje', y_max_value => 100); $graph->set_legend(("Porcentaje de partidos ganados c/r a jugados")); $graph->set( dclrs => [ qw(green) ] ); $graph->set( r_margin => 1); my $gd = $graph->plot(\@datagraf); open(G,">xblastEst.png") || die "Error abriendo archivo de salida\n"; binmode G; print G $gd->png; close G; open (I, ">index.html")|| die "No abri index\n"; print I <<_EOF; Estadisticas XBLAST:



_EOF for ($i = 0; $i <= $#jug; $i++){ print I ""; } print I <<_EOF;
JugadorJugadosGanadosPorcentaje
$jug[$i]$partidos[$i]$ganados[$i]$porcentajes[$i]
_EOF close(I); exit;