Foro - Perl en Español

Hola.

Miren, tengo varias preguntas, cuando hago un fichero con los datos de mi correo, se escriben los datos de esta manera:

Código: Seleccionar todo

mail
password
pop.gmail.com
true ó false -> aquí depende de si se utiliza SSL

al usar Mail::POP3Client.

Quiero poner los datos de USER, PASSWORD, HOST, SSL directamente del fichero, bueno, primero abro el fichero y coloco los datos en un array.

Por ejemplo:


Ya tengo en un array los datos, pero ahora intento incluirlos en las funciones de POP3Client:



pero tengo un problema: ni USER, ni PASSWORD, ni HOST me funcionan, únicamente me funciona USESSL.

Por lo general uso USER, PASSWORD y HOST de esta manera:



pero con el array no puedo y no sé de qué forma puedo hacer que funcione.

También ¿alguien sabe cómo cerrar una segunda ventana hecha en Gtk sin cerrar la primera?

Lo que pasa es que al crear una ventana, hago una función en donde abro otra ventana, pero si hago esto en signal_connect "Gtk2->main_quit" se cierra todo, y solo quiero cerrar las ventanas que se abran sin cerrar la principal, por así decirlo, quiero cerrar las ventanas hijas sin cerrar la ventana padre...

jeje, no sé si se dice así, pero espero lo entiendan...

Y otra pregunta, ¿cómo reviso las carpetas de mi mail, por separado... ya que al revisar mi correo, se me muestran todos los mensajes de inbox, trash, etc... pero quiero ver únicamente los mensajes de la bandeja de entrada o los borradores o los enviados, etc...

¿Que se necesita para eso?

salu2

Hay varios errores... de concepto.

Abres el fichero datos.txt en modo escritura, pero luego haces una operación de lectura.

Si haces esto:estás guardando cada línea de DATOS en cada elemento de @mem, incluyendo los caracteres de final de cada línea, y eso no es lo que quieres que pase.

Antes, tienes que quitárselos. La lectura quedaría así:


Tienes otro fallo de concepto a la hora de acceder a los elementos de @mem: está claro que es arreglo, pero cada elemento de un arreglo es un escalar. Y la forma de acceder a un escalar no es con '@' sino con '$'.

El uso de '@' con elementos de un arreglo, -aunque parece que funcione bien por razones explicadas en otros hilos de estos foros-, no es lo correcto en cuanto a la forma de expresión de lo que quieres hacer. Si estás queriendo leer valores individuales, entonces debes usar el sigil '$'. Esto lo tienes explicado con ejemplos en Wikipedia (Perl) y en perldata.

Para lo del Gtk, supongo que será invocando alguna función close().

En cuanto a lo del correo, depende del servidor de correo que uses. El protocolo POP no contempla el caso de tener carpetas en el lado del servidor. Solo existe la carpeta de entrada. Las demás son locales. El protocolo IMAP, sí que lo permite.

Hola.

jeje, lo siento, lo escribí mal...


Gracias por lo del uso de '@'. Intenté usar chop() pero no me funcionó... aunque lo hice de un modo diferente, tal vez por eso no me funcionó aunque no me apareció ningún mensaje de error, pero bueno, al menos de la forma como me mostraste me funcionó

Para lo del Gtk, supongo que será invocando alguna función close().

De eso voy a buscar porque no sé cómo cerrar la ventana. Es que abro una ventana donde puedo guardar la información de mi correo, pero al oprimir guardar aparte de guardar la información quisiera que se cerrara...

¿Cuál módulo me recomiendan usar...? Ya que busqué algo de IMAP en CPAN, pero no supe cuál me serviría mejor. Lo que quiero es poder revisar mensajes, y se puede por separado, como mencioné anteriormente, los mensajes de bandeja de entrada, basura, borradores, etc.

También poder borrar mensajes, bueno, casi o un uso completo de mi mail...

Por cierto, con POP3Client se puede analizar el mensaje que yo quiera, cuando quiera, por ejemplo:


Coloco este código de CPAN, aunque lo modifiqué un poco para puedan entender mi problema... pero ¿cómo podría hacer que al escribir por ejemplo en un Entry el número 4, con get_text(), Head reciba el número del mensaje que quiero ver y me lo muestre?

Algo así:

Lo intente así, pero no me funcionó... aunque no sé si esté bien la parte de $hd.


¿Será acaso que tengo que quitarpara que no se cierre la conexión?

Hola.

Sobre lo de IMAP, ¿cuál podría usar para tener un control total de mis correos?

¿Mail::IMAPClient ó Net::IMAP::Simple?

Lo necesito para conexiones sin y con SSL, ¿cuál sería el mejor?

Y para revisar un mensaje, tengo que conectarme mediante Mail::POP3Client todo el tiempo, ya que en C uso un while() para mantener la conexión activa y solo ejecuto en fgets() el comando RETR y el número y con eso puedo revisar cualquier mensaje, pero no sé si también se pueda hacer lo mismo con el módulo de POP3Client.

¿O será que para revisar un mensaje tengo que hacer, por ejemplo, una caja de texto y un botón en donde al ser oprimido, signal_connect ejecute las funciones del módulo Mail::POP3Client y se conecte a mi correo por cada mensaje que quiera revisar?

O como mencioné, ¿habrá la posibilidad de mantener la conexión activa y solo decirle a Head y Body cuál mensaje quiero ver?

salu2

Primero, debes escoger el protocolo más acorde a lo que necesites...

Si quieres consultar un determinado correo cada X segundos/minutos, te vale cualquier protocolo.

Si quieres que sea el propio servidor el que te avise de la llegada de nuevo correo, debes usar el protocolo IMAP con soporte del comando IDLE, NOOP o STATUS.

La elección del protocolo también estará determinada por el protocolo que ya esté instalado en el servidor. Y si no podemos cambiarlo, pues tendremos que ajustarnos a él.

Todos los protocolos tienen un timeout o lapso de tiempo de máxima espera. Si llega a ese tiempo, corta la conexión. Lo que puedes hacer, en el caso de POP, es preguntar cada X segundos/minutos por cambios o nuevos mensajes. En IMAP, lo mismo. La diferencia entre los dos es que muy posiblemente, en POP, tengas que iniciar una sesión completa, si dejas pasar mucho tiempo.

Dices que en C consigues mantener la conexión con un bucle. Bueno, pues con el módulo de POP3Client, lo mismo. Si ves el código del módulo, verás que hace un uso constante de RETR.

Lo primero que tienes que averiguar es cuál es el tiempo de corte de conexión desde el lado del servidor. Si, suponemos que son 300 segundos, entonces sabes que tienes que hacer alguna operación, la que sea, dentro de ese plazo de tiempo. No tiene que ser una operación de RETR, sino también un simple LIST para saber el listado de mensajes.

Ahora bien... la pregunta fundamental, ahora, es... ¿para qué quieres estar pendiente de un determinado correo? Si necesitas procesarlo de la forma más urgente posible, quizás el método de usar el correo electrónico no sea lo más recomendado. Quizás usar el protocolo CGI sea lo más directo.

Si no necesitas procesarlo de forma urgente, te vale con un proceso que se ejecute cada 5, 15, 30 o 60 minutos para que analice los nuevos correos recibidos.

Hola.

No,no,... jeje, no quiero revisar un mensaje, inmediatamente; quiero poder revisar todos mis mensajes, después de haber visto alguno... Lo explicaré lo más detallado posible para que me puedas ayudar.

Para revisar los mensajes, utilizo head y body.



Si te fijas, por mi ignorancia, yo le pongo un número dentro de head y body y lo pongo en un foreach(), aunque intenté quitar el foreach(), pero tengo varios mensajes de error si intento guardar en una variable los datos de Head y Body, pero por lo mientras así me ha funcionado.



Y con esto puedo revisar el mensaje que yo quiero; pero lo que quiero es colocar en una caja de texto con un botón, o algún simplelist, etc... el número del mensaje.

Y al hacer clic, me muestre el mensaje que quiero. Por ejemplo:

En una caja de texto escribo 4, y al darle clic en un botón quisiera revisar el mensaje número 4. Para eso lo que obtenga en get_text() se colocaría en head y body.



Pero en el botón, lo que no sé es si para revisar uno por uno mis mensajes, tengo que conectarme a mi correo por cada mensaje o se puede hacer un bucle para que siempre esté conectado y solo revisar el mensaje que quiero ¿o hay alguna opción para eso?

Por ejemplo, en signal_connect() tendría que hacer algo parecido a esto:



pero como mencioné, si hago esto tendría que conectarme a mi correo por cada mensaje que quiera revisar. ¿O hay alguna forma de mantenerme conectado y solo tener que hacer algo parecido a esto?



Si ven, ya no me vuelvo a conectar; solo le digo a Head y/o Body qué mensaje quiero ver... espero haber sido lo más detallado posible...

salu2

En la propia sinopsis del módulo Mail::POP3Client, en las primeras líneas, hay un ejemplo de cómo recorrer la lista de mensajes almacenados en el buzón, con la ayuda de la funcion Count().

Los métodos List() y ListArray() también dan información de todos los mensajes. Con una sola de estas llamadas obtienes la lista completa.

En cuanto a la pregunta fundamental, si permanecer conectado o no, puedes hacer esto:

Inicias la conexión, recuperas la lista de mensajes, la muestras y quedas esperando.

Si el usuario cierra el programa, puedes cerrar la conexión.

Si el usuario intenta recuperar un mensaje, primero compruebas que la conexión esta viva con la ayuda del método Alive().

Si no lo está, haces un Connect(),

y ya puedes recuperar el mensaje.

Como ves, es cuestión de usar lo que el propio módulo te ofrece.

El número que le pasas a Head() y Body() es el número de mensaje a recuperar. Y las funciones te devuelven todas las líneas, bien sea en forma de escalar o de lista de valores, según el contexto en que las pongas:


Dentro de un foreach() lo estás haciendo en contexto lista, por lo que procesas una línea cada vez.