Foro - Perl en Español

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

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?

Hola a todos, recien estoy conociendo lo que es Perl y encontre un buen tutorial de Uriel Lizama. Quisiera saber donde encuentro más información. Gracias

Hola, mi pregunta es muy básica, me gustaría saber cuál es el tamaño máximo que puedo asignar a un string. Es decir, si tengo algo así:

my $cadena = "cosas que escribo dentro de la cadena hasta que me aburro...";

¿Cuántos caracteres puedo poner como máximo entre las comillas?

Gracias