Send email using Perl

[Ning li]

Hi,

I am new to Perl and I would like to know the Perl equivalent of this
Unix mail command:

mailx -s "My Subject Here" [email]jdoe@mail.com[/email] < my_file_name

Thanks in advance.

Nick Li

[Mina Naguib]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Ning li wrote:

> Hi,
>
> I am new to Perl and I would like to know the Perl equivalent of this
> Unix mail command:
>
> mailx -s "My Subject Here" [email]jdoe@mail.com[/email] < my_file_name

system qq|mailx -s "My Subject Here" [email]jdoe@mail.com[/email] < my_file_name|;

or

`mailx -s "My Subject Here" [email]jdoe@mail.com[/email] < my_file_name`;

or

open (FH, "| mailx") or die . .;
print to FH

or the best, perl-ish way :

perldoc Net::SMTP

Best of luck.


-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.1 (GNU/Linux)
Comment: Using GnuPG with Mozilla - [url]http://enigmail.mozdev.org[/url]

iD8DBQE/Y9pMeS99pGMif6wRAggqAKCLN9K5lM5fzboinKZpr9WrymPeBg CgjBhT
wcLgZCyIeLgdcTK2tCyIaF8=
=EVL3
-----END PGP SIGNATURE-----

[Abigail]

Ning li (ningli2000@worldnet.att.net) wrote on MMMDCLXVI September
MCMXCIII in <URL:news:I6P8b.140824$3o3.10064623@bgtnsc05-news.ops.worldnet.att.net>:
-- Hi,
--
-- I am new to Perl and I would like to know the Perl equivalent of this
-- Unix mail command:
--
-- mailx -s "My Subject Here" [email]jdoe@mail.com[/email] < my_file_name


system 'mailx -s "My Subject Here" [email]jdoe@mail.com[/email] < my_file_name';



Abigail
--
# Perl 5.6.0 broke this.
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_= shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi

[Bill Zhao]

"Ning li" <ningli2000@worldnet.att.net> ¼¶¼g©ó¶l¥ó
news:I6P8b.140824$3o3.10064623@bgtnsc05-news.ops.worldnet.att.net...

> Hi,
>
> I am new to Perl and I would like to know the Perl equivalent of this
> Unix mail command:
>
> mailx -s "My Subject Here" [email]jdoe@mail.com[/email] < my_file_name

in perl:
if (`mailx -s "My Subject Here" [email]jdoe@mail.com[/email] < my_file_name`) {
die "Mail Send Fail ";
}

>
> Thanks in advance.
>
> Nick Li
>
>
>
>

[Sam Holden]

On Mon, 15 Sep 2003 15:51:08 +0800, Bill Zhao <bzhaoa@yahoo.com.cn> wrote:

>
> "Ning li" <ningli2000@worldnet.att.net> ¼¶¼g©ó¶l¥ó
> news:I6P8b.140824$3o3.10064623@bgtnsc05-news.ops.worldnet.att.net...

>> Hi,
>>
>> I am new to Perl and I would like to know the Perl equivalent of this
>> Unix mail command:
>>
>> mailx -s "My Subject Here" [email]jdoe@mail.com[/email] < my_file_name

> in perl:
> if (`mailx -s "My Subject Here" [email]jdoe@mail.com[/email] < my_file_name`) {
> die "Mail Send Fail ";
> }

Did you even think about that for a second? Did you really want to
interpolate the array @mail into that command?

Why does mailx indicate failure by outputting to stdout? That seems like
a remarkably stupid way of indicating failure.

Of course it probably doesn't. It's far more likely you just don't know
how to execute a command correctly in perl...

--
Sam Holden