Foro - Perl en Español

Hola, tengo un programa hecho con GD para ver líneas, rectángulos, etc., pero cuando lo ejecuto tan solo me sale la consola MSDOS, y no se abre ninguna ventana gráfica con el dibujo de las líneas y demás. No sé si es que hay que direccionar hacia un archivo, o hay que poner algo más, para que se vea el formulario con las líneas.

#!/usr/bin/perl -w
use GD::Simple;

$img = GD::Simple->new(640, 480);

$img->fgcolor('black');
$img->bgcolor('yellow');

$img->rectangle(10, 10, 50, 50);
$img->ellipse(50, 50);

$img->moveTo(200,25);
$img->font('Times:italic');
$img->fontsize(18);
$img->string('Drawn With Perl');

Este código tampoco se visualiza. Sale en la consola con caracteres y pitidos, pero no se abre ninguna ventana mostrando nada.

#!/usr/local/bin/perl -w
# Cambie la línea de arriba para que apunte a su binario de Perl


use CGI ':standard';
use lib '/cise/homes/ppadala/mydepot/lib/perl5/site_perl';
use GD::Graph::bars;
use strict;

# Ambos arrays deberían de tener el mismo número de entradas.
my @data = (['Fall 01', 'Spr 01', 'Fall 02', 'Spr 02' ],
[80, 90, 85, 75],
[76, 55, 75, 95],
[66, 58, 92, 83]);

my $mygraph = GD::Graph::bars->new(500, 300);
$mygraph->set(
x_label => 'Semester',
y_label => 'Marks',
title => 'Grade report for a student',
# Dibuja barras con una anchura de 3 pixels
bar_width => 3,
# Separa las barras 4 pixels
bar_spacing => 4,
# Muestra la rejilla
long_ticks => 1,
# Muestra los valores el lo alto de cada barra
show_values => 1,
) or warn $mygraph->error;

$mygraph->set(logo => 'lglogo.png');
$mygraph->set(logo_resize => 0.5);
$mygraph->set(logo_position => 'LL');
$mygraph->set_legend_font(GD::gdMediumBoldFont);
$mygraph->set_legend('Exam 1', 'Exam 2', 'Exam 3');
my $myimage = $mygraph->plot(\@data) or die $mygraph->error;
print "Content-type: image/png\n\n";
print $myimage->png;

Las instrucciones de dibujo quedan almacenadas en el objeto $img. Lo que tienes que hacer luego es decidir adónde quieres sacar el resultado. Si quieres guardarlo a un archivo externo, debes realizar las operaciones clásicas de archivos:

y ya tienes creado el gráfico png en disco. Para verlo, usarás cualquier programa visor de archivos gráficos.

Con respecto al segundo programa: cada vez, que en un programa, veas las líneas

print "Content-type: ...

significa que la salida debe realizarse hacia un navegador web, no hacia consola, que no sabe qué hacer con esa información.

En el segundo ejemplo, cuando lo ejecuto, no se abre el navegador. Se sigue abriendo la consola. Lo ejecuto desde el IDE padre.

Yo tengo instalado también xampp. ¿Será que hay que ejecutarlo en la carpeta htdocs para que asé se abra en el navegador? ¿Poniendo localhost:8080/programa/grafico.pl estoy en lo correcto?

Primero debemos aclararnos qué tipo de programa quieres hacer.

¿Es un programa que se va a ejecutar en la consola, o quieres que se ejecute por petición de un navegador web?

Por lo que comentas en estos dos últimos mensajes, más bien parece lo segundo.

Bueno, pues entonces la cadena de desarrollo que estás adoptando no es la correcta: no puedes ejecutar el programa desde Padre sin más, ya que Padre creerá que se trata de un programa de consola como otro cualquiera. No lanzará el navegador y dentro de él tu programa. Ahora desconozco si en las últimas versiones de Padre se puede hacer eso, lo de ejecutarlo en un navegador, pero apostaría a que no.

Como lo que quieres hacer es un CGI (programa que se ejecuta del lado de un servidor), debes comprobar que el Apache esté funcionando (en el XAMPP). Luego, debes averiguar en qué carpeta debes colocar los cgi (alguna carpeta, al lado de htdocs, que se llame cgi/, cgi-bin/ o algo parecido). Esto está indicado en la configuración de Apache, por si no terminas de encontrarla. O si quieres que sea otra la carpeta.

Colocas el programa en esa carpeta, arrancas el navegador web, y escribas en la línea de dirección una URL parecida a la que has escrito:

http://localhost/cgi-bin/programa.pl

Y si todo va bien, debería salir el gráfico.

localhost se refiere a tu propio ordenador. Si el servidor Apache está escuchando en un puerto distinto al 80, deberás indicarlo con ':' seguido del número de puerto.

cgi-bin/ es el nombre de la ruta que Apache reserva para la ejecución de cgi. Si no es esa, deberás consultar la configuración para saber qué otro nombre tiene.

programa.pl es tu programa. Aquí damos por supuesto que Apache entiende que la terminación pl significa "ejecutable", por lo que ejecutará el programa en lugar de mostrarlo tal cual (su código fuente). En otras ocasiones es necesario cambiar la terminación .pl por .cgi (lo mismo de siempre: esto se define en la configuración).

Mira, en mi Linux, he tenido que hacer algunas variaciones al código:
He tenido que instalar las distribuciones

libgd-perl
libgd-text-perl
libgd-graph-perl - Aquí está definido el módulo GD::Graph::bars

pero ya sale bien:

(esta imagen se está generando cada vez que se descarga esta página)