返回列表 回复 发帖
cnangel

管理员

Rank: 9Rank: 9Rank: 9

UID
1 
威望
1237 点 
金钱
10002 金币 
点卡
315 点 
1#
打印
tT
发表于 2003-9-3 00:48 | 只看该作者

[转帖]怎样用perl编cgi发email

#!usr/bin/perl
#
#这是一个CGI程序,用语将表单中的内容发送到指定信箱.
#表单有两项内容其一为信箱地址"email",其二为内容"content"
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});

   #把html的输入读如到$buffer中，注意这时的#$buffer是一个长字符串

   #CGI程序是使用STDIN和STDOUT输入输出

   @pairs=split(/&/,$buffer);

   foreach $pair(@pairs){

   ($name,$value)=split(/=/,$pair);

   #把pairs拆分成不同输入框名字和输入内容的关联数组

   $value=~s/\+/ /g;

   #注意CGI把所有的输入空格转换成+,所以要变换回来
   $value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
   #CGI把中文全部变成16进制编码，所以要用pack转换回来

   $FORM{$name}=$value;

   }
$mailbox=$FORM{"email"};
$mailcontent=$FORM{"content"};
open (MAIL,"|mail $mailbox");
print MAIL $mailcontent;
close(MAIL);

#本程序在Unix(Linux)服务器上成功运行.
#呵呵,很简陋的一个东东,可以做许多补充
#qxb 2000/04/16
收藏 分享 评分

                     我是一个呼吸着现在的空气而生活在过去的人
               这样的注定孤独，孤独的身处闹市却犹如置身于荒漠
                                     我已习惯了孤独，爱上孤独
                                 他让我看清了自我，还原了自我
                             让我再静静的沉思中得到快乐和满足
                                   再孤独的世界里我一遍又一遍
                                   不厌其烦的改写着自己的过去
                                             延伸到现在与未来
                                       然而那只是泡沫般的美梦
                                 产生的时刻又伴随着破灭的到来
                         在灰飞烟灭的瞬间我看到的是过程的美丽
                                      而不是结果的悲哀。。。
回复 引用

订阅 TOP

magic

注册会员

Rank: 2

UID
2033152 
威望
1 点 
金钱
3090 金币 
点卡
0 点 
2#
发表于 2003-9-3 16:56 | 只看该作者

[转帖]怎样用perl编cgi发email

具体补充一下：
  1. #!/usr/bin/perl
  3. # 请将下面邮箱改为您要接收反馈意见的邮箱，\@不要改动。
  4. $user_email = "你的邮箱\@后缀";
  7. $dd = `date`; chop $dd;
  9. $method = $ENV{"REQUEST_METHOD"};
  10. $type = $ENV{"CONTENT_TYPE"};
  11. $remoteip = $ENV{"REMOTE_ADDR"};
  13. if ($method ne "POST" || $type ne "application/x-www-form-urlencoded")
  14. {
  15.    print "Location: http://当提交的时候返回的页面\n\n";
  16.    exit;
  17. }
  19. %input_values = &break_input;
  21. $email     = &normalize_query($input_values{"EMAIL"});
  22. $message   = &normalize_query($input_values{"MESSAGE"});
  24. if ($message eq "") {
  25.    $error_msg = "您没有留下意见！<BR>请按返回键再试一次！";
  26.    exit &print_error();
  27. }
  30. if ($email eq "") {
  31.    $error_msg = "您没有提供e-mail地址，<BR>请填好您的e-mail地址再试一次！";
  32.    exit &print_error();
  33. }
  36. open(M,"|/usr/sbin/sendmail $user_email");
  37. # 用的open语法打开邮件管道/usr/sbin/sendmail，所以nt和os一般不行
  38. print M <<EOFX;
  39. From: $email
  40. To: $user_email
  41. Subject: 意见反馈
  43. Date:    $dd
  44. E-mail:  $email
  45. IP:      $remoteip
  47. Message:  
  48. $message
  49. EOFX
  50.             
  51. close (M);
  53. $error_msg = "感谢您对我们提出的建议";
  54. &print_error();
  57. #####################
  58. # SUB-ROUTINES
  59. #####################
  61. sub break_input {
  62.     local ($i);
  63.     read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
  64.     @form_names = split('&', $input);
  65.     foreach $i (@form_names) {
  66.         ($html_name, $html_value) = split('=', $i);
  67.         $input_values{$html_name} = $html_value;
  68.     }
  69.     return %input_values;
  70. }
  72. sub normalize_query {
  73.     local($value) = @_;
  74.     $value =~ tr/+/ /;
  75.     $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  76.     return $value;
  77. }
  79. sub print_error {
  81. print <<EOP;
  82. Content-type: text/html
  84. <html>
  85. <head>
  86. <title>message</title>
  87. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  88. <style type="text/css">
  89. <!--
  90. .main {font-size: 12px}
  91. .main1{ font-size: 14.8px }
  92. .main2{ font-size: 16px }
  93. .main4{font-size: 10px}
  94. A:link {color: #333333; font-style: normal; text-decoration: underline}
  95. A:visited {color: #333333; font-style: normal; text-decoration: underline}
  96. A:active {color:  #999999; font-style: normal; text-decoration: none}
  97. A:hover {color:   #999999; font-style:bold; text-decoration: none}   
  98. -->
  99. </style>
  100. </head>
  102. <body bgcolor="#FFFFFF" text="#666666" leftmargin="0" topmargin="0">
  103. <table width="100%" border="0" height="100%" cellpadding="0" cellspacing="0">
  104.   <tr>
  105.     <td>
  106.       <table width="500" border="0" cellpadding="0" cellspacing="0" bgcolor="#C6C6C6" align="center">
  107.         <tr>
  108.           <td>
  109.             <table width="100%" border="0" cellspacing="1" cellpadding="0">
  110.               <tr>
  111.                 <td bgcolor="#F8F8F8">
  112.                   <table width="100%" border="0">
  113.                     <tr>
  114.                       <td bgcolor="#e6e6e6">
  115.                         <div align="center" class="main2"><b>message</b></div>
  116.                       </td>
  117.                     </tr>
  118.                     <tr>
  119.                       <td height="20"></td>
  120.                     </tr>
  121.                     <tr>
  122.                       <td>
  123.                         <div align="center" class="main">$error_msg</div>
  124.                       </td>
  125.                     </tr>
  126.                     <tr>
  127.                       <td height="20"></td>
  128.                     </tr>
  129.                   </table>
  130.                 </td>
  131.               </tr>
  132.             </table>
  133.           </td>
  134.         </tr>
  135.       </table>
  136.       
  137.       <div align="center"><br>
  138.         <input style='BORDER-RIGHT: #C6C6C6 1px solid; BORDER-TOP: #C6C6C6 1px solid; FONT-SIZE: 12px; BORDER-LEFT: #C6C6C6 1px solid; COLOR: #666666; BORDER-BOTTOM: #C6C6C6 1px solid; FONT-FAMILY: "宋体","Arial", "Helvetica", "sans-serif"; BACKGROUND-COLOR: #F8F8F8' type="button" value=" 返回 " onClick="javascript:history.back()" name="button">
  139.       </div>
  140.     </td>
  141.   </tr>
  142. </table>
  143. </body>
  144. </html>
  145. EOP
  146. }
复制代码
回复 引用

TOP

magic

注册会员

Rank: 2

UID
2033152 
威望
1 点 
金钱
3090 金币 
点卡
0 点 
3#
发表于 2003-9-3 18:06 | 只看该作者

[转帖]怎样用perl编cgi发email

nt的是这样的
  1. #!/usr/bin/perl
  3. use Net::SMTP;
  5. $smtp=Net::SMTP->new("localhost");
  6. $smtp->mail("root");
  7. $smtp->to("bbs\@bbs.mit.edu");
  8. $smtp->data();
  9. $smtp->datasend("To: bbs\n\n");
  10. $smtp->datasend("#name: midi\n");
  11. $smtp->datasend("#password: abc12345\n");
  12. $smtp->datasend("#board: PERL\n");
  13. $smtp->datasend("#title: 灌水\n\n");
  15. #do whatever you want....your body here:-)
  16. $smtp->dataend();
  17. $smtp->quit();
复制代码
回复 引用

TOP

返回列表