Я знаю, как отправлять электронную почту ... как мне загрузить мою электронную почту? Я искал на cpan & google & наткнулся на Mail :: POP3Client ... который я не смог заставить работать. У меня есть учетная запись Gmail, но я хочу иметь возможность проверять и другие учетные записи (которые могут быть или не быть всплывающими).
#!/usr/bin/perl
use strict;
use warnings;
use Mail::POP3Client;
use Mail::POP3Client;
my $pop = new Mail::POP3Client( USER => "user",
PASSWORD => "pass",
HOST => "pop.gmail.com" );
for (my $i = 1; $i <= $pop->Count(); $i++) {
foreach ( $pop->Head( $i ) ) {
/^(From|Subject):\s+/i and print $_, "\n";
}
print "\n";
}