Perlについてご教示お願い致します
下記のコードはフォーム入力し送信を押すとメール送信されます。
[mailform.pl]
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>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
<title>メールフォーム</title>
</head>
<body>
<h1 class="title">メールフォーム</h1>
<form method="post" action="mail.pl">
<input type="hidden" name="a" value="exec">
件名(Subject) :<br />
<input type="text" name="subject" size="80" value=""><br />
宛先(To) :<br />
<input type="text" name="to" size="80" value=""><br />
差出人(From) :<br />
<input type="text" name="from" size="80" value=""><br />
本文(Body) :<br />
<textarea name="body" rows="10" cols="65"></textarea><br />
<p>
<input type="submit" value="送信">
</p>
</form>
</body>
</html>
END
そこで、メールを送信すると下記のコードを実行させたいです。
[endmail.pl]
#!/usr/bin/perl
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>
<meta http-equiv="content-type" content="text/html; charset=utf-8">
<title>メールフォーム</title>
</head>
<body>
<table style="width:40%;border:2px solid #f63">
<tr><th style="padding:5px;background:#fc1">送信完了</th></tr>
<tr>
<td style="padding:20px">
<center>
<a href="http://aaaaaa.jp/index.html">トップページへ戻る</a>
</center>
</body>
</html>
END
どのようにすればいいのでしょうか・・・?
No.1ベストアンサー
- 回答日時:
まず、mailform.plはこの内容だけであればPerlのプログラムである必要性はなく、静的HTMLファイルで十分です。
Webブラウザに表示されている画面をsubmitしたら画面で入力された内容を持ってmail.plを呼び出せばよいだけなので。
で。Perlでの実装とは関係なく、一般的にサーバ側のCGIプログラムはWebブラウザに表示されているある画面でのsubmitで呼び出され、その画面で入力した各種変数を受け取って処理し、次の画面のHTMLを送出して処理を終えます。
もちろんこの一連の処理を部品化して分けてもよいです。
この基本的な仕組みを前提に考えられると、何処がオリジナルで作らねばならないところで、何処が出来合いの(orシステムが提供する)部品を使えば済むところで、、、というのがまとまるかと思います。
参考まで。
Perlから受け取る時は
下記のようなCGI.pmを利用してデータの受け渡しで
my $q = new CGI;
my $from = $q->param('from');
これをHTMLで使用できるようにするということですか??
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- HTML・CSS 私の能力からして間違っていないような気がします。 4 2022/09/30 13:24
- PHP PHPのエラーの解消法について教えて下さい。 1 2023/02/06 10:48
- PHP 入力した部分を表示させたまま(保持)するにはどうすれば良いでしょうか? 1 2023/01/25 11:14
- PHP PHPでCookieを使った訪問回数について 1 2023/05/28 14:10
- PHP PHPでユーザー情報を入力して簡易ログイン機能をつくってみたのですが 1 2023/05/29 08:51
- PHP php ログイン 1 2022/11/01 00:24
- JavaScript switch文のswitch(n)の部分を複数の値にするか、if文に変えてほしいです。 1 2022/07/27 17:18
- JavaScript セレクトボックスを2つ設けて選択して初めてメッセを表示 1 2022/07/27 12:15
- JavaScript ①入力フォーム→②確認表示画面→③送信完了画面のコードを書いているのです、 入力フォームから受け取っ 2 2022/05/10 16:45
- JavaScript 入力フォームの javascript で メールアドレスの正規チェックをを行い、ボタンをクリックして 2 2022/04/27 16:06
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキスト入力後、エンターを押...
-
display: none をすると Enter ...
-
CLispのloop内の挙動について
-
Application.ScreenUpdating = ...
-
パイソンのクラスについて
-
Pythonでターミナルに文字を出...
-
どちのほうがすきですか?
-
パイソンのクラスのブログラム
-
パイソンのクラスについて
-
パイソンプログラミング
-
【メモリ不足で落ちる(python)】
-
パソコン → パャRン
-
vscode 文字化け
-
[python] 文字列を変数名として...
-
メモリをアドレスを直接指定し...
-
JSONで文字列が長い時
-
実行時エラー 3020の対策
-
<SELECT>タグの折り返し
-
c++の構造体について
-
int(input("○○"))の使い方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
formで特定のinputを送信しない...
-
子windowsからsubmit()後にclos...
-
Perlで分数を保持したい
-
display: none をすると Enter ...
-
ホームページビルダーのメール...
-
テキスト入力後、エンターを押...
-
javascriptでCGIを実行するには
-
Application.ScreenUpdating = ...
-
JSONで文字列が長い時
-
どちのほうがすきですか?
-
文字の横にプルダウンを表示さ...
-
16進の10進変換について
-
実行時エラー 3020の対策
-
メモリをアドレスを直接指定し...
-
[python] 文字列を変数名として...
-
ACCESS テキストボックスを隙...
-
セレクトメニューで2つの項目...
-
FindFirst を複数条件で検索
-
Pythonでターミナルに文字を出...
-
シェルスクリプトで、空白(ス...
おすすめ情報