- 締切済み
フォームメール＠PerlとActivePerlのモジュール
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- fu_u_ka_i
- ベストアンサー率51% (15/29)
webサーバのプロダクトに依存するパッケージは 代替手段を考えなければ同じ事が出来ません。 しかしながら、その３つは、Apacheに依存しないと思うのですが．．
関連するQ&A
- メールフォームを2つ設置するには
違う項目のメールフォームを2つ設置するため 下記のように作りました。 1、CGIフォルダの中にmail.cgiとjcode.plが入っている 2、CGIフォルダの中にmail2.cgiとjcode.plが入っている 1のフォームは送受信できるのですが、 2のフォームで送信すると1のフォームを呼び出してしまいます。 CGI2フォルダを作り送信するのも試しましたが、同じ結果でした。 jcode.plの記述は変えていません。 2のフォームで1のフォームが呼び出される原因について ご教授をお願い致します。
- ベストアンサー
- CGI
- perlのMIMEモジュールの代用ができるスクリプトは？
CGIでメール受信処理をするために、Net::POP3の使用はできましたが、MIME系のモジュールがサーバーに用意されていないらしく、受信したメールの解析がうまくいきません。 モジュールなので、サーバーのPERLに管理者が追加しないといけないと思うのですが、お願いしても断られてしまいました。 jcode.plやcgi-lib.plのように、requireで読み込むようなパターンにしようと思うのですが、代用できるようなスクリプトをご存知の方はいらっしゃらないでしょうか？ MIME-Base64 MIME-tools MailTools IO-stringy の四点に変わるものを探しています。 よろしくお願いいたします。
- ベストアンサー
- CGI
- Jcodeモジュールの浸透具合
CGIの勉強を始めたのですが、使っている入門書が2004年のもので、 「たいていのレンタルサーバーにはJcodeモジュールが入っていないのでjcode.plをrequireしたほうが無難」とかかれているのですが、 現在の状況はどうなのでしょうか？ 個人的にはJcodeモジュールのほうが簡単なので好きなのですが、 jcode.plの勉強もしておかないと移転する際などに困りますか？
- ベストアンサー
- CGI
- 一括してモジュールを読み込みたい
最近Perlを始めました。（今まではPHPをやっておりました） 利用するモジュールを各CGIファイルごとの先頭に宣言するのが面倒なので、Include.plなどのファイルを作って一括して読み込みたいと考えています。 例えば以下のような感じです。 【Include.pl】 use strict; use Data::Dumper; use Fcntl qw(:DEFAULT :flock); use CGI; use CGI::Session ; use CGI::Carp qw(fatalsToBrowser); use Encode; use HTML::Template; 1; 上記のようなファイルを各CGIファイルの先頭で、 require 'include.pl'; とした場合に、使用できないモジュールがあります。 例えば、ファイルロックをしたくてflock(FILE, LOCK_EX)とするとエラーになってしまいます。 しかし、CGIモジュールは$q = CGI->new()と普通に利用できます。 モジュールは全てインストールされています。その証拠にCGIファイルに直接useの宣言を書けば動作します。 通常、このような使い方でモジュールのuseは有効にならないのでしょうか？？ また、自分で作成したモジュール内で他のモジュールを利用したいといった場合、いちいちuseで宣言しなければならないのでしょうか。 mainとなるファイルでuse宣言しておくだけで、自作モジュール内で利用できると思ったのですが、いちいち宣言しなおさなければ利用できないようです。 挙動がPHPと違うため困惑しております。 どなたかご教授いただけないでしょうか。よろしくお願いいたします。
- ベストアンサー
- Perl
- パッケージとモジュールについて
こんにちは。Perlを学習し始めた初心者です。 Perl 5.87を使っており、標準モジュールを使う方法を書籍で読みました。 例えば、フォームに入力、送信されたデータを処理するために use CGI; と最初に記述して使うことができますが、 別のエラー処理の構文を見ると $CGI::POST_MAX と１行目に記述してあります。 パッケージとモジュールの概念が、よく分かっていないので戸惑って います。 C:\perl\lib にある、CGI.pmというモジュールを使用していると思う のですが、use CGI;と記述するときと $CGI::と記述するとき、何が異なるのでしょうか？ 後者はCGI.pmの中にある、POST_MAX変数を使うということでしょうか？ パッケージという言葉を見ても、よく分からずネットで随分調べましたが、余計に分からなくなってしまいました。 お忙しいところ申し訳ありませんが、よろしくお願い致します。
- ベストアンサー
- Perl
- IIS7とActivePerlを導入しましたが、エラーに。教えてください
OSはvistaです。IIS7とActivePerl5.8.8を導入しました。 http://www.winpc.info/vista/tips/ を参照にhttp://localhost/test.cgiの実行では成功しました。 それで、過去（XPとIIS6）で動いていた。ＣＧＩを動かしてみると、失敗になり、上記の「test.cgi」に、 require 'jcode.pl'; を追加してテストすると、エラーになります。 ActivePerl5 では、「require」は使えないのでしょうか。 また、IIS7の設定やその他に問題があるのでしょうか。 宜しくお願いします。
- 締切済み
- Perl
- Perl メール フォーム
ホームページのメールフォームについて教えてください。 現在ホームページで、お問い合わせページを作っている最中です。 そこで、現在下記のコードまでできております。 #!/usr/bin/perl -w use Encode qw(from_to encode); use Net::SMTP; use strict; use warnings; use Encode; use CGI; my $p = new CGI; #メールアドレス設定 my $from = 'aaaa@aaaaa.jp; my $mailto= 'aaaa@aaaaa.jp; my $mailcc= 'aaaa@aaaaa.jp; #サブジェクト設定 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 = "a"; #my $subject = $p->param('subject'); #文字コードをJISに変換 from_to($message, 'shiftjis', 'iso-2022-jp'); #メール送信オブジェクト設定 my $smtp = Net::SMTP->new('aaaaaaa.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; これだと、ホームページのボタン等をクリックすると メールは送られます。 差出人が'aaaa@aaaaa.jp 件名がホームページからのお問い合わせ 内容がa です。 これは、コード内にこう書いているから必然的にこれがくるわけなのですが、 そうではなく、 ホームページでお問い合わせボタンがありそこに <a href="http://aaaaaa.jp/cgi/mailform.pl"><img src="img/share/mail.gif" width="100" height="50" alt=""></a> mailform.plもしくはmeilform.htmlを表示させ下記のコードで表示されるページにアクセスし #!/usr/bin/perl <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> ここで 差出人、件名、内容を入力し、送信のボタンを押すと my $subject = 'ホームページからのお問い合わせ'; my $message = "a"; my $from = 'aaaa@aaaaa.jp; この３つをmailform.plもしくはmailperl.htmlで 入力した内容で送信をしたいのですが、 これのやり方を教えてほしいです。。。 当方ホームページ作りも初心者で、Perlも最近はじめたとこでまだ理解できていないとこも 多いため説明がわかりにくいかもしれません・・・ その時は、ご指摘ください；； また、業者に頼むことは考えておりません・・・ 参考書やいろいろネットサーフィンしてみたのですが、上手くできません どうかお力添えをお願い致します！
- ベストアンサー
- Perl
- PerlのCGIでフォームのテキスト配列をPerlで取得するには？
フォームで通常は同じ名前のデータを取得することは無いのですが 表計算のように同じ名前の場合、データの取り出し方がわかりません。 以下、通常の１件の場合のソースです。 #!/usr/bin/perl $| = 1; use strict; our %in; use CGI::Carp qw(fatalsToBrowser); use CGI qw(:standard); require 'jcode.pl'; require 'cgi-lib.pl'; # #-----分岐----- &ReadParse; # 配列でない場合 my $namae = $in{'namae'} print "$namaeで名前が１件表示される"; # これをフォームで namaeが配列になった場合、 #<input type="text" name ="namae"> #<input type="text" name ="namae"> #<input type="text" name ="namae"> # のような場合、３件取得する場合 exit; __END__
- ベストアンサー
- CGI
- フォームメールつくりましたけど、、。＞＿＜
下記のページで、フォームメールダウンロード つくったのですが、 [public_html] └[cgi-bin] ├[tmp] ├formmail.cgi ├jcode.pl └perl-lib.pl あげてフォームを入れて送ったのですが、 エラーになります。Internal Server Errorじゃなくて 「E-Mailを記入してください」下にもどるボタンが でます。ってことはパーミッションはあってるとおもうのですが 空白全部記入していて、メールもちゃんとしたアドレス 入れたのにエラーがでる原因は何が考えられますか？ ダウンロードしたのは下記です。 http://www.tryhp.net/formmail.htm
- ベストアンサー
- CGI
- Perl メールフォーム複数のアドレスに。
メールを複数のアドレスに配置したいのですがPGをどう変更すれば よろしいでしょうか？ 参考ソース #!/usr/bin/perl # フォームメール #jcode.plの場所を設定 require "./jcode.pl"; # sendmailの場所を設定 $sendmail = '/usr/lib/sendmail'; # サンプルのタイトル $mail_title = "メール送信サンプル"; # ページの背景色 $bgcolor = "#FFFFFF"; # ページの文字色 $text = "#000000"; # 戻り先のURL $back_url = '***@aaa.co.jp'; # CGIプログラムの設置場所 $cgi_url = "./mail.cgi"; # 受信メールアドレス（送信先） $mailto = '***@aaa.jp';
- ベストアンサー
- Perl
お礼
ご回答ありがとうございます。 お礼が遅くなり申し訳ございません。 >webサーバのプロダクトに依存するパッケージは >代替手段を考えなければ同じ事が出来ません。 ごもっともです・・・ やはりIISの到着を待ち、その際何か問題あればまた相談する事にします。