Foro - Perl en Español

Hola, tengo un problema con Apache debido al timeout de una función.

Me explico: tengo una consulta por Ajax que ejecuta una función hecha en Perl. El problema es que dependiendo de los filtros que se utilicen (más o menos filtros) para una búsqueda en una base de datos puede llegar el caso de que se me produzca un timeout con el consiguiente error.

¿Existe alguna manera de detectar ese timeout para mostrar una alerta ...

Hola,

Estoy intentando actualizar la versión 5.10.1 de Perl que trae CentOS 6.4 a la versión 5.14.4.

Una vez instalada la versión 5.14.4 he hecho:

# mv /usr/bin/perl /usr/bin/perl5101
# ln -s /usr/local/bin/perl /usr/bin/perl

de esta manera no pierdo la versión antigua. Lo único que tendría sería que instalar los módulos de CPAN, de nuevo.

Los módulos que tenía antes son GD,Image::GD::thumbnail,DBI y JSON.

He tenido problemas con GD pero forcé la instalación.

El problema ...

He estado tanteando Getopt::Long para darle un poco más de robustez a mis programas. Las posibilidades que ofrece para controlar los parámetros pasados al programa son exactamente lo que buscaba. He hecho este código para probarlo:


#!/usr/bin/perl

use v5.12;
use strict;
use warnings;
use MIME::Base64;
use Getopt::Long;

#Programa de codificación y decodificación en base64. De acuerdo con la información del módulo #MIME::Base64 codificaremos en múltiplos de 57 bytes: "This ensures that the base64 ...

¿Cómo declaro las variables $n1, $n2 y $resultado para que no me dé este error? Ahora, si le pongo my $n1; ya no me da error, pero my() es local. ¿Cómo la declaro global en este programa?

#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
print "Introduce un primer numero:\n";
$n1 = <>;
print "Introduce un segundo numero:\n";
$n2 = <>;
$resultado=$n1+$n2;
print "El resultado es:$resultado\n";

Global symbol "$n1" requires explicit package name at sumanumero3 line ...

El libro de M. Brown Perl sin errores muestra cómo utilizar este módulo para ver la interpretación que hace Perl de nuestro código al aplicar los órdenes de precedencia de los distintos operadores:
perl -MO=Deparse, -p -e '$a + $b * $c / $d % $e'
-e syntax OK
($a + ((($b * $c) / $d) % $e));
La documentación http://perldoc.perl.org/B/Deparse.html afirma, en efecto que:

When you use the -p option, the output also ...

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, ...

Hola, estoy buscando la equivalencia en Perl de la función de C gotoxy para posicionar texto en la consola. Por lo visto el Term::Cap o el screen no funcionan en Windows. La versión de Perl es la que viene con el IDE Padre 5.14.2. A ver qué módulo me podría valer.

EDITADO: 3 horas después de escribir este código ya lo había interpretado equivocadamente. Afortunadamente me doy cuenta de las cosas... A la tercera o la cuarta. :oops:

La edición afecta a mi "interpretación" de las operaciones efectuadas por el código que valida la ruta absoluta del archivo que paso a dpkg --search desde el fichero de datos. Si he mancillado los ojos de alguien mediante ese párrafo ...

¡Hola!

Al lanzar el comando:
/etc/init.d/mysql status
Rather than invoking init scripts through /etc/init.d, use the service(8)
utility, e.g. service mysql status

Since the script you are attempting to invoke has been converted to an
Upstart job, you may also use the status(8) utility, e.g. status mysql
mysql start/running, process 25274

Me gustaría interpretar la frase "mysql start/running, process 25274".

Lo estoy intentando así:#!/usr/bin/perl
use strict;
use IPC::Open3;
my $comando = "/etc/init.d/mysql status";
my ...

¡Muy buenas! Mi primer mensaje aquí. Felicidades por el foro... ¡realmente resulta de muchísima utilidad!

Hay una parte de un script que se me resiste sobremanera... es en la que trato de subir un paquete a una web, que me realice la tarea y, finalmente, bajarlo.

Me gustaría crear un loop para que el mismo script compruebe periódicamente. De momento me las apaño con el siguiente código, pero esta hecho con palos y piedras...

[perl ...