Perlでメール送信してみた。ついでにPythonも - 目の前に僕らの道があるちょっと仕事でメールを送信するスクリプトを書かなきゃいけないみたいなので調べてみました。 Net::SMTP編 とりあえずググってみて、一番最初に見つけた方法がNet::SMTPを使う方法です。ちょっとSMTPサーバとやりとりしているあたりがくどい感じがします。 #!/usr/bin/env perl use Encode; use Net::SMTP; use warnings; use strict; use utf8; # メールを作成します。 my $from = '送信元アドレス'; my $mailto = '宛先アドレス'; my $subject = Encode::encode('MIME-Header-ISO_2022_JP', 'メールタイトル'); my $header = "From: $from\n" . "To: $mailto\n" . "Subject:
