Problème avec perl Email :: MIME

Question

J'ai des problèmes pour utiliser le module Email: MIME en perl. C'est probablement parce que je l'utilise mal, mais trouver des exemples pour l'utiliser est difficile. Je suis sûr que je suis censé utiliser un scalaire du message complet en entrée, mais cela ne fonctionne pas. Voici mon code et ma sortie

code:

#!/usr/bin/perl 

use Net::POP3; 
use Email::MIME; 
local $| = 1; 

my $pop = Net::POP3->new('pop.mail.server'); 

print "Logging in...."; 
if ($pop->login('username','password')) { 
print "logged in successfully\n"; 
my $msgs = $pop->list; 
my @keys = keys(%$msgs); 
my $msgr = $pop->get($keys[1]); #Selects a more or less random email for testing 
my $msg = join("",@$msgr); 

my $parsed = Email::MIME->new($msg); 
foreach my $key (keys %$parsed) {print $key.":".$parsed{$key}."\n";} 
} 

Sortie:

Logging in....logged in successfully 
body: 
mycrlf: 
body_raw: 
parts: 
ct: 
header: 

Answer 1

Toujours use strict; et use warnings;. Il pointera immédiatement une erreur:

Global symbol "%parsed" requires explicit package name at p line 21.

Ligne 21 doit être:

foreach my $key (keys %$parsed) {print $key.":".$parsed->{$key}."\n";} 

Answer 2

Je pense que cela devrait être $parsed->{ $key } dans votre déclaration d'impression