Perl コーディング初心者質問コーナー Part37
XP proマシンにIISとActive Perl入れて動作検証してますが、
次のようなエラーになってしまいます。
'c:\inetpub\wwwroot\cgi-bin\apply.cgi' script produced no output
webサーバーでは正常に動いているのですが、IISでディレクトリの設定を
変える必要があるのでしょうか？
IIS開いてみたけどよく分かりませんでした。
どこを変えればよいでしょうか。
※テキストファイルを書き出すプログラムを書いています。
よろしくお願いします。
次のようなエラーになってしまいます。
'c:\inetpub\wwwroot\cgi-bin\apply.cgi' script produced no output
webサーバーでは正常に動いているのですが、IISでディレクトリの設定を
変える必要があるのでしょうか？
IIS開いてみたけどよく分かりませんでした。
どこを変えればよいでしょうか。
※テキストファイルを書き出すプログラムを書いています。
よろしくお願いします。
script produced no output でググればあるじゃん
ロジックに関する質問いいでしょうか。
例えばこのようなフォルダ構造がある場合、
index.cgiが全ディレクトリ内のファイルの一覧を取得する事は可能でしょうか。
[root]
├ index.cgi
├ [data]
│ ├ [data_bak]
│ │ └ log.log
│ ├ data.log
│ └ data2.log
├ [file]
│ ├ file.txt
│ └ file2.txt
└ [img]
├ img.gif
└ img2.gif
index.cgiでreaddirで一覧を取得し、その中にディレクトリがあれば、その中の一覧も取得し、
さらにその中にディレクトリがあれば･･･といった形の構造にしたいのです。
例えばこのようなフォルダ構造がある場合、
index.cgiが全ディレクトリ内のファイルの一覧を取得する事は可能でしょうか。
[root]
├ index.cgi
├ [data]
│ ├ [data_bak]
│ │ └ log.log
│ ├ data.log
│ └ data2.log
├ [file]
│ ├ file.txt
│ └ file2.txt
└ [img]
├ img.gif
└ img2.gif
index.cgiでreaddirで一覧を取得し、その中にディレクトリがあれば、その中の一覧も取得し、
さらにその中にディレクトリがあれば･･･といった形の構造にしたいのです。
>897
どうしたの？
どうしたの？
>>897
＞可能でしょうか。
可能でしょう。
＞･･･といった形の構造にしたいのです。
そういった構造で、可能でしょう。
プログラムとは、といった構造だと出来るのではないか、可能ではないか、
と考えて作り、動かしてみて、思った通りに行かなければ、
なぜそう行かないのかを探り、修正し、、、、
といった積み重ねで出来上がるものなのです。
＞可能でしょうか。
可能でしょう。
＞･･･といった形の構造にしたいのです。
そういった構造で、可能でしょう。
プログラムとは、といった構造だと出来るのではないか、可能ではないか、
と考えて作り、動かしてみて、思った通りに行かなければ、
なぜそう行かないのかを探り、修正し、、、、
といった積み重ねで出来上がるものなのです。
>>900
0から聞かれるよりかは、可能か不可能かだけを聞いてやり方を各自で模索してくれる方がありがたいのだが･･･ｗ
0から聞かれるよりかは、可能か不可能かだけを聞いてやり方を各自で模索してくれる方がありがたいのだが･･･ｗ
>>901
だから、実際書いて見てつまずいた所を
聞いてこなきゃ進まないわな。
可能ですか？…といった構造にしたいのです。
なら「可能です」で終わるよ。
たぶんこれ期待した答えじゃないよな。
といって具体的な質問でもないとすると、
そこまで考えてて、一から教えろって話？
だから、実際書いて見てつまずいた所を
聞いてこなきゃ進まないわな。
可能ですか？…といった構造にしたいのです。
なら「可能です」で終わるよ。
たぶんこれ期待した答えじゃないよな。
といって具体的な質問でもないとすると、
そこまで考えてて、一から教えろって話？
質問方法なんて質問者次第だからどーでもよくねぇ？
みんなログ保存はタブで分けてる？それとも<>で分けてる
一番いいのってなんだろ
一番いいのってなんだろ
何のログだYO
その辺のヘボいBBSの名前欄とかにタブ文字入れるとログが壊れて面白いなｗ
その辺のヘボいBBSの名前欄とかにタブ文字入れるとログが壊れて面白いなｗ
俺は<>かな。理由は2chがそうだからってだけ。
俺はオブジェクトのまんまdump
911 ：nobodyさん：04/10/05 16:53:35 ID:eG43Pgsa
BEGIN{
if ( $ENV{'REMOTE_ADDR'} eq '127.0.0.1' ) {
push @INC, 'C:\Program Files\Apache Group\Apache\htdocs\public_html\cgi-bin';
}else{
push @INC, '/home/public_html/cgi-bin';
}
}
サーバでもローカルでも問題なく動かせるようにするために、自作のモジュールの場所を
上記のようにやってみた。しかしローカルでエラーが出た。多分プロンプトからやると
アドレスがおかしなことになるからだと思う。
どうやればいい？
>>911
BEGIN {
push @INC, defined $ENV{'REMOTE_ADDR'} && $ENV{'REMOTE_ADDR'} ne '127.0.0.1'
? '/home/public_html/cgi-bin'
: 'C:\Program Files\Apache Group\Apache\htdocs\public_html\cgi-bin'
}
BEGIN {
push @INC, defined $ENV{'REMOTE_ADDR'} && $ENV{'REMOTE_ADDR'} ne '127.0.0.1'
? '/home/public_html/cgi-bin'
: 'C:\Program Files\Apache Group\Apache\htdocs\public_html\cgi-bin'
}
913 ：911：04/10/05 17:19:18 ID:eG43Pgsa
914 ：911：04/10/05 17:23:40 ID:eG43Pgsa
う〜ん
&&だとローカルで成功
||だとサーバで成功
どちらも不完全・・・orz
&&だとローカルで成功
||だとサーバで成功
どちらも不完全・・・orz
915 ：911：04/10/05 17:29:18 ID:eG43Pgsa
もしかしてSSHでには対応できてない？
サーバでもできるっていうのはサーバにシェルでつないで
perl -c
でっていうことなんだけど、それは無理かな？
判断基準がないのかな？REMOTE_ADDRだけでは無理だよね。
サーバでもできるっていうのはサーバにシェルでつないで
perl -c
でっていうことなんだけど、それは無理かな？
判断基準がないのかな？REMOTE_ADDRだけでは無理だよね。
アホか・・・
HTTP_HOST
>>917-918
さすが！ありがとう。
さすが！ありがとう。
すみまそん・・・初歩的な質問で恐縮なのですが
コマンドプロンプトにPerlの構文を直接打っても機能するということを
もききにはさんだのですが、どうやればよいのでしゅか？
コマンドプロンプトにPerlの構文を直接打っても機能するということを
もききにはさんだのですが、どうやればよいのでしゅか？
perl -e "print 'nullpo';"
>>921
ありがとうございます。できましたけど失礼しますm(_ _)m
「ガッ！」
ところで10行くらいになる場合はどうやればいいのでしょうか？
print -e "
ここｄEnterを押すと何故かキャンセルされてしまうのですが。
あと print =e "
このダブルクォートは他の記号で代替できませんか？
ありがとうございます。できましたけど失礼しますm(_ _)m
「ガッ！」
ところで10行くらいになる場合はどうやればいいのでしょうか？
print -e "
ここｄEnterを押すと何故かキャンセルされてしまうのですが。
あと print =e "
このダブルクォートは他の記号で代替できませんか？
923 ：911：04/10/05 17:56:43 ID:eG43Pgsa
>>922
> ところで10行くらいになる場合はどうやればいいのでしょうか？
何が10行くらいになるのよ？perlのコード？出力？
perl -e "print qq/a\n/; print qq/b\n/; print qq/c\n/"
> このダブルクォートは他の記号で代替できませんか？
あんたの使ってるシェルによる。シェルの話は板違い。
> ところで10行くらいになる場合はどうやればいいのでしょうか？
何が10行くらいになるのよ？perlのコード？出力？
perl -e "print qq/a\n/; print qq/b\n/; print qq/c\n/"
> このダブルクォートは他の記号で代替できませんか？
あんたの使ってるシェルによる。シェルの話は板違い。
$ENV{'GATEWAY_INTERFACE'}
>>924
windowsXPです。
>何が10行くらいになるのよ？
つまり
print 1;
print 2;
print 3;
print 4;
のような時に見栄えのために改行をしたいのですが、-eでやるとenterは実行になってしまって
改行にはなりません。
いわゆるmysqlでのEnterキーの昨日を求めています。
windowsXPです。
>何が10行くらいになるのよ？
つまり
print 1;
print 2;
print 3;
print 4;
のような時に見栄えのために改行をしたいのですが、-eでやるとenterは実行になってしまって
改行にはなりません。
いわゆるmysqlでのEnterキーの昨日を求めています。
>>927
C:\hogehoge\>perl
print "(ﾟдﾟ)";
print "<";
print "ｼﾒｼﾞ\n";
^Z ← Ctrl + Z
(ﾟдﾟ)<ｼﾒｼﾞ
C:\hogehoge\>
> いわゆるmysqlでのEnterキーの昨日を求めています。
( ﾟдﾟ) ?
C:\hogehoge\>perl
print "(ﾟдﾟ)";
print "<";
print "ｼﾒｼﾞ\n";
^Z ← Ctrl + Z
(ﾟдﾟ)<ｼﾒｼﾞ
C:\hogehoge\>
> いわゆるmysqlでのEnterキーの昨日を求めています。
( ﾟдﾟ) ?
>>928
^D では。cmd.exe だとどうかは知らんけど。
^D では。cmd.exe だとどうかは知らんけど。
例えば掲示板において強制改行されない半角文字
(いわゆるテーブルのデザインを崩す文字)
は正規表現でどう表せますか？
ピックアップしてみましたが
\ ^ . $ * ? | ( ) [ ] { }
0-9 a-z A-z
これで全部でしょうか？
(いわゆるテーブルのデザインを崩す文字)
は正規表現でどう表せますか？
ピックアップしてみましたが
\ ^ . $ * ? | ( ) [ ] { }
0-9 a-z A-z
これで全部でしょうか？
もぅ半角全部でいいじゃん
環境変数について質問です。
perl では ASP で言う ALL_HTTP に相当するものは無いんですか？
仕事のテストの都合でクライアントのリクエストを画面に出力したくて
print <<EOF;
Content-Type: text/html
<HTML>
<HEAD>
</HEAD>
<BODY>
$ENV{'ALL_HTTP'}
</BODY>
</HTML>
EOF
↑のようにコードを書いたんですが、何も出力されなかったので。
どなたかお知恵を貸してください。お願いします。
perl では ASP で言う ALL_HTTP に相当するものは無いんですか？
仕事のテストの都合でクライアントのリクエストを画面に出力したくて
print <<EOF;
Content-Type: text/html
<HTML>
<HEAD>
</HEAD>
<BODY>
$ENV{'ALL_HTTP'}
</BODY>
</HTML>
EOF
↑のようにコードを書いたんですが、何も出力されなかったので。
どなたかお知恵を貸してください。お願いします。
すみません、環境変数では無理だったようです。
お騒がせして申し訳ありませんでした…。
お騒がせして申し訳ありませんでした…。
my $test = 'localhost/hoge/';
print "ここのURLは$testtest.cgiです";
みたいな時にコンパイラが間違わないように変数名をはっきりさせるにはどうすればいいですか？
print "ここのURLは{$test}test.cgiです";
勘でやりましたらエラーになりました；
print "ここのURLは$testtest.cgiです";
みたいな時にコンパイラが間違わないように変数名をはっきりさせるにはどうすればいいですか？
print "ここのURLは{$test}test.cgiです";
勘でやりましたらエラーになりました；
print 'ここのURLは'.$test.'test.cgiです';
それしかないかって試しもせずに質問したのかよ。
しかも後出しで日亜ドキュメントとか・・・
しかも後出しで日亜ドキュメントとか・・・
それしかないかって言われて気づいたんだろ
943 ：nobodyさん：04/10/06 08:07:40 ID:JNRSDhvA