Foro - Perl en Español

Hola a todos,

Estoy haciendo mis primeros pinitos con el debug de perl y tengo una duda que me ha surgido al intentar hacer un print de una variable:

p $displayFunction

Y lo que me muestra en pantalla es lo siguiente:

Code: Seleccionar todo

CODE(0x82788c)

¿De que se trata? De un hash creo que no pues si no ando equivocado, el propio debugger te lo indica al hacer el print.
¿Como hacer para mostrar el contenido de dicha ...

Hola amigos... no me ejecuta este cgi...
#!/usr/bin/perl

use strict;
use XML::RSS;
use LWP;
use Template;
use CGI;
use CGI::Carp qw( fatalsToBrowser );

sub _init {
my( $cgi, $url, $ua, $request, $response, $canal );
$cgi = CGI->new();
$url = $cgi->param('url') || 'http://www.cofradia.org/backend.php';
$ua = LWP::UserAgent->new;

$ua->agent('get_rdf/1.0 (' . $ua->agent . ')');
$request = HTTP::Request->new( GET => $url );
$response = $ua->request( $request );
croak "Error: No se pudo obtener la pagina pedida o el contenido ...

Hola a todos. Estoy empezando a utilizar base de datos en mis scripts y tengo muchas dudas... lo que estoy intentando hacer es tomar de un campo de una tabla donde se guardan los correos todos los que hay en la misma (o sea tomar todos los correos :p) y una vez que lo haga poder pasar todos a una variable independiente, parece algo bastante fácil pero se me esta complicando bastante... (he leído el ...

Buen día. Sólo haciendo una consulta. Llevo un tiempo trabajando en Perl con módulos para cgi. Ahora estoy haciendo unas pequeñas aplicaciones usando el módulo de Ajax pero tengo una pequeña duda. ¿Dónde verifico los errores o la lista de errores (con cgi lo veía en los log de Apache).

Uso Apache 2.2 para Windows.

Hola,
Estoy implementando en perl una aplicación cliente/servidor.

Para mandar datos entre el cliente y el servidor utilizo
syswrite Socket, $var, Length. ,

y para recibir utilizo la función sysread Socket , $var, length

El problema que tengo es que hay veces, cuando la cantidad de datos es grande, que la función sysread no lee todos los datos que se han enviado.
¿Alguien me puede ayudar, para obtener los datos correctamente?

Gracias
Saludos

¿Cómo se hace correctamente el redondeo de un número con decimales en Perl?

Hola,

Soy nuevo en esto. Querría a partir de un array obtener aquellos elementos que están repetidos mediante la función grep. He intentado algo, pero no logro obtener resultados
@arreglo = (1,3,5,7,3,2,1,8,3,7,3,5,1);
@coinc=grep(/$_{3,}/ , @arreglo);
Gracias por anticipado a vuestras respuestas
jmdelcampo

Estimados compañeros. Les escribo por una duda que se me presentó en una aplicación matemática que desarrollo, la cual debe determinar el tiempo que tarda el sistema después de realizar algunos cálculos, hice el intento con localtime, antes y después de la ejecución tome el tiempo, resto los segundos y que creen me da cero o sea la ejecución tarda menos de 1 seg es por ello que les pregunto si conocen algún modulo o ...

Hola a todos,

if ($date =~ /^(\d{4})-(\d{2})-(\d{2})$/) {
$y_ = $1;
$mth_ = $2-1;
$d_ = $3;
$h_ = 0;
$min_ = 0;
$s_ = 0;
return timegm($s_,$min_,$h_,$d_,$mth_,$y_);
}

¿Alguien me podría decir qué devuelve la función timegm con todos esos argumentos? ¿En que formato?

Muchísimas gracias,
Felipe

Hola, he instalado un servidor NTP de stratum 3 en mi máquina. Desde mi aplicación necesito la fecha y hora exactas, para lo cual utilizo Net::NTP. No obstante, parece que no funciona.

Hago lo siguiente:

use Net::NTP;
my %response = get_ntp_response();#'127.0.0.1',123);

print ("DEBUG NTP................".%response."\n");
print ("DEBUG NTP................".values(%response)."\n");
print ("DEBUG NTP................".keys(%response)."\n");


Y obtengo la siguiente respuesta:

DEBUG NTP................8/16
DEBUG NTP................13
DEBUG NTP................13
-----------------------------------
¿Cómo debo interpretar esto?