2012年8月3日金曜日

[Perl] Delete mails from pop3 server using perl script

#!/usr/bin/perl
use strict;
use Net::POP3;
my $pop = Net::POP3->new('pop3.server') or die 'Connection failed.';
my $num = $pop->login('user', 'pass') or or die 'Login failed.';
printf("$num messages\n");
for (my $i = 0; $i < $num; $i++) {
    $pop->delete($i);
}
$pop->quit();
exit;

--
See also
Net::POP3

0 件のコメント: