Foro - Perl en Español

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?

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(); ...