
Feliz Navidad y Feliz año 2009
Enlace: Venganza.org
Y tu que le deseas Blog , este año 2009?? Yo ando con mis deseos muy parecidos a estos
Pd: Nada de regalos extraños por esta época como este u este.
Dame un punto de conexión y me moveré por la Red.
$formatter->define_substitution('<' => '<',
'>' => '>',
'á' => 'á',
'ñ' => 'ñ',
'&' => '&'); # HTML escapes.
![]() |
Del 1 al 5 de noviembre 26 de septiembre al 16 de Noviembre de los corrientes se estará llevando a cabo la Feria Internacional del Libro de Venezuela en todos los estados del país, auspiciado por el Centro Nacional del Libro. En el caso del Estado Táchira se estará llevando a cabo en la Plaza Bolívar de San Cristóbal.
Actualización: La variedad de autores y libros con diferentes temáticas me ha llevado a adquiri una buena cantidad de obras a bajísismo costo. Calidad Garantizada. Lo poco leído he ma despertado el apetito literario, al punto que no deje escapar esa sílaba inspirada y libere un poco de tinta en mi otro blog
#!/usr/bin/perl -wT
# Cambiase a donde este la ubicación de Perl
##Acá he usado un servidor HTTP para obtener la imagen
use CGI ':standard';
use GD::Graph::hbars;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
## Data a graficar, en mi caso es las visitas al blog por país,por comodidad se usa un array.
my @data = (["España", "Mexico", "Venezuela", "Argentina","Colombia" ,"Peru", "Chile", "USA", "Desconocido",
"Rep Dominicana", "El Salvador", "Ecuador", "Costa Rica", "Brasil", "Noruega", "Rumania", "Turquia"],
[105, 84 , 76 ,37, 32 , 31, 22, 14, 11, 9, 7 , 5 , 4, 3, 2 , 1, 1 ]);
##Creando una grafica de 600x600 pixeles.
my $mygraph = GD::Graph::hbars->new(600, 600);
##Configurando las opciones de la gráfica
$mygraph->set(
title => 'Visitas al Blog por Pais Junio-Septiembre 2008',
x_label => 'Visitas/Hits',
y_label => 'Pais',
show_values => 1,
y_max_value => 110,
bar_spacing => 4,
dclrs => [ qw(green pink blue cyan) ]
) or warn $mygraph->error;
my $myimage = $mygraph->plot(\@data) or die $mygraph->error;
###Como comente arriba , al estas usando un HTTP server, debo de mostrar la imagen
### asi que mando un header al navegador para mostrar la imagen
print "Content-type: image/png\n\n";
print $myimage->png;
#####Fin de archivo
### Alternativamente si deseamos obtener la gráfica de forma de tenerla por separada en un
### archivo se puede usar estas lineas, claro descomentando xD
#open (IMG, '>imagen.png') or die "error";
#binmode IMG;
#print IMG $myimage->png;
#close IMG;
#!/usr/bin/perl -wT
# Change above line to point to your perl binary
#use CGI ':standard';
use GD::Graph::pie;
#use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
# Both the arrays should same number of entries.
my @data = (["Espanol", "Desconocido", "Ingles", "Catalan","Noruego" ,"Turco"],
[222, 124, 71, 3, 1, 1]);
my $mygraph = GD::Graph::pie->new(500, 500);
$mygraph->set(
title => 'Lenguaje detectado en visitas al BLog',
label => 'prueba de label',
'3d' => 1,
suppress_angle => 5,
start_angle => 90,
) or warn $mygraph->error;
$mygraph->set_value_font(GD::gdMediumBoldFont);
my $myimage = $mygraph->plot(\@data) or die $mygraph->error;
#print "Content-type: image/png\n\n";
open (IMG, '>sta2.png') or die "error";
binmode IMG;
print IMG $myimage->png;
close IMG;
"Si un producto profesional es tan parecido al producto desarrollado por un aficionado como para que se confundan, el profesional tiene un problema: está haciendo un producto malo".
about:robots
Y Aparece esto:~# dpkg-reconfigure libpaper1
# fuser -m /dev/TU_DEVICE
/dev/TU_DEVICE: 1450
###Buscamos que proceso esta usando como PID en este caso 1450
# ps auxw|grep 1450
usuario 1450 0.4 2.7 219212 56792 ? SLl Feb11 11:25 rhythmbox
sudo update-manager -c -d