Foro - Perl en Español

Tengo el siguiente :
Desde un aplicacion web deseo aplicar una busqueda ,donde la busqueda se realize en el servidor de linux en un log's de smtp
y que el resultado de la busqueda lo bote en la aplicacion web.
la busqueda puede ser por IP - USUARIO - FECHA - MENSAJES etc.
si porfavor me podrian ayudar en esto que es URGENTE se los agradeceria un monton.
o Escribanme a [email protected] ...

buenas,

Hace días hice un post en el que pedía si alguien me podía ayudar con una expresión regular que descartara todos los links que tuvieran una palabra determinada, pues bien, la expresión que me distéis me sirvió de mucho y funciona a la perfección, pero resulta que ahora necesito todo lo contrario. Necesito una expresión regular que recoja todos los links que contengan una determinada palabra.

Ejemplo:
<a href="http://money.cnn.com/2006/11/28/pf/heating_costs_savings/index.htm?postversion=2006112816">The Bottled Water Lie</a>
<a href="http://money.cnn.com/2006/11/28/markets/markets_0545/index.htm?postversion=2006112817">The ...

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