Foro - Perl en Español

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?

Saludos a todos...

Una pregunta básica. ¿Cómo lograr que aparezcan letras acentuadas en los mensajes enviados con alert();?

Gracias por sus respuestas.
Hasta pronto.

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

Hola, tengo una consulta. Tengo un formulario para hacer búsquedas en una base, en la cual tengo campos y CheckBox para llenar y marcar. Cuando el usuario busca y quiere volver para una nueva la configuración de la búsqueda se pierde. ¿Se hace con Cookies?

Desde ya muchas gracias

maximiliano

Hola a todos,

Tengo problemas al lanzar el debugger de perl (perl -d).

perl -d NombreScript -d 2006-11-12 -r

El resultado:

Code: Seleccionar todo

Loading DB routines from perl5db.pl version 1.25
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

-d: bad option(s)

¿Cómo puedo hacer para lanzar en modo debug dicho script? ¿Alguien ve el problema?

¡¡Gracias!!
Felipe

Buenas. Me gustaría saber si conocen la razón de que aparezca este error en el log del Apache.

Code: Seleccionar todo

Global symbol "$method" requires explicit package name at c:\\appserv\\www\\cgi-bin\\usuario.pl line 37.\n

Mi script completo es el siguiente:
#!c:\perl\bin\perl.exe
use strict;
use base 'usuario';

# Variables a guardar
my $nombre_usuario;
my $apellido_usuario;
my $login_usuario;
my $password_usuario;
my $numero_sap;
my $iniciales_gerencia;
my $extension_telefonica;
my $cargo_desempena;
my $correo_electronico;
my $ubicacion_empresa;
my $roles;
my $status_usuario;

# Métodos para introducir variables
coge_parametros(); ...

Hola

Tengo una pregunta referente a archivos. ¿Cómo puedo hacer que al subir archivos me acepte solamente archivos menores a 100 Kb, es decir limitarlo a esto y a la vez me muestre un mensaje de que el archivo es mayor?

Hola a todos,

El caso es que estoy bloqueado con un problema de fechas:


(undef, undef, undef, $d_, $mth_, $y_, undef, undef, undef) = gmtime();
# compute and enter the right directory

$day = sprintf("%04d",($y_+1900)).sprintf("%02d",($mth_+1)).sprintf("%02d",$d_-1);
$workingDir = "$workingDirBase/$day";

El caso es que dicho código no funciona cuando estamos en el primero de mes, pues para calcular $day, hago un $d-1.
¿Cómo obtener el día anterior correctamente? ¿Hay alguna función/librería que lo haga?

¡¡Gracias por ...