Foro - Perl en Español

Hola;

¿Hay alguna forma de borrar el último carácter de la consola de salida cuando se está ejecutando el script?

Por ejemplo, si tenemos constantemente un script corriendo, ¿podemos escribir la hora en la consola de salida y cada x minutos que escriba la nueva hora pero borrando la anterior?

Gracias.

Estoy mostrando en un campo de un formulario, datos devueltos de una consulta a una tabla, que poseen acentos. El problema es que al mostrarse en el formulario, aparecen caracteres raros, en vez del acento correspondiente.

¿Cómo puedo subsanar este problema? ¡¡¡Gracias!!!

Agradecería si me pudiesen explicar cómo utilizar la función Format de Perl para crear reportes simples, cuyos datos provengan de una consulta a base de datos. ¿Es esto posible? ¿Cómo sería? ¡¡¡Gracias!!!

Hago una llamada a un webservice, pero lastimosamente el resultado parece que me lo devuelve en JSON, pero tiene unos slash que me generan problemas... o barras invertidas...

Tengo mi my $content = $mech->content();

Y el contenido se me muestra como algo así:
$VAR1 = '{"d":"[{\\"Id\\" : \\"48790\\", \\"IdEdicion\\" : \\"1\\", \\"IdTipoItem\\" : \\"16\\", \\"IdSeccion\\" : \\"37\\", \\"AnteTitulo\\" : \\"Club gastronómico\\", \\"Titulo\\" : \\"\\u0027The Green Samán’\\", \\"Resumen\\" : \\"A Cali llega una propuesta en ...

Hola amigos, yo de nuevo.
Tengo el siguiente problemilla:
if (($lectura eq "P") or ($lectura eq "PRIVMSG"))
{
if ($lectura)
{
print "Recibiendo $lectura\n";
$user = $NUMERICOS{$lectura};
@comando = split(/\:/,$lectura);
&queries();
}
}

sub queries
{
$co = uc($comando);
if ($lectura eq $n_preo)
{
print "He recibido privado dirigido a -> $lectura\n\n";
} else {
print "No he recibido nada, que pasara? -> $lectura $!\n\n";
}
}

Resulta que $! me devuelve que ...

Hola.

Quería consultar lo siguiente. Tengo un script que guarda código HTML de varias páginas. Lo que quiero hacer es guardar el código de cada página, cosa que más tarde pueda ejecutar el analizador que quiero hacer y no tener que descargar a cada rato las páginas para corregir cosas.

Lo que he estado haciendo es grabar cada página en un archivo dándole un nombre dinámico:

open my $fh, ">", "Pagina$.txt";
$i++;

Después leo ...

Hola, bueno, soy neófito en programación Perl y estoy buscando ayuda
para un trabajo que me exigen en la universidad.

Bueno, el programa tiene que calcular la esperanza, la varianza y la covarianza.

Se le pueden ingresar "n" números y para indicar el fin de la lista de números, hay que colocar un 0.

Bueno, ojalá me puedan ayudar.

Hola compañeros,

Tengo un error en un script que hasta hace poco funcionaba y ahora al ejecutarlo salen errores...

El script baja una imagen de una web y la guarda en un directorio local. He aprovechado el script del tutorial
Descargar imágenes vía HTTP.

El script modificado y que antes me funcionaba es este:
#!/usr/bin/perl -w

use strict;
use File::Path;
use File::Copy;
use lib '/usr/lib/perl5/site_perl/5.8.8';
use Image::Grab qw(grab);

my $img = new Image::Grab;
$img->url('http://webcam.cnelbalis.com/record/current.jpg'); ...

Mientras una consulta a la DB me devuelve registros, voy cargando estos en un hash con el fin de poder, luego, desplegar ese listado con alguna que otra restricción:


$altas{$fec}->{$valor}->{identificador}=$id;
$altas{$fec}->{$valor}->{login}=$login;
$altas{$fec}->{$valor}->{dire}=$dire;
$altas{$fec}->{$valor}->{tel}=$tel;
$altas{$fec}->{$valor}->{fdp}=$fdp_rid;
$altas{$fec}->{$valor}->{solicitud}=;
$altas{$fec}->{$valor}->{comision}=;


__OUTPUT__
%hash => {
'06-05-2013' => {
'1' => {
'identificador' => 20623,
'comision' => ,
'login' => 'algio_c',
'dire' => 'XXXXXXXXXXXXXXXXXX',
'tel' => '55555555555555',
'fdp' => 1,
'solicitud' => [
'Disponibilidad OK', ...

¿Qué tal? Nuevamente solicitando de su gran ayuda. Tengo una aplicación en Perl la cual consulto a la bases de datos y me arroja aproximadamente 500 registros, por lo mismo la página crece bastante.

¿Existe algún módulo que me permita manejar una paginación que me muestre en pantalla de 20 en 20 registros?

La base de datos que utilizo es PostgreSQL.

¡¡¡ Saludos !!!