En concreto lo que quiero es que al ingresar a la página con el módulo GD crear la imagen, luego mostrarla en la web. ¿Es posible con el módulo HTTP::Server::Simple? De nos ser así, ¿es posible con otro módulo o método?
Sigo el ejemplo para crear el servidor, mostraré las subrutinas en cuestión solamente, evito también crear una imagen compleja para evitar un exceso de lineas:
Using perl Syntax Highlighting
- sub resp_index {
- my $cgi = shift;
- print $cgi->header,$cgi->start_html('index');
- print "<FORM method=\"POST\" action=\"http:\/\/localhost:8080/imagen\">";
- print "<h3>ingrese ancho de la imágen<\/h3>";
- print "<INPUT type=\"text\" name=\"Ancho\"><br>";
- print "<h3>ingrese alto de la imágen<\/h3>";
- print "<INPUT type=\"text\" name=\"Alto\"><br>";
- print "<p><INPUT type=\"submit\" value=\"Enviar\"><\/p>";
- print "<\/FORM>";
- print $cgi->end_html;
- }
- sub resp_imagen {
- my $cgi = shift;
- my $ancho = $cgi->param('Ancho');
- my $alto = $cgi->param('Alto');
- use GD;
- my $img = new GD::Image($ancho,$alto);
- my $white = $img->colorAllocate(255,255,255);
- my $red = $img->colorAllocate(255,55,33);
- $img->transparent($white);
- $img->interlaced('true');
- $img->fill(0,0,$red);
- print $cgi->header,$cgi->start_html('imagen');
- print "<h3>No sé llamar la imágen<\/h3>";
- print $cgi->end_html;
- }
Coloreado en 0.006 segundos, usando GeSHi 1.0.8.4