急いでいます！

Perl　メール　勉強

解決済

質問者：rei091203
質問日時：2016/10/25 16:43
回答数：1件

Perl初心者です。

メールフォームのサンプルを調べていたのですが、
ほとんどがSendmailやJcodeでのサンプルしか検索結果がでてきませんでした。
当サーバーは両方とも使えないとのこと・・・

求めているのは、SMTPとCGI.pmとEncodeあたりをメインに作るメールフォームなのですが、
なかなかありません。
そこで、どなたか私に
そのようなサンプルが載っているサイト
もしくは、
メールフォームで
ホームページ→メールフォーム開く→入力→確認画面→送信→自動返信
と簡単なコードをご提示をお願いしたいです。

一応現在出来ているコードを貼っておきます。(途中です）
現在実行できるのが、ホームページ→定型文送信までです
#!/usr/bin/perl -w
use Encode qw(from_to encode);
use Net::SMTP;
use strict;

#メールアドレス設定
my $from = ’aaa@aaaaa.jp';
my $mailto= 'bbb@bbbbb.jp';
my $mailcc= 'ccc@ccccc.jp';

print qq(Content-type: text/html; charset=Shift_JIS\n\n);
print <<END;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head><title>メールフォーム</title></head>
<body style="text-align:center">
<table style="width:80%;border:1px solid #f93">
<tr><th style="padding:5px;background:#fc9">メールフォーム</th></tr>
<tr>
<td style="padding:20px">
END

#サブジェクト設定
my $subject = 'ホームページからのお問い合わせ';
from_to($subject, 'shiftjis', 'iso-2022-jp');
encode('MIME-Header-ISO_2022_JP', $subject);

#メールヘッダー設定
my $header = << "MAILHEADER";
From: $from
To: $mailto
CC: $mailcc
Subject: $subject
Mime-Version: 1.0
Content-Type: text/plain; charset = 'ISO-2022-JP"
Content-Trensfer-Encoding: 7bit

MAILHEADER

#メール本体設定
my $message = "テスト";

#文字コードをJISに変換
from_to($message, 'shiftjis', 'iso-2022-jp');

#メール送信オブジェクト設定
my $smtp = Net::SMTP->new('abcdefg.jp');
if ( !$smtp ) {
print "メールサーバーにアクセスできません！";
exit;
}

#メール送信
$smtp->mail($from);
$smtp->to($mailto);
$smtp->to($mailcc);
$smtp->data();
$smtp->datasend($header);
$smtp->datasend($message);
$smtp->dataend();
$smtp->quit;

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： ORUKA1951
回答日時：2016/10/29 10:58

なにか大きな誤解をしている。

＞ほとんどがSendmailやJcodeでのサンプルしか検索結果がでてきませんでした。
　この二つは、まったく異なるものです。

CGI(Common Gateway Interface)は、サーバーで動作するプログラムで、Perlを使おうがCを使おうが、AWKだろうがなんでもよい。とりあえずPerlを使ってCGIを作成する。

　ところが、mailを送信するとなると、MTA(Mail Transfer Agent)にデータを渡して、送信してもらわなくてはなりない。sendmail や qmail がそれにあたります。
　メール転送エージェント - Wikipedia( https://ja.wikipedia.org/wiki/%E3%83%A1%E3%83%BC … )
　これらが使えない場合は、Perl自体にMTAの動作をさせるのが、Net:SMTP モジュールですよ。また、Jcodeは、現在のPerlには組み込み済みなので、使えるはず。
　使えない古いPerlなら、jcode.plで代用させる。その場合、Net::SMTPも使えないのじゃないかと・・

モジュールを調べるコードを書いてみたら？？

- 0
- 件

通報する

この回答へのお礼

返事が遅くなり申し訳ないです。

moduleを調べてみました。
Jcode.pmありました。

まだまだ理解できないいないことが多いですね・・・

通報する

お礼日時：2016/11/01 15:55

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

質問する（無料）

似たような質問が見つかりました

CGI perlで書いたcgiでsqliteの使い方を教えてください 2 2023/05/08 21:29
JavaScript 入力フォームの javascript でメールアドレスの正規チェックをを行い、ボタンをクリックして 2 2022/04/27 16:06
その他（プログラミング・Web制作） laravel 本番環境でメールが送れません。 1 2023/02/17 17:57
PHP Content-Typeが機能していない？ 2 2022/07/17 11:10
UNIX・Linux postfix smtpサーバーリレーがTLSハンドシェーク失敗 1 2022/08/15 15:45
Gmail 【お助け！】サーバーからのメール送信でGmailに送信されない問題について 1 2023/06/20 22:03
サーバー接続・ログインはできているのにメールが送信できない 2 2022/06/27 15:03
AJAX JavascriptからPHPへのAjax通信でnullが返ってくる 3 2022/08/03 22:00
HTML・CSS アコーディオンメニューが思うように動作しません。 1 2023/08/20 16:48
その他（メールソフト・メールサービス） Thunderbirdのメール送信ができません 1 2022/10/28 16:54

今、見られている記事はコレ!

弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」

「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
釣りと密漁の違いは？知らなかったでは済まされない？事前にできることは？

知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
カスハラとクレームの違いは？カスハラの法的責任は？企業がとるべき対応は？

東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。この動きは自治体...
なぜ批判コメントをするの？その心理と向き合い方をカウンセラーにきいた！

今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
大麻の使用罪がなかった理由や法改正での変更点、他国との違いを弁護士が解説

ドイツで2024年4月に大麻が合法化され、その2ヶ月後にサッカーEURO2024が行われた。その際、ドイツ警察は大会運営における治安維持の一つの方針として「アルコールを飲んでいるグループと、大麻を吸っているグループ...