[ 永远的UNIX::UNIX技术资料的宝库 ]
首页 > 应用技术 > Sendmail > 正文
用sendmail发送HTML格式的邮件
本文出自:作者：boho (2001-06-21 15:00:00)
先将来自HTML页面的数据解码，再调用unix系统sendmail命令即可。 
例如下：#!/usr/local/bin/perl 
# 
&readparse; 
print "Content-type: text/htmlnn"; 
# 
#********* BEGIN BODY******************** 





#******** END BODY************************ 
# 
# EACH VALUE IN THE HTML FORM WILL BE CONTAINED IN 
# THE THE @VALUE ARRAY. 
sub readparse { 
read(STDIN,$user_string,$ENV{'CONTENT_LENGTH'}); 
if (length($ENV{'QUERY_STRING'})>0) {$user_string=$ENV{'QUERY_STRING'} 
}; 
$user_string =~ s/+/ /g; 
@name_value_pairs = split(/&/,$user_string); 
foreach $name_value_pair (@name_value_pairs) { 
($keyword,$value) = split(/=/,$name_value_pair); 
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/ge; 
push(@value, "$value"); 
$user_data{$keyword} = $value; 
if ($value=~/