Chinaunix首页 | 论坛 | 博客
  • 博客访问: 135829
  • 博文数量: 51
  • 博客积分: 2500
  • 博客等级: 少校
  • 技术积分: 540
  • 用 户 组: 普通用户
  • 注册时间: 2007-07-21 12:33
文章分类

全部博文(51)

文章存档

2011年(1)

2010年(5)

2009年(1)

2008年(12)

2007年(32)

我的朋友

分类:

2007-08-15 18:56:54

这个脚本要依赖于sendmail和uuencode, 不过linux默认已经安装上这两个程序了。
怎么样使用?
  ./sndemail
邮件内容可以写成一文本文件

 

#!/usr/bin/perl


if ( $#ARGV < 0)

{
    print "Usage: mailattach.pl ","\n";
    exit(0);
}

$touser = $ARGV[0];
$fromuser = $ARGV[1];
$subject = $ARGV[2];
$file = $ARGV[4];

print $file;

open(MAILFILE, "$ARGV[3]") || die "can not open mail file" ;
@mailcont = <MAILFILE>;
close(MAILFILE);

$yourmail = "$touser\@alcatel-lucent.com";

open(MAIL, "|/usr/lib/sendmail -t $yourmail") || return 0;
select (MAIL);
print << "EOF";
To: $touser\@alcatel-lucent.com
From: $fromuser\@alcatel-lucent.com
Subject: $subject

@mailcont

EOF

if ( $file ne "" )
{
# File to send to user

open(FILE, "uuencode $file $file |") or die;
while( <FILE>) { print MAIL; };
close(FILE);
}
#and finish sending the mail

close(MAIL);

阅读(1510) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~