Foro - Perl en Español

Por más que he buscado no logro encontrar un tema en donde se trate o se vea cómo entrar a un servidor y ver la bandeja de entrada de los correos pudiendo ver la cantidad de correos, etc.

Alguna ayuda por favor.

Buen día, compañeros. Aquí de nuevo con una consulta, modificando el ejemplo Perl Ajax de login OK. Bueno cuando llamo una otra función desde la que se declara en Ajax.
my $pjx = new CGI::Ajax( 'checar_pwd' => \&checar_pwd );
Yo la llamo así
sub checar_pwd($find_ok){
my $entrada = shift;
&chk_user($entrada);
if ($find_ok eq 0) { return $find_ok; }
else { return "-- $find_ok LOgin Bad"; }
}

Pero no me retornó nada. Si la llamo ...

Hola a todos,

El caso es que quiero implementar una función que me devuelva los dos primeros caracteres de cualquier string (sea cual sea su longitud). ¿Que os parece el siguiente codigo?

my $long = length($_from);
return substr($_from, -$long, -$long+2);

¿Hay alguna forma más directa de hacerlo?

¡Muchas gracias!
Felipe

Hola amigos:

Antes que nada un agradecimiento a todos los navegadores del sitio y a todos los que postean en el foro, especialmente a explorer que básicamente se ha hecho cargo del foro a causa de mi ausencia.

La razón por la cual escribo, es que estas últimas semanas he estado totalmente absorvido por mi trabajo y mi vida personal, lo que ha hecho imposible que pueda entrar al sitio de Perl en Español.

Estoy ...

Que tal Colegas:

Quiero hacer un script que tenga un interrupción que se active cada ciertos mili segundos. Encontré $SIG{ALRM} el cual termina una función. Lo que busco es lo contrario, que mientras se ejecuta el programa se interrumpa la ejecución y se vaya a cierta función.

Gracias y saludos de antemano.

Hola amigos. En la siguiente dirección encontré una ayuda para las gráficas estadísticas
http://perlenespanol.com/tutoriales/gra ... _perl.html
pero necesito unas con líneas y no con áreas... ¿alguien me puede echar una mano? Le agradezco

Bueno ustedes diran: - Pero si eso es simple, basico, XDDDD -
Yo digo: - Si claro, diganle eso a mi pagina que NO LO QUIERE HACER!!! -

:lol: :lol: :lol: :lol: :lol:

Estuve investigando ...

Hola.

Estoy conociendo el Perl ya que me lo recomendaron ampliamente, pero soy totalmente nuevo en este lenguaje.

Tengo un trabajo pendiente que me ha costado resolver. El problema es el siguiente: tengo 1 archivo de texto (llamado DSK061204MEX.txt) que contiene 14 registros con la siguiente estructura:

Code: Seleccionar todo

061204AJUSTES    00000001234567
061204INTERF       00000007895412

Ahora quiero incluir los 3 últimos caracteres del nombre del archivo al principio de cada registro es decir :

Code: Seleccionar todo

MEX061204AJUSTES    00000001234567
MEX061204INTERF       00000007895412

Ya ...

Hola.
Tengo un problema.
Quisiera saber cómo realizar una búsqueda en un archivo de texto, y a partir de allí llevar una determinada cantidad de líneas a una hash.
Espero que me puedan ayudar

Hola de nuevo,

my $result = strftime "%Y%m%d", gmtime($_date);
return $result;

El caso es que deseo el resultado con el formato siguiente:
YYMMDD, pero la instrucción usada mas arriba me lo da con el formato siguiente:

YYYYMMDD.

¿Hay alguna forma de obtener sólo los dos últimos dígitos del año directamente con la función strftime, sin tener que pasar por el siguiente codigo?

my (undef, undef, undef, $_day, $_month, $_year, undef, undef, undef) = gmtime ($_date); ...