<div>呵呵，内容应该是如下（<strong><a href="mailto:win8013p@gmail.com">win8013p@gmail.com</a>我说得对吗</strong>）：</div>
<div>
<p>出错了</p>
<p>Can't find string terminator "END_TAG" anywhere before EOF at ./smail line 12.</p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p><a href="mailto:win8013p@gmail.com">win8013p@gmail.com</a></p>
<p>2006-05-24</p>
<p> </p>
<p> </p>
<p> </p>
<p>发件人： Achilles Achilles</p>
<p>发送时间： 2006-05-24 13:59:36</p>
<p>收件人： <a href="mailto:china-pm@pm.org">china-pm@pm.org</a></p>
<p>抄送： </p>
<p>主题： Re: [PerlChina][讨论] 大家都用Perl干什么？</p>
<p> </p>
<p>是不是最后一行要加个点表示结束啊？</p>
<p> </p>
<p> </p>
<p>On 5/24/06, toby <<a href="mailto:win8013p@gmail.com">win8013p@gmail.com</a>> wrote: </p>
<p>以下是个发送邮件的perl程序，我调试不成功，哪位帮忙一下，谢谢</p>
<p> </p>
<p>#!/usr/bin/perl</p>
<p> </p>
<p>use strict;</p>
<p> </p>
<p>my($r_mail) = ' <a href="mailto:win8013@163.com'">win8013@163.com'</a>;</p>
<p>my($s_mail) = <a href="mailto:'win8013@chinanetcenter.com'">'win8013@chinanetcenter.com'</a>;</p>
<p>my($subject) = 'subject';</p>
<p> </p>
<p>open(MAIL,'|/usr/lib/sendmail -t');</p>
<p>select(MAIL);</p>
<p> </p>
<p>print<<"END_TAG"; </p>
<p>To: $r_mail</p>
<p>From: $s_mail</p>
<p>Subject: $subject</p>
<p> </p>
<p>ILOVECHINA</p>
<p> </p>
<p>END_TAG</p>
<p>_______________________________________________</p>
<p>China-pm mailing list</p>
<p><a href="mailto:China-pm@pm.org">China-pm@pm.org</a></p>
<p><a href="http://mail.pm.org/mailman/listinfo/china-pm">http://mail.pm.org/mailman/listinfo/china-pm</a></p>
<p> </p>
<p> </p>
<p> </p>
<p>-- </p>
<p>---------------------------</p>
<p>Achilles Xu</p>
<p><a href="http://www.lazycode.org/">http://www.lazycode.org</a> </p>
<p> </p>
<p><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"></p>
<p><HTML><HEAD></p>
<p><META http-equiv=Content-Type content="text/html; charset=gb2312"></p>
<p><META content="MSHTML 6.00.2900.2873" name=GENERATOR></p>
<p><STYLE></p>
<p><!--</p>
<p> /* Font Definitions */</p>
<p> @font-face</p>
<p> {font-family:宋体;</p>
<p> panose-1:2 1 6 0 3 1 1 1 1 1;}</p>
<p>@font-face</p>
<p> {font-family:Verdana;</p>
<p> panose-1:2 11 6 4 3 5 4 4 2 4;}</p>
<p>@font-face</p>
<p> {font-family:"\@宋体";</p>
<p> panose-1:2 1 6 0 3 1 1 1 1 1;}</p>
<p> /* Style Definitions */</p>
<p> p.MsoNormal, li.MsoNormal, div.MsoNormal</p>
<p> {margin:0cm;</p>
<p> margin-bottom:.0001pt;</p>
<p> text-align:justify;</p>
<p> text-justify:inter-ideograph;</p>
<p> font-size:10.5pt;</p>
<p> font-family:"Times New Roman";}</p>
<p>a:link, span.MsoHyperlink</p>
<p> {color:blue;</p>
<p> text-decoration:underline;}</p>
<p>a:visited, span.MsoHyperlinkFollowed</p>
<p> {color:purple;</p>
<p> text-decoration:underline;}</p>
<p>span.EmailStyle17</p>
<p> {mso-style-type:personal-compose;</p>
<p> font-family:Verdana;</p>
<p> color:windowtext;</p>
<p> font-weight:normal;</p>
<p> font-style:normal;</p>
<p> text-decoration:none none;}</p>
<p> /* Page Definitions */</p>
<p> @page Section1</p>
<p> {size:595.3pt 841.9pt;</p>
<p> margin:72.0pt 90.0pt 72.0pt 90.0pt;</p>
<p> layout-grid:15.6pt;}</p>
<p>div.Section1</p>
<p> {page:Section1;}</p>
<p>--></p>
<p></STYLE></p>
<p></HEAD></p>
<p><BODY></p>
<p><DIV><FONT face=Verdana color=#0000ff size=2>出错了</FONT></DIV></p>
<p><DIV><FONT face=Verdana size=2>Can't find string terminator "END_TAG" anywhere </p>
<p>before EOF at ./smail line 12.</FONT></DIV></p>
<p><DIV><FONT face=Verdana size=2></FONT>&nbsp;</DIV></p>
<p><DIV align=left></p>
<p><DIV align=left><FONT face=Verdana size=2></p>
<p><HR style="WIDTH: 122px; HEIGHT: 2px" SIZE=2></p>
<p></FONT></DIV></p>
<p><DIV><FONT color=#c0c0c0><FONT face=Verdana </p>
<p>size=2><a href="mailto:win8013p@gmail.com">win8013p@gmail.com</a></FONT></DIV></p>
<p><DIV><FONT face=Verdana size=2>2006-05-24</FONT></FONT></DIV></DIV></p>
<p><DIV><FONT face=Verdana size=2></p>
<p><HR></p>
<p></FONT></DIV></p>
<p><DIV><FONT face=Verdana><FONT size=2><STRONG>发件人：</STRONG> Achilles </p>
<p>Achilles</FONT></FONT></DIV></p>
<p><DIV><FONT face=Verdana><FONT size=2><STRONG>发送时间：</STRONG> </p>
<p>2006-05-24&nbsp;13:59:36</FONT></FONT></DIV></p>
<p><DIV><FONT face=Verdana><FONT size=2><STRONG>收件人：</STRONG> </p>
<p><a href="mailto:china-pm@pm.org</FONT></FONT></DIV">china-pm@pm.org</FONT></FONT></DIV</a>></p>
<p><DIV><FONT face=Verdana><FONT size=2><STRONG>抄送：</STRONG> </FONT></FONT></DIV></p>
<p><DIV><FONT face=Verdana><FONT size=2><STRONG>主题：</STRONG> Re: [PerlChina][讨论] </p>
<p>大家都用Perl干什么？</FONT></FONT></DIV></p>
<p><DIV><FONT face=Verdana size=2></FONT>&nbsp;</DIV></p>
<p><DIV><FONT face=Verdana size=2>是不是最后一行要加个点表示结束啊？<BR><BR></p>
<p><DIV><SPAN class=gmail_quote>On 5/24/06, <B class=gmail_sendername>toby</B> </p>
<p>&lt;<A href="<a href="mailto:win8013p@gmail.com">win8013p@gmail.com</A>&gt">mailto:win8013p@gmail.com">win8013p@gmail.com</A>&gt</a>; wrote:</SPAN> </p>
<p> </p>
<p><BLOCKQUOTE class=gmail_quote </p>
<p>style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">以下是个发送邮件的perl程序，我调试不成功，哪位帮忙一下，谢谢<BR><BR>#!/usr/bin/perl<BR><BR>use </p>
<p> strict;<BR><BR>my($r_mail) = '<A href="<a href="mailto:win8013@163.com">mailto:win8013@163.com</a>"> </p>
<p> <a href="mailto:win8013@163.com</A>';<BR>my($s_mail">win8013@163.com</A>';<BR>my($s_mail</a>) = '<A </p>
<p> href="<a href="mailto:win8013@chinanetcenter.com">win8013@chinanetcenter.com</A>';<BR>my($subject">mailto:win8013@chinanetcenter.com">win8013@chinanetcenter.com</A>';<BR>my($subject
</a>) </p>
<p> = 'subject';<BR><BR>open(MAIL,'|/usr/lib/sendmail </p>
<p> -t');<BR>select(MAIL);<BR><BR>print&lt;&lt;"END_TAG"; <BR>To: $r_mail<BR>From: </p>
<p> $s_mail<BR>Subject: </p>
<p> $subject<BR><BR>ILOVECHINA<BR><BR>END_TAG<BR>_______________________________________________<BR>China-pm </p>
<p> mailing list<BR><A href="<a href="mailto:China-pm@pm.org">China-pm@pm.org</A><BR><A">mailto:China-pm@pm.org">China-pm@pm.org</A><BR><A</a> </p>
<p> href="<a href="http://mail.pm.org/mailman/listinfo/china-pm">http://mail.pm.org/mailman/listinfo/china-pm</A></BLOCKQUOTE></DIV><BR><BR">http://mail.pm.org/mailman/listinfo/china-pm">http://mail.pm.org/mailman/listinfo/china-pm</A></BLOCKQUOTE></DIV><BR><BR
</a> </p>
<p>clear=all><BR>-- <BR>---------------------------<BR>Achilles Xu<BR><A </p>
<p>href="<a href="http://www.lazycode.org">http://www.lazycode.org</A">http://www.lazycode.org">http://www.lazycode.org</A</a>> </p>
<p></FONT></DIV></BODY></HTML></p>
<p> </p><br><br> </div>
<div><span class="gmail_quote">在06-5-24，<b class="gmail_sendername">黄叶</b> <<a href="mailto:hylinux@gmail.com">hylinux@gmail.com</a>> 写道：</span>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">
<div>呵呵。<br>看不见信的内容啊。<br><br> </div><br>_______________________________________________<br>China-pm mailing list<br><a onclick="return top.js.OpenExtLink(window,event,this)" href="mailto:China-pm@pm.org">China-pm@pm.org</a>
<br><a onclick="return top.js.OpenExtLink(window,event,this)" href="http://mail.pm.org/mailman/listinfo/china-pm" target="_blank">http://mail.pm.org/mailman/listinfo/china-pm</a><br></blockquote></div><br>