メール送信スクリプト

  プログラム

smtpサーバと通信しメールを送信するスクリプト

#!/usr/bin/perl

require "jcode.pl";
use Net::SMTP;

$smtp = Net::SMTP->new('localhost',Timeout => 10);

#$smtp->mail($ENV{USER});
$smtp->mail("tester");
$smtp->to('fujiki');

$smtp->data();
$smtp->datasend("To: fujiki\n");
$smtp->datasend("Subject: This is test\n");
$smtp->datasend("\n");
$message ="これはテストです。届きますか？\n";
&jcode'convert(*message,'jis');
$smtp->datasend($message);
$smtp->dataend();

$smtp->quit;

このスクリプトを実際に使うにはlibnet-1.0703と jcode.plが必要です。これらをインストールしてから使ってください.

このようにモジュールを使うと非常に簡単にスクリプトを書くことが できます。ただしプロトコルの知識が少し必要です。上記のスクリプトの 場合smtpプロトコルについての知識があれば、すぐに記述できます。

FC Labのホームへ 「ネットワークプログラミング」のページへ