POP3 con Perl (2)

Esta función recibe un solo argumento que es el id del mensaje.

Terminando de recibir los mensajes lo que debemos de hacer es terminar la conexión que lo hacemos de la siguiente manera:

$pop->quit;

Otras Funciones

Ya vimos como abrir una conexión y leer los mensajes que tenemos en el INBOX. Ahora vamos a ver otras funciones que tenemos disponibles en el módulo.

ELIMINAR MENSAJES

Si estamos haciendo una aplicación que descarga los mensajes a un disco local, quizá querramos la posibilidad de eliminar los mensajes del servidor una vez que ya los tenemos en nuestro disco.

Esto se hace de manera sencilla con la siguiente función:

$pop->delete($msgnum);

En esta función la variable $msgnum debe de contener el ID del mensaje que debemos de eliminar.

Como funciona la eliminación de los mensajes, es que no los borra sino que se crea una lista de mensajes por borrar. Los mensajes de la lista son eliminados en cuanto se cierra la conexión con quit.

En caso de que el proceso termine antes de que se logre llamar a la función quit, ningún mensaje es eliminado. Esto hace que nunca tengas mensajes perdidos por falla en el script.

EL ENCABEZADO DE LOS MENSAJES

Podemos usar la función top para recibir solamente el encabezado de los mensajes y si queremos las primeras líneas del mensaje:

my $encabezado = $pop->top($msgnum,No_LINEAS);

Aquí llamamos a la función top con dos argumentos, $msgnum que es el número de ID del mensaje y "No_LINEAS" que debe de ser el número de las líneas iniciales del mensaje que queremos recibir. Si por ejemplo quieres leer las dos primeras líneas de cada mensaje junto con el encabezado deberás de poner 2.

ÚLTIMO MENSAJE

Si lo que queremos es ver cual es el último mensaje recibido usaríamos la función last.

my $last_msgnum = $pop->last;

Al correr la función regresa el ID del último mensaje recibido en el INBOX.

ESTADÍSTICAS DEL INBOX

Podemos usar la función popstat que regresa la cantidad de mensajes por eliminar y el tamaño del INBOX en octetos.

my ($del_msg,$size) = $pop->popstat;

Como vemos regresa dos variables, $del_msg con la cantidad de mensajes por eliminar y $size con el tamaño del INBOX en octetos.

Usuarios que han visto este tema también han visto...

- PostgreSQL con perl en el WEB
- Módulos en Perl
- Hola Mundo
- Buscar en un array en Perl
- Objetos en PERL 6

- Versión imprimible de este documento
- Enviar por e-mail este documento