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