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.
-
- Publicidad
Fecha actual 2024-11-26 01:48 @117
News of Mundo Perl
Site map of Mundo Perl » Foro : Mundo Perl
Leer Bandeja de Entrada
Read more : Leer Bandeja de Entrada | Vistas : 1045 | Respuestas : 2 | Foro : Básico
Funciones y CGI::Ajax
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 ...
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 ...
Read more : Funciones y CGI::Ajax | Vistas : 1237 | Respuestas : 2 | Foro : Intermedio
Duda sobre tratamiento string
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
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
Read more : Duda sobre tratamiento string | Vistas : 968 | Respuestas : 3 | Foro : Básico
Cómo hacer Timer para activar una función
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.
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.
Read more : Cómo hacer Timer para activar una función | Vistas : 2335 | Respuestas : 1 | Foro : Avanzado
Gráficas estadísticas de líneas
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
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
Read more : Gráficas estadísticas de líneas | Vistas : 2943 | Respuestas : 1 | Foro : Web
Poner Color a Border
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 ...
Yo digo: - Si claro, diganle eso a mi pagina que NO LO QUIERE HACER!!! -
:lol: :lol: :lol: :lol: :lol:
Estuve investigando ...
Read more : Poner Color a Border | Vistas : 1136 | Respuestas : 2 | Foro : Intermedio
Formateado de texto
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:
Ahora quiero incluir los 3 últimos caracteres del nombre del archivo al principio de cada registro es decir :
Ya ...
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 ...
Read more : Formateado de texto | Vistas : 1008 | Respuestas : 4 | Foro : Básico
Leer un parte de un archivo de texto
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
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
Read more : Leer un parte de un archivo de texto | Vistas : 995 | Respuestas : 3 | Foro : Básico
Duda sobre formato fechas
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); ...
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); ...
Read more : Duda sobre formato fechas | Vistas : 763 | Respuestas : 1 | Foro : Básico
Problema con Formulario
Hola a todos, soy nuevo en el foro y en esto de programar en Perl. Llevo apenas como 1 mes haciendo casi todo por consola y ahora que lo empecé a combinar con html se me presentó un problema. Tengo el siguiente formulario:
<html>
<head><link rel="stylesheet" type="text/css" href="estilo.css"></head>
<body>
<center>
<table border=1>
<form action="lectura.pl" method="get">
<tr>
<th colspan="2"><h2>Agregar Contacto</h2></th>
</tr>
<tr>
<td>ID:</td>
<td><input type="text" name="id" /></td>
</tr>
<tr>
<td>Nombre:</td>
<td><input type="text" name="name" /></td>
</tr>
<tr> ...
<html>
<head><link rel="stylesheet" type="text/css" href="estilo.css"></head>
<body>
<center>
<table border=1>
<form action="lectura.pl" method="get">
<tr>
<th colspan="2"><h2>Agregar Contacto</h2></th>
</tr>
<tr>
<td>ID:</td>
<td><input type="text" name="id" /></td>
</tr>
<tr>
<td>Nombre:</td>
<td><input type="text" name="name" /></td>
</tr>
<tr> ...
Read more : Problema con Formulario | Vistas : 1260 | Respuestas : 6 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36882 • Temas totales 7430 • Usuarios totales 1981