[PerlChina] Fw: Re: Re: [讨论] 大家都用Perl干什么?

win8013p at gmail.com win8013p at gmail.com
Tue May 23 23:17:03 PDT 2006




发件人:win8013p
发送日期:2006-05-24 14:13:33
收件人:china-pm at pm.org
抄送:
主题:Re: Re: [PerlChina][讨论] 大家都用Perl干什么?

出错了
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 


More information about the China-pm mailing list