Kung Noi:PerlのNet::SMTPでメール送信テスト

テストメール送信 メールサーバ構築中にテストメールを送信することが多々あると思う。自分はよくtelnetでやるがsmtp-authになると、さすがエンコードやダイジェストの作成はできないので、perl君を使うことにしている。 Net::SMTPモジュールを使うとメール送信がかなり楽チンにできてしまう。便利なので機会があったら是非使ってほしい。 SMTP AUTH試験用 コード auth試験用でメール送信はしません。authは暗号化強度が高い順で実行します。digest-md5、cram-md5、plain、login。指定はできないみたいなので、サーバ側で設定するしかないかな。 #!/usr/bin/perl use Net::SMTP; my ($host, $user, $passwd) = @ARGV; die '引き数が不足しています' if(!$host or !$user or