tetsunosukeのnotebook

tetsunosukeのメモです

Mail::POP3Clientでメールを読む

use Mail::POP3Client;
use Encode;
use YAML;

my $configFile = 'config.yaml';

my $config = YAML::LoadFile($configFile);


my $pop = new Mail::POP3Client(
    USER => $config->{mail}->{userid},
    PASSWORD => $config->{mail}->{password}, 
    HOST => $config->{mail}->{host},
    DEBUG => 0
);

for($i=1; $i <= $pop->Count; $i++){
    print "++++++++++++++mail+++++++++++++++++\n";
    foreach($pop->Head($i)){
        if($_ =~/^(Subject|From|To):\s/ ){
            print encode('sjis', decode('iso-2022-jp',$_)),"\n";
        }
    }
    
    foreach($pop->Body($i)){
        print encode('sjis', decode('iso-2022-jp',$_)),"\n";
    }

#        $pop->Delete($i);

}

$pop->Close;