SMTPとPOP3

メール鯖のテスト構築のテストを兼ねてSMTPとPOP3のテスト用
スクリプトかいた。
超てけとう。

テスト構築のテストってのが冗長さ満開ですが、気にせず。

#! /usr/bin/perl
use strict;
use warnings;

use Net::SMTP;

my $smtp = Net::SMTP->new('nekoserver',
    Hello => 'nekoserver',
    Timeout => 60, Debug => 1
);

$smtp->mail('nekokak __at__ gmail.com');
$smtp->to('atsushi@nekoserver.intra');
$smtp->data();
$smtp->datasend("Subject: smtp test mail for Net::SMTP\n");
$smtp->datasend("\n");
$smtp->datasend("neko daisuki!");
$smtp->dataend();

$smtp->quit;

#! /usr/bin/perl
use strict;
use warnings;

use Net::POP3;

my $pop = Net::POP3->new('nekoserver');
my $user = 'atsushi';
my $passwd = '**********';

if ($pop->login($user, $passwd)) {

  my $msg_list = $pop->list;

  foreach my $key (keys %$msg_list) {
    my $msg = $pop->get($key);
    print @$msg;
#    $pop->delete($key); # delete message.
  }
} else {
    print "Can't login.";
}

$pop->quit;

libnet系は大体入ってるだろうからどこでも使えるですね。
シンタックスハイライトを使いたかたから貼り付けたのは内緒です。