Foro - Perl en Español

Tengo el propósito de levantar un script donde un usuario pueda consultar vía web un gráfico estadístico respecto de la cantidad de reclamos que se hicieron entre un periodo (en base a una fecha inicio y otra fin)


y obtener algo como esto:


Y lo que tengo es lo siguiente:
#!/usr/bin/perl -wT
#estadisticas.pl

use strict;
use CGI qw/:standard/;
# en caso de errores
use CGI::Carp qw/fatalsToBrowser/;
# hacemos uso de plantillas
use ...

Buenos días, necesito hacer en Perl un script que genere un reporte a partir de una query a la base de datos, y por tanto que muestre un listado. ¿Conocéis algún módulo para ello?? Hasta ahora he visto el PDF::API2, pero me resulta un poco enrevesado. Espero vuestra ayuda.

Una pregunta básica de la cual no tengo idea de cómo hacer. Tengo el siguiente código:
use Text::Banner;
$a=Text::Banner->new;

$a->set('test');

$a->fill("#");

print $a->get;

¿Alguien me podría indicar cómo hacer todo este código en una línea?

P.d.: intenté con Text::Banner->set("hola")->fill("#")->get;, pero nada.

¡Hola!

Quiero sustituir una parte de un XML.

Para ello había pensado en utilizar expresiones regulares y el operador s///.

El problema es que no soy capaz de seleccionar la parte que deseo del texto.

Os muestro un fragmento:

<vm name="h3" type="libvirt" subtype="kvm" os="linux">
<filesystem type="cow">/usr/share/vnx/filesystems/rootfs_ubuntu</filesystem>
<mem>128M</mem>
<if id="1" net="Net2">
<ipv4>10.0.2.2/24</ipv4>
</if>
<route type="ipv4" gw="10.0.2.1">default</route>
<filetree seq="start-www" root="/var/www">conf/tutorial_ubuntu/h3</filetree>
<exec seq="start-www" type="verbatim" ostype="system">chmod 644 /var/www/*</exec>
</vm>

<vm name="h4" type="libvirt" subtype="kvm" os="linux">
<filesystem type="cow">/usr/share/vnx/filesystems/rootfs_ubuntu</filesystem>
<mem>128M</mem> ...

Hola amigos.

Mi pregunta es la siguiente:

¿Se puede poner el mismo encabezado en varias páginas programadas en CGI, en similitud a PHP, que se puede poner el mismo encabezado?

Muchas gracias y a ser posible me gustaría saber el código.

¡Hola!

Estoy aprendiendo a programar en Perl y me he topado con un error con el que no contaba: no puedo devolver como valores de una función un par de hashes.

Por lo que he leído hay que hacerlo mediante referencias, pero, sinceramente, no sé qué son las referencias.

¿Alguien podría explicarme qué son y si hay alguna forma de devolver los hashes al estilo de como se hace para una variable normal?

Gracias.

Tengo problemas como con este sencillo script.


[[ (8)Exec format error: exec of '/usr/lib/cgi-bin/hello.pl' failed
Premature end of script headers: hello.pl


#!/usr/bin/perl -w


use CGI qw/:all/;
use CGI::Carp qw/fatalsToBrowser/;
use HTML::Template;

# open the html template
my $template = HTML::Template->new(filename => '/home/reLlene/tmpls/documento.tmpl');

# fill in some parameters
$template->param(HOME => $ENV{HOME});
$template->param(PATH => $ENV{PATH});

print "Content-type: ...

Hola estimados, ¿es posible que me echen una mano con Perl? Necesito extraer cierto dato dentro de una línea, por ejemplo:

<dato1>2732</dato1>
<dato2>10440</dato2>
<dato3>10441</dato3>

y solo debo rescatar lo que está entre '>' y '<', o sea
2732
10440
10441

¿Cómo puedo hacer esto? Gracias.

Tengo el siguiente código. El problema es que devuelve algo sin forma.

use Image::Caa;
use Image::Magick;


# load an image

my $image = Image::Magick->new;
$image->Read('asciiuno.jpg');


# display it as ASCII Art

my $caa = new Image::Caa();
$caa->draw_bitmap(0, 0, 40, 20, $image);


y devuelve esto (es más largo):

←[37;2;40;6mM←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m
@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;2;40;6mM←[0m←[37;1;
40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[
37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;2;40;6mM←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←
[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40
;6m8←[0m←[37;2;40;6mM←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37
;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;2;40;6mM←[0
m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6
m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;2;40;6mM←[0m
←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m
8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m#←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;
40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[
37;1;40;6m#←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←
[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m#←[0m←[37;1;40
;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37
;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m#←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0
m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6
m@←[0m←[37;1;40;6m#←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m
←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m
@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;
40;6m8←[0m←[37;1;40;6m@←[0m←[37;1;40;6mG←[0m←[37;2;40;6mK←[0m←[37;1;40;6mS←[0m←[
37;2;40;6mf←[0m←[37;2;40;6m$←[0m←[37;2;40;6mt←[0m←[37;2;40;6m$←[0m←[37;2;40;6mt←


No sé ...

Hola a todos:

He escrito un socket siguiendo los ejemplos que hay en Internet. Funciona bien.
El único problema es que cuando cierro el cliente se cierra también el servidor,
¿hay alguna manera de evitar esto?

Muchas gracias,
Jorge.