26.4 簡易郵寄程式

#! /usr/bin/perl

print "請輸入收信人位址？ ";
chomp($theman=<STDIN>);

mail_to($theman);

# 郵寄副程式
sub mail_to {

	$to=shift || "defaultman\@yourdomain.is";

	# sendmail 程式路徑位址
    my $mailprg = "/usr/sbin/sendmail -t";

	# 寄件者 Email
    my $from = "pizapiza\@mydomain.is";

    open (MAIL,"|$mailprg") || die "$!\n";
    print MAIL "Return-Path: $from\n";
    print MAIL "From: $from\n";
    print MAIL "To: $to\n";
    print MAIL "Subject: 簡易郵寄程式測試\n";
    print MAIL "\n";
    print MAIL "Hi! 您好! 這是一封郵件測試!!!\n\n";
    print MAIL "--- mail test for u (c) 2003 written by OLS3\n";
    close(MAIL);

	print "OK!\n\n";
}

1. 上式存成 mailto.pl

2. chmod +x mailto.pl

3. ./mailto.pl