痔になりやすい生活習慣とは?

メールフォームからメール送信するページを作成したいのですが、
最初の方の
require 'perl-lib.pl';
の所で、処理が止まってしまいます。


#↓=======================================
#!c:/Perl/bin/perl
print "Content-type: text/html\n\n";
require "cgi-lib.pl";
require "jcode.pl";
require "perl-lib.pl"; # ←ここでとまる。
 :

#↑=======================================


サーバは、社内のWebサーバです。
サーバの環境は、
・OS:WindowsXP
・サーバソフト:Apache HTTP Server 2.0.54
・ActivePerl 5.8.7 Build 813
です。

perl-lib.plの保存先フォルダを変えてもダメでした。
(もちろん、その際、requireのパスも変更)

perl-lib.plは、クライアントからアスキーモードでアップロードしました。
パーミッションは777です。l
perl-lib.plは、
http://www.tryhp.net/perllib.htm
よりダウンロードしました。


原因が分からず行き詰っております。
どのようなことが考えられるでしょうか。
どなたかご存知の方、ご教授願います。

このQ&Aに関連する最新のQ&A

A 回答 (3件)

perl-lib.plの中に、


require 'Jcode.pm';
の記述があるので、これをコメントにしてみたらどうでしょう。
    • good
    • 0
この回答へのお礼

ご回答、誠にありがとうございます。

>これをコメントにしてみたらどうでしょう。

ご指摘のとおり、対応してみたら、解消しました。
基本的な質問で、誠に申し訳ございませんでした。
ありがとうございました。

お礼日時:2010/09/01 16:28

こんにちは。



>よくわかりませんが、
なんでわからん???

「perl-lib.pl」のソース見たら、useしたりrequireしたりしてるでしょ???
ここのパスがおかしいとか、そういう事ではないんですか?
という回答なんですが???
    • good
    • 0
この回答へのお礼

>>>なんでわからん???

わからんから、わからん言うとんねん。

お礼日時:2010/09/01 16:25

こんにちは。



「perl-lib.pl」の中でrequireしているものがないとか・・・?

この回答への補足

>「perl-lib.pl」の中でrequireしているものがないとか・・・?

よくわかりませんが、
メールフォーム作成のソースをそのままコピペしただけなのですが。

#!/usr/local/bin/perl
require 'jcode.pl';
require 'perl-lib.pl';
$sendmail = '/usr/lib/sendmail';
$uuencode = '/usr/bin/uuencode';
readparts('QUERY', '<>=', 'sjis');
$subject = 'ありがとうございました';
$master = '(メルアド)';
$body = 'ご登録ありがとうございました。';
$body .= '今後ともよろしくお願いします。';
&jcode'convert(*subject,'jis');
&jcode'convert(*body,'jis');
$err = (send_email($sendmail,$uuencode,$subject,$master,$QUERY{'email'},'','',$body,'',''));
$err && &error_view($err);
html_head('#FFFFFF','#000000','#FF0000','#0000FF','#00FF00','',0,0,'');
print "<center>\n";
print "<table border=1><tr><td bgxolor=#FFFFAA><font size=2>\n";
print $body;
print "</font></td></tr></table>\n";
print "</center>\n";
print "</body></html>\n";
exit;

補足日時:2010/09/01 12:34
    • good
    • 0
この回答へのお礼

>「perl-lib.pl」の中でrequireしているものがないとか・・・?

よくわかりませんが、
メールフォーム作成のソースをそのままコピペしただけなのですが。

#!/usr/local/bin/perl
require 'jcode.pl';
require 'perl-lib.pl';
$sendmail = '/usr/lib/sendmail';
$uuencode = '/usr/bin/uuencode';
readparts('QUERY', '<>=', 'sjis');
$subject = 'ありがとうございました';
$master = 'info@trythehomepage.com';
$body = 'ご登録ありがとうございました。';
$body .= '今後ともよろしくお願いします。';
&jcode'convert(*subject,'jis');
&jcode'convert(*body,'jis');
$err = (send_email($sendmail,$uuencode,$subject,$master,$QUERY{'email'},'','',$body,'',''));
$err && &error_view($err);
html_head('#FFFFFF','#000000','#FF0000','#0000FF','#00FF00','',0,0,'');
print "<center>\n";
print "<table border=1><tr><td bgxolor=#FFFFAA><font size=2>\n";
print $body;
print "</font></td></tr></table>\n";
print "</center>\n";
print "</body></html>\n";
exit;

お礼日時:2010/09/01 06:42

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


人気Q&Aランキング