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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
formで特定のinputを送信しない...
-
子windowsからsubmit()後にclos...
-
display: none をすると Enter ...
-
テキスト入力後、エンターを押...
-
JSONで文字列が長い時
-
Application.ScreenUpdating = ...
-
セレクトメニューで2つの項目...
-
文字の横にプルダウンを表示さ...
-
「*:*」って何を意味するのでし...
-
REXMLについて教えてください
-
実行時エラー 3020の対策
-
ACCESS テキストボックスを隙...
-
pythonで演算子を変数に代入す...
-
コンボボックスのtag情報の取得...
-
STLのlistで重複するものだけを...
-
フォームの日本語が文字化け
-
phpでボタンを押したときに変数...
-
[python] 文字列を変数名として...
-
構造体の各データの表示につい...
-
セレクトメニューで選んだ値を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
formで特定のinputを送信しない...
-
子windowsからsubmit()後にclos...
-
テキスト入力後、エンターを押...
-
display: none をすると Enter ...
-
javascriptでCGIを実行するには
-
メールフォームのソースについて
-
Perlで分数を保持したい
-
無駄な改行を何とかしたいです
-
ホームページビルダーのメール...
-
JSONで文字列が長い時
-
Application.ScreenUpdating = ...
-
VBAでPDFのコピーとリネームを...
-
16進の10進変換について
-
メモリをアドレスを直接指定し...
-
文字の横にプルダウンを表示さ...
-
実行時エラー 3020の対策
-
<SELECT>タグの折り返し
-
セレクトメニューで2つの項目...
-
【至急!!!】python言語で本を見...
-
FindFirst を複数条件で検索
おすすめ情報