Discussion :

[Teufboy]

Hello,

Je tente de lire un email via pop 3 et suis rudement bloquée !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
#!/usr/bin/perl -w
    use strict;
    use Net::POP3;
    use Net::SMTP;
    use MIME::Parser;
    use MIME::Entity;
    use MIME::Lite;
    use POSIX 'strftime';
    use strict;
 
    my $server = 'mail.test.ch';      
    my $login  = 'test';  
    my $passwd = 'test';       
    my $nbMessage = 0;
    my $size = 0;
 
    # Tentative de connection au serveur de messagerie
    my $pop = Net::POP3->new($server)
      or die "Impossible de se connecter au serveur ".$server."\n";
 
    # Tentative d'autentification 
    $pop->login($login, $passwd)
      or die "Impossible de se connecter sur le compte ".$login."\n"; 
 
    # On récupère le nombre de message et la taille actuelle de la boîte
    ($nbMessage, $size) = $pop->popstat; 
 
    print "\t--> Le nombre de message est : ".$nbMessage."\n".
          "\t--> La taille de la boite est : ".$size."\n\n";
 
    # On essaie de récupérer les message afin de les traiter
    for my $i (1..$nbMessage) {
      # On récupère le mail
      my $mail = $pop->get($i,FH);
 
      #print @$mail;
 
      print "\t--> Récupération du mail ".$i."\n";
 
      # On recherche les différentes partie MIME 
      my $parser = MIME::Parser->new();
      my $entity = $parser->parse(\*FH);
 
    #$pop->quit();
 
    my($body,$image_encoded);
 
    for($entity->parts()) {
        my $corps = $_->body();
        my $head = $_->head()->as_string;
 
        $body = join '', @$corps if $head =~ /content-type: text\/plain/is;
        $image_encoded = join '', @$corps if $head =~ /content-type: image\//is;
    }
 
    # obtention de la date sous la forme d'une chaîne aaaammjj 
    my $time = strftime("%Y%m%d", localtime);
    my $image_name = "imageEnfin_$time.jpg";
    my $message_name = "messageEnfin-$time.txt";
 
    open W, "/home/sguerid/Perl/POP3_IMAP/$message_name"
      or die "ne peut créer le fichier $message_name\n";
    print W $body;
    close W;
 
    open W, "/home/sguerid/Perl/POP3_IMAP/$image_name"
      or die "ne peut créer le fichier $image_name\n";
    print W decode_base64($image_encoded);
    close W;
  }

Je ne capte pas pouquoi il bloque sur mon filehandler, quelqu'un pourrait-il m'apporter un peu de cette lumière qui m'échappe ?

Ps l'erreur est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Bareword "FH" not allowed while "strict subs" in use at test2.pl line 34.
Execution of test2.pl aborted due to compilation errors.

Un grand merci !

[2Eurocents]

La coloration syntaxique aurait pu te mettre la puce à l'oreille.

Particulièrement dans cette partie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
my $server = 'mail.test.ch';      
    my $login  = test';  
    my $passwd = 'test';

Il manque la simple quote ouvrante, dans l'affectation à $login.

[rcageot]

t'as juste oublié un simple quote sur cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
   my $login  = 'test';

du coup il a du mal à gérer le reste

Edit : boudiou, 3 à répondre en même temps, ça se bouscule aujourdh'ui et évidemment je suis grillé 2 fois !

[GnuVince]

Question de style, donc pas obligé d'écouter ce que je dis, mais je préfère utiliser des variables scalaires plutôt que des barewords pour me file handles.

Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
# Vincent aime pas
open FH, '<', 'fichier';
 
# Vincent aime :)
open(my $fh, '<', 'fichier');

Ça fonctionne pas avec toutes les versions de Perl par contre.

[rcageot]

quand tu dis que tu n'aimes pas, y a-t'il une raison autre que stylistique dans l'utilisation d'une scalaire au lieu du file handler ?

[GnuVince]

quand tu dis que tu n'aimes pas, y a-t'il une raison autre que stylistique dans l'utilisation d'une scalaire au lieu du file handler ?

Dans le chapître 10 du livre de Damian Conway, Perl Best Practices, une explication en détails est fournie.

Un exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
use POSIX;
 
open EXDEV, '<', $fichier or die("$!");
my $ligne = <EXDEV>;

Est-ce que le code précédant fonctionne? Non. Pourquoi? Parce que EXDEV a une valeur (18), donc dans la table des symboles c'est *18 qui est le file handle de $fichier. Donc pour lire une ligne on doit dire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my $ligne = <18>;

Il y a aussi le problème que si on ouvre un second fichier en utilisant le même bareword comme file handle, le premier fichier sera fermé. C'est sûrement pas ce que l'on désire.

En utilisant un scalaire (appelé indirect filehandle dans ce cas-ci), on obtient un avertissement si on essaie de réutiliser la même variable pour ouvrir un second fichier et c'est une variable lexicale, donc pas de problème avec le code de quelqu'un d'autre.

Pour l'explication complète et beaucoup plus claire que la mienne, procure toi le livre de Damian Conway. 256 trucs pour que ton Perl soit plus lisible et robuste.

[Woufeil]

Bonjour.

Si j'ai bien compris, la méthode get attend un entier et un handle de fichier. Mais dans ton code, je ne vois pas où tu as ouvert le fichier de handle FH. Le problème vient sans doute de là

€dit : ah bah tient, j'avais bien vu qu'il y avait une erreur de coloration syntaxique, mais j'avais pas vu où
Mais je pense que ce n'est pas le seul problème