Foro - Perl en Español

por **mortenol** » 2012-10-09 11:41 @529

Buenas a todos.

Quiero chequear el asunto de los correos de una determinada carpeta de mi buzón para buscar una cadena en concreto y si la encuentra lanzar otra operación.

Estoy probando con:

http://search.cpan.org/~plobbes/Mail-IM ... Client.pod

pero mi nivel en Perl es bajo y me pierdo.

¿Voy por el camino adecuado? ¿Existe algún módulo más fácil para hacer lo que quiero?

Saludos.

#!/usr/bin/perl -w
use strict;
use Mail::IMAPClient;
use IO::Socket::SSL;
 
my $socket = IO::Socket::SSL->new(
   PeerAddr => 'servidor',
   PeerPort => 993,
  )
  or die "socket(): $@";
 
my $client = Mail::IMAPClient->new(
   Socket   => $socket,
   User     => 'usuario',
   Password => 'password',
  )
  or die "new(): $@";
 
print "I'm authenticated\n" if $client->IsAuthenticated();
my @folders = $client->folders();
print join("\n* ", 'Folders:', @folders), "\n";
 
 
$client->select("correos");
 
my $msgs = $client->search("ALL");
for my $h (values %{ $client->parse_headers( $msgs , "Subject", "Date") } )
  {
        print map { "$_:\t$h->{$_}[0]\n"} keys %$h;
  }
 
$client->logout();
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Existe otra función que es get_header (creo recordad) que es más simple que parse_headers. ¿Quizás tengo que utilizar esa?

La historia es que para ser novato me resulta difícil utilizar este módulo de Perl y quería saber si hay alguna forma más sencilla.

P.D: No quiero que me escriban código, ¡¡¡¡quiero aprender!!!!

por **explorer** » 2012-10-09 17:17 @762

Según la documentación del módulo Mail::IMAPClient, no necesitas crear un objeto IO::Socket::SSL, sino que con poner la opción Ssl => 1, ya es suficiente.

Hay que pensar la jugada... podemos optar por la táctica de ver qué nuevos mensajes han llegado desde una determinada fecha (método since() o sentsince()), extraerles el asunto (método subject()), y si coincide con lo que queremos, lo procesamos y luego borramos el mensaje (delete_message()). Y purgamos la carpeta con expunge().

Otra táctica: si sabemos que es un buzón de correo solo para nosotros, pues recuperamos la lista de todos los mensajes, los procesamos y luego los borramos.

O también: usar search() indicando qué cadena o subcadena de caracteres estás esperando en el asunto.

El módulo si que puede ser algo complicado de manejar. Puedes probar a usar Net::IMAP::Simple, que parece un poco más simple.

por **mortenol** » 2012-10-15 10:55 @496

Al final estoy usando el Net::IMAP::Simple pero no logro conectar con el servidor de Gmail. Sin embargo con Mail::IMAPClient lo podía hacer sin problemas con los mismos datos de conexión.

He intentado depurar el script y me dice:"unable to connect".

La historia es que no me muestra ningún error al ejecutar el I, se queda como intentando conectar.

¿Alguna idea por lo que puede ser?

Ya he visto en ejemplos que la mayoría utilizan Mail::IMAPClient.

por **explorer** » 2012-10-15 12:22 @557

¿Activaste la opción use_ssl => 1?

por **mortenol** » 2012-10-16 09:13 @425

¡¡¡¡Gracias!!!!

Ya tengo la primera parte solucionada. Lo que hago es mirar el asunto del correo y compruebo si coincide con un patrón que busco. Si es así, accedo a una URL, donde introduzco un usuario y password en un formulario de acceso y realizo una tarea con el acceso concedido en la web.

Para la segunda parte quiero utilizar la libcurl.

http://search.cpan.org/~szbalint/WWW-Cu ... WW/Curl.pm

Ya os cuento.

por **explorer** » 2012-10-16 09:39 @444

O WWW::Mechanize...

por **mortenol** » 2012-10-21 10:01 @459

Resulta que el botón del submit del formulario donde tengo que poner el usuario y la contraseña ejecuta un JavaScript que comprueba que el navegador sea compatible (entre otras cosas). Vamos, que tiene JavaScript.

He leído que WWW::Mechanize no se entiende muy bien con los JavaScript.

¿LWP es la opción que me queda?

por **explorer** » 2012-10-21 11:37 @526

Si el código JavaScript de la página solo comprueba qué navegador es, y que el formulario está bien, y a continuación realiza la llamada POST (envía el formulario al servidor), entonces no hay problemas en obviarlo.

Es decir: no pienses en hacer un código que pulse un botón en una página web, si no solo en que tienes que hacer una petición POST a una determinada URL. Esa URL es la que está escondida en el código JavaScript. Y el servidor la recibirá pensando que ha pasado por el filtro de su JavaScript, pero no ha sido así.

Y eso lo puedes hacer con LWP o con WWW::Mechanize o cualquier otro entorno de rascado web de Perl.

En CPAN hay algunos módulos que son capaces de interpretar JavaScript, pero si el código que estás intentando saltar es muy simple, no tienes más que analizar qué hace y saltarlo.

Foro - Perl en Español

Comprobar correo para realizar una acción

Comprobar correo para realizar una acción

Publicidad

Re: Comprobar correo para realizar una acción

Re: Comprobar correo para realizar una acción

Re: Comprobar correo para realizar una acción

Re: Comprobar correo para realizar una acción

Re: Comprobar correo para realizar una acción

Re: Comprobar correo para realizar una acción

Re: Comprobar correo para realizar una acción

Re: Comprobar correo para realizar una acción

Re: Comprobar correo para realizar una acción

¿Quién está conectado?