topic Re: using perl script to send emails in Operating System - HP-UX

using perl script to send emails

Jeff Paciolla_1 — Tue, 05 Feb 2002 15:45:48 GMT

I am having trouble with the right syntax in my perl script to get an email sent at the time of execution. Below is an example of my script. Any help is appreciated.

Thanks
Jeff

open(SENDMAIL, "|/usr/lib/sendmail -oi -t -odq");
print(SENDMAIL) <<"EOF";
From: root@pikachu.acscltnt
To: jeff.paciolla@acs-inc.com
Subject: NNM Stats

Testing the email
EOF
close(SENDMAIL);

Here is the error I receive

syntax error in file ./ov-monthlystats.pl at line 80, next 2 tokens "root@pikachu"

Re: using perl script to send emails

Mark Greene_1 — Tue, 05 Feb 2002 15:51:13 GMT

don't use sendmail directly, use mailx:

open(MF,"| mailx -s 'subject here' mailaddress@domainhere")

and then to send the mail, use print:

print MF ("variables and strings here")

HTH
mark

Re: using perl script to send emails

Mark Greene_1 — Tue, 05 Feb 2002 15:55:20 GMT

oops, I forgot, you still have to close it:

close(MF);

sorry about that
mark

Re: using perl script to send emails

Craig Rants — Tue, 05 Feb 2002 16:13:47 GMT

This is what I generall will use.

open (SENDMAIL, "|/usr/sbin/sendmail johndoe\@yahoo.com < /tmp/filename") || die "$!";

Hope this helps,
C