CGIだけど、なんか質問ある？ Part 6

CGIの運用に関する質問スレッドです。

※CGIは特定の言語に依存するものではありません。

※Perlのコーディングに関する質問は専用スレがありますのでそちらでお願いします。
　 ↓
　 Perl 初心者コーナー Part13
　 http://pc.2ch.net/test/read.cgi/php/1022731565/l50

過去ログ・関連スレッドは >>2

■過去ログ
Part3 http://pc.2ch.net/test/read.cgi/php/988727833/
Part4 http://pc.2ch.net/php/kako/1000/10008/1000804655.html
Part5 http://pc.2ch.net/php/kako/1009/10093/1009331505.html
Part5.01 http://pc.2ch.net/php/kako/1015/10151/1015127347.html
Part6 http://pc.2ch.net/test/read.cgi/php/1019561283/

■CGI以外のPerlに関する質問スレッド
Perl 初心者コーナー Part13
http://pc.2ch.net/test/read.cgi/php/1022731565/l50
CGIに依存しないPerlの話題一般
http://pc.2ch.net/test/read.cgi/php/991313362/l50

■関連スレ
【Perl,CGI】参考書籍
http://pc.2ch.net/test/read.cgi/php/988809842/l50
スクリプト改造工房 4
http://pc.2ch.net/test/read.cgi/php/1012839651/l50
こんなCGI探してますスレッド Ver6
http://pc.2ch.net/test/read.cgi/php/1021897804/l50
.htaccessの偉い人 Part3
http://pc.2ch.net/test/read.cgi/php/1019888234/l50
【ｽﾚｯﾄﾞ】2ｃｈ型掲示板 その5【ﾌﾛｰﾄ型】
http://pc.2ch.net/test/read.cgi/php/1019414023/l50

>CGIだけど、なんか質問ある？
いえ、特に何も。

おい、またPart6かよ。

sendmailで複数先に送信する時に
$mailto = '****@**.**';
$mail = '****@**.**';
$mail2 = '****@**.**';
$mail3 = '****@**.**';
　　：
　　：
if (open(MAIL,"| $sendmail $mailto $mail $mail2 $mail3")) ・・・

これをfor文とかを使って短くしたいんですがどうしたら良いんでしょうか？

>>1
乙


>>4
ワラ

>>5

その送信先のアドレスは予め決まってるの？
なら、

$MailTo = array('[email protected]', ……);
for($i = 0; $i < count($MailTo); $i++) {
// 送信処理
}

すまん、Perl だったか。
逝って来る。

>>7-8
って言うか。>>1 も読んでいない >>5 に答える義務は無いぞ

> ※Perlのコーディングに関する質問は専用スレがありますのでそちらでお願いします。
> 　 ↓
> 　 Perl 初心者コーナー Part13
> 　 http://pc.2ch.net/test/read.cgi/php/1022731565/l50

「http://サーバー名/CGIスクリプト名?データ」で実行し、データの
受け渡しをするプログラムを作っているんですが、他のURLへジャンプ
させるときに、
<A HREF="http://スクリプトパス/CGIスクリプト名?ジャンプ先URL">ジャンプ
</A>
としたいんですが、ジャンプ先URLをフルパスで出せるようにするには
どうしたらいいですか?以下がつくった内容です。
my($encoding) = @_;
my($method) = $ENV{'REQUEST_METHOD'};
if ($method eq 'GET') { $query = $ENV{'QUERY_STRING'}; }
elsif ($method eq 'POST') { read(STDIN, $query,
$ENV{'CONTENT_LENGTH'}); }
local(@query) = split(/&/, $query);
foreach (@query) {
tr/+/ /;
($key, $val) = split(/=/);
$key =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("c", hex($1))/ge;
$val =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("c", hex($1))/ge;
$val =~ s/\r\n/\n/g;
$in{$key} = $val;
}
my $req = new HTTP::Request POST => $val;
$req->content_type('application/x-www-form-urlencoded');
$req->content('match=www&errors=0');
my $res = $ua->request($req);
if ($res->is_success) {
$myd = $res->content;
$myd =~ s/(\<A HREF=\")/$1test.cgi?/g;
print $myd;
} else {print "No!";}

今の状態ですと、 $myd =~ s/(\<A HREF=\")/$1test.cgi?/g;
をやると、 <A HREF=test.cgi?test/index.html> というような感じになって
<A HREF=test.cgi?http://www.***.co.jp/test/index.html>
というような形になりません。
超初心者なもので、どこをどう直したらいいか、詳しく教えて
いただけると助かります。 すいません、よろしくお願いします。

>>9
ＣＧＩとして使うんですけどあっち逝った方が良いですか？

【初心者です】
【お願いします】

等のキーワードを見ると嫌悪感感じるのは俺だけ？

PATH_INFOの方がよくないかねぇ。

>>11
【perl の for 文】についての質問がどこをどうしたら【CGI（Common Gateway Interface）】と
結びつくのか説明してくれ

はじめまして、
Web製作で質問するかここで質問するか迷いましたが、とりあえずこっちで聞いてみようと思います。
両方で聞いてみようかな？
私も自分のHP運営しているのですが、最近他人の名前を勝手に使って投稿する荒らし魔が続出して困っています。
そこで、掲示板に投稿者の名前が重複したり他人に勝手に使われないような手を施したいのですが、なにかお手軽な方法をご存じないでしょうか？
よろしくお願いいたします。

トリップ+cookie+pass

>>13
いくつか問題があるね

・PATH_INFO 非対応の鯖もある

・カレントスクリプトのディレクトリが PATH_INFO になるので、
スクリプト側から動的 html を生成する時、アンカータグとか
生成する場合のカレントディレクトリが PATH_INFO のディレ
クトリになってしまう

>>15スレ違い

>>15
そいつが二度と来ないようにはじく。

>>18
やっぱりスレ違い？
これどこのスレで聞けばいいのかな。
いろいろ探してるんだけどこれぞーってのがまだ見つからないッス。
>>16
どこかの検索エンジンでトリップ+cookie+passをやれば見つかるということですか？

>>15>>20
perlは知ってるの？
cryptって言う関数知ってる？

>>21
知りませんでしょう。たぶん。

ガイシュツかもしれませんが、
ＣＧＩを実行させずに、ソースをダウンロードすることは出来るものでしょうか？
ご存知の方はお教えくださいませ

ﾎﾟｶｰｿ

ほえ？

>>21
残念ながら知らない者です。
申し訳ないです

>>26
perlとか知らないで、その掲示板をどうしようとしてたの？

一応書いておくと、perlならcryptって言う関数で暗号化が出来るから
トリップは入力した名前をこの関数を通せば実現できるよ。

画像アップロードの掲示板で、
最初に自分が画像を投稿することで、今までの書き込みログが閲覧できるという
掲示板ってどこかにない？

いろんなとこ探したんだけど、そういうのって無いんだよね

ガイシュツかもしれませんが教えてください。

ahhan255eをLinuxで使っているのですが、
Kondara/MNU Linux 2.1にインストールしたら軽快に動作しますが
TurboLinux Server 7 や Redhat Linux 7.3 にインストールすると
書き込みボタンを押してからリロードされるまで数分かかってしまいます。

Redhat 7.3 で Kondara みたく動作させるには何をどう設定すればよいのでしょうか。

>>29
ウチではTurboや赤帽でもちゃんとサクサク動いてる。
CGIの問題じゃないだろう。

>>30
CGIの問題とは考えてないです。
apache の設定に何かまずいところがあるのではないかと。
うなぎスクリプトとかは体感的に変わらないのですが、アッhan!だけ遅くなってしまいます。
Turboや赤帽でサクサク動かすにはどう設定すればよいですか。

>>31
＞＞CGIの問題とは考えてないです。

じ　ゃ　あ　ス　レ　違　い　だ　ろ。

始めて投稿させていただきます。
今まで他のサーバーでは普通に動いていたＣＧＩを、新しいサーバーに設置したところ
500のサーバーエラーを起こして動きません。
何度もローカルでテストして、実際に数カ所のサーバーではちゃんと動いているのですが・・・。
どなたか原因のおわかりになる方がいらっしゃったら、どうかご教示ください。
よろしくお願いいたします。

そのサーバーで使えない関数などが使われてる余寒。

>>33

・パーミッション
・perlパス
・使えない関数（flockとか？）

みてみ

34さん
ありがとうございます。
特に特別なことはしていないと思うのですけども。
いままでいくつも同じところでサーバー(有料)をレンタルしており、今回もそこに
借りたのですが、今回に限ってまったく動かないのです。
スクリプトを見なおしたりしているのですがまったく見当がつきません。

35さん、ありがとうございます。
パーミッションもＰｅｒｌのパスも確認して設定をしており、flockもはずしてあるのですが
動きません。

>>33
ものはなんだ？
使えない関数はflockだけとは限らんぞ

簡単なログインをするだけの物と予定表、それと掲示板です。
最初のログインをするスクリプトは、ファイルを参照するためにオープンして
入力されたものと一致したら、予定表なり掲示板に飛ぶというものです。

`perl path/perl -wc script.cgi`;

これの実行結果を出力させて見てみろ。

すみません、`perl path/perl -wc script.cgi`;というのは
スクリプトのなかに書くのですか？

CGIをつくるだけ。

#!/usr/bin/perl
print "Content-type: text/plain\n\n";
print for `perl_path/perl -wc ./script.cgi`;

42さん、ありがとうございます。
実行してみたのですが、これもサーバーエラーで帰ってきてしまいます。

じゃ、CGIが動かない設定になってるんだろ。そのへんの確認は？

さきほどサーバー屋さんの方でレスキューさんのところのスクリプトは
上手く動いているとの返事を頂き、見て見ましたら確かに動いています。
何が違うのか調べてみます。

>>45
ここのPerl Checker(文法チェッカ)ってやつ使ってみれ
http://www.kent-web.com/utility/index.html

はい、さっそく使わせていただきます。
本当にご親切にありがとうございました。

初歩的な質問で申し訳ないのですが、

アクセス制御をＣＧＩで行い、ＩＤ、パスワードが一致するとリンク先のＨＴＭに飛ぶ

と言うのがよくありますが、これでリンクさきをＣＧＩとすることは可能なのでしょうか？

アクセス制御（ＣＧＩ）→ＩＤ、パスワード入力→掲示板のＣＧＩって形なのですが・・・

ＣＧＩ→ＣＧＩって言うのはどうなのでしょうか？

教えてください。よろしくお願いします。

>>48
やってみた上で言ってるの？

CGIだろうが、PNGだろうが、JPEGだろうが、Klez_h.emlだろうが、問題無い。

>>49

はい。やってみたのですが、飛んだ先がＣＧＩのテキストで出てくるんですよ。
掲示板では無くて、ＣＧＩのプログラムが・・・・・
７５５とかアクセス権はきちんと確認しているのですが・・・・

有料でも無料でも、構わないのですが、写真素材のライブラリーを
作り、それを検索して表示できるようなCGIがあったら、
教えてくれませんか？

>>48飛び先に直リンクされたらおわりだな(ﾜﾗ

>>51
そういうアクセス制御ではなく、目的のCGIソースの先頭に
追加するタイプのほうがいいだろう。

>>52
> 有料でも

なら、誰かに作ってもらいなさい。

アイコン付き掲示板に、アイコン一覧を表示させる機能を追加したいのですが、
@gazou　には画像のキャラクター名が、
@url　　　には画像ファイルのURLが格納されてます。
@gazou[1]の画像ファイルは@url[1]となるよう揃えています。

print "<tr>\n";
foreach (@$gazou) {
print "<td>$_</td>\n";
}
print "</tr>\n";
}
print "<tr>\n";
foreach (@$gazou) {
print "<td><img src=\"$url\"></td>\n";
}
print "</tr></table>\n";
}

とやってみたのですが、テーブルが一列になってしまい、
非常に見栄えが悪いです。
恥ずかしながら、
foreach $1,$2 (@$gazou,@$url)
とやれば、それぞれに上手く入ってくれるかと思ったんですが駄目でした。

これを改善するにはどうしたらよろしいのでしょうか？
どうかよろしくおねがいします。

すいません、書いてるうちに混乱してしまいました。
今使っている正しいソースはこちらです。

print "<tr>\n";
foreach (@$gazou) {
print "<td>$_</td>\n";
}
print "</tr>\n";
}

print "<tr>\n";
foreach (@$url) {
print "<td><img src=\"$_\"></td>\n";
}
print "</tr></table>\n";
}

>>56-57

どう考えても、CGI（Common Gateway Interface）とは関係なくて、
単なる「Perl のコーディング」に関する質問なんだけど？

>>59
ﾏｿﾞﾚｽ
foreachじゃなくてforつかえ

>>59
どして？（素朴な疑問）　短いから？（笑）

>>60
理解できてなかったかもしれんが、>>56-57はアイコンをテーブルで

□□□□□
□□□□□
□□□□□
□□□□□

こんな感じで2次元配列で並べたかったんだろ？
だったらforのが簡単にできる。

for (@data) と foreach (@data)　って違うの？！いっしょと思ってたＹＯ！テストしてみます。あんがと。

>>62
いやいや、だから

print "<table>";
for($i=0;$i<$HEIGHT;$i++){
　print"<tr>";
　for($j=0;$j<$WIDTH;$j++){
　　print "<td><a href=$url[$i*$WIDTH+$j]>$gazou[$i*$WIDTH+$j]</a></td>";
　}
　print "</tr>\n";
}
print "</table>";

こういうことがやりたいんじゃないの？

にゃるほど・・そういうことでしたか。 自分は>>56ではなくてただの素朴な質問者ですた。
まぎらわしくてスマソ（´Д｀；）
for (@data) と foreach (@data) はいっしょですね。

僕が聞こうと思った質問はなんだったのかという質問。
スレ読んでる途中で忘れました。逝こう。

このページのサンプルをサーバにアップしてみたんだけど、
「ご意見・ご感想をどうぞ」の部分の
ハンドルネームと内容の項目が表示されません。
　どうしてなのか、ご存知の方ご助言ください。

http://www.narishin.com/qnaire1.htm

>>66
こんな時間にネタはやめれ。

Apache 2.0.39では、なぜアドレス上のクエリーに日本語が入ると（urlエンコードされた）、
CGIが問答無用に動かなくなるのでしょうか？
Apache 1.3.26では動くCGIなのですが。ヘルプきぼん。

文字列のエンコードぐらいしる！

デコードじゃないか？

＞なぜアドレス上のクエリーに日本語が入ると（urlエンコードされた）、CGI

妙な内容の括弧のせいで文章全体が崩壊していると思われ。

括弧内は”日本語”にかかった修飾です。
http://127.0.0.1/?Query=%a6%c6
デタラメですが、例としてはこんな感じです。

ちなみにデコードしるじゃなくて、CGIが頭から作動しなくなるの。
アドレスにurlエンコード入るとSSIが入ったページの全SSIがエラー起こしはじめます。
困りました。

Bugかな？
だれかApache 2.0.39を使ってるやつ他にいないか？

>>68, >>72
CGIと言ったりSSIと言ったり忙しい奴だな。

>>73 (ﾟДﾟ)ﾊｧ?

使えてますが、何か？

それより、>>68 >>72 があまりに馬鹿なのでだれも構ってくれないだけだろ

> あまりに馬鹿
え？

（　ﾟдﾟ ）ﾎﾟｶｰﾝ

( ﾟдﾟ)ﾎﾟｶｰﾝ

(^д^)ﾎﾟｶｰﾝ

CGI改造専用スレに行くべきが迷ったのですが、
CGIそのものの改造ではないのでこちらで質問いたします。

ttp://www.prism-web.com/cgi/file/bbs/designbbs/index.html
ここの掲示板CGIをいただいて使おうと思っています.
この掲示板はデザインをテキストファイルで行います。
サンプル＜tp://www.prism-web.com/cgi/file/bbs/designbbs/cgi/design4/bbs.cgi
（まだ見てるだけの状態なので、私のサイトにはないです。これは配布元のサンプル）
私が変更したいのは1箇所、「この記事へ返信」をリンクではなく、
投稿ボタンのような、ボタンにしたいのです。

どう変えればよいでしょうか。

>>80
十分に改造じゃないか。
ボタンにするだけならと簡単そうに考えてるかもしれないが、
そう簡単とは限らないよ。

>>80-81
<FORM ACTION="./bbs.cgi" METHOD="GET">
<INPUT TYPE="hidden" NAME="mode" VALUE="res">
<INPUT TYPE="hidden" NAME="no" VALUE="スレ番号">
<INPUT TYPE="submit" VALUE="この記事へ返信">
</FORM>

こんな感じになればいいと思うけど

あとは JavaScript で飛ばすとか。。。

JavaScript 常時オフの場合は？

>>80
JSだとこうかな。 (mes_sheet.txt)

<script type="text/javascript">
document.write("<form><input type='button' onclick='javascript:location.href=\"$script?mode=res&no=$no\"' value='この記事に返信'></form>");
</script>
<noscript>
[<a href="$script?mode=res&no=$no">この記事に返信</a>]
</noscript>

81>>
迷ったのよ・・・（ｗ
なぜなら、その改造は掲示板のCGIを書き換えるのではなく、
CGIが読み込むデザインファイル（テキストファイル）
を書き換えるものだから・・・CGI改造とは言わないんじゃ？
とか思ったの・・・。
でも助言サンキュ。今度から改造スレに行くよ。。。

>>82
おおっ。そうか、そうすればよいのか・・・。
有難うございます（TT)
（hiddenをどうしていいのか詰まってた（ｗ））
>>83,84
ナイス案サンキュ。
>>85
有難うございます。

＞＞ALL
みんな教えてくれてありがとね！　　

>86
そう思うなら、HTMLスレに行った方がよかったと思われ。

Linuxサーバーで PerlでプログラミングしたCGIを動作させているのですが、
現在不都合が起きて困っております。

動作内容は FTPでアップロードした exe(自己解凍書庫)ファイルを
CGI経由でダウンロードさせる物です。

---- ここから ----
$|=1;
print "Content-Type: application/octet-stream\n";
print "Content-Disposition: attachment; filename=\"$file\"\n\n";

open(FILE, "$file_path$file") || die;
binmode(FILE);
binmode(STDOUT);
print <FILE>;
close(FILE);
----- ここまで ----

exeファイル以外は上手くいったのですが、(Lzh、zip等)
exeファイルの場合は ダウンロードは出来るものの、
アップロード時とファイル容量が違っておりました。

アップロード時：32,051 バイト
ダウンロード時：37,718 バイト

ダウンロードした後実行すると、
「ヘッダーの内容が不正 解凍できません」とエラー表示されます。

print "Content-Type: application/octet-stream\n";
上記を print "Content-Type: application/x-msdownload\n"; に変更してみたのですが、
それでも上手くいきませんでした。

何か解決策があれば教えてください。

>>88
FTP でウｐした時点で、既に exe ファイルが
壊れているとか。

http://pc.2ch.net/test/read.cgi?bbs=hp&key=1001744788&st=334&to=336&nofirst=true
これってどうなの？

携帯用アダルトサイト管理人の溜まり場
http://pc.2ch.net/test/read.cgi/hp/1001744788/l50

>>89

アップロードしたファイルと元のファイルは同じもので、
再度FTPでダウンロードした場合正常に解凍できました。

他の原因としては何が考えられるでしょうか・・？

念のためにスクリプトを下記のように変更しました。

open(FILE, "$file_path$file") || die;
my $filebody = '';
while(read(FILE,$filebody,1024)){
print $filebody;
}
close(FILE);

>>92
スクリプトに問題があるとは思えない。
ローカルのファイルサイズとFTPクライアントで見るサーバーのファイルサイズは本当に同じ？

>>93

再度確認しましたが同じでした。
CGI.pm を使って CGI経由でファイルのアップロードを行ったのですが、
その場合もだめでした。 exeファイルのみ壊れます。。

う〜ん、何故だろう？ごめん、俺にはわからない。

ダウンロード時にバイト数が増えているからファイル内容出力後に
余計なもの出力してるんだろ。

binmode?

オリジナルファイルと壊れたファイルをバイナリ比較してみるしかないんじゃないかな。
>>97
Linuxサーバならbinmodeは無関係でしょ。

PATH_INFO での引数渡しにおいてのスラッシュの扱いについて質問です。

http://dokosoko.com/hugahuga.cgi/path/to/object
だと普通に動くんですが、
http://dokosoko.com/hugahuga.cgi/path%2Fto%2Fobject
だと、cgi 側に制御がいくまえにサーバが 404 Not Found を返してきます。
これって回避出来ないでしょうかね。
というか、なんで Not Found が返ってくるんだろ。

>>99
/path%2Fto%2Fobject というファイルが見つからないといってるんだから、
おそらく見つからないのでしょう。

スラッシュをURLエンコしたらディレクトリと見なされないのでは？

ブラウザが

>>99
なんでスラッシュがエンコードされてる時だけ
普通にファイルサーチするんでしょう？？

>>101
ディレクトリと見なされないっていうのは...

/(documentroot)/hugahuga.cgi って"ディレクトリ"の
"path/to/object" を探そうとするってことですか？

%2f が入っちゃうと cgi の PATH_INFO として認識しないってことなのかな。
でも普通の QUERY_STRING 渡しとかだと別になにも問題ないですしね。

そういう仕様なんでしょうか。
http://hoohoo.ncsa.uiuc.edu/cgi/interface.html
見たけどよくわからなかった。

もし、その CGI に "slash/including/file" みたいにスラッシュを中に含んだ
名前を渡したいときってどうするべき？
といってもUNIX はスラッシュを含むファイル名って作れなかったか。

>>103

>>99 じゃなく >>100 でした。

あと、単純に PATH_INFO の内容を出力するだけのプログラムで実験したんで
CGI 中でエラー吐いてるわけじゃないです。

>>103
path/to/object（というディレクトリ）が存在すれば、 %2f　でもPATH_INFO は取得できますね。

＞もし、その CGI に "slash/including/file" みたいにスラッシュを中に含んだ
＞名前を渡したいときってどうするべき？
そのまま hoge.cgi/slash/including/file では？

>>105
その場合の path/to/object ってディレクトリはどこですか？
/(documentroot)/path/to/object ですか？

あと、普通の URL の / をエンコードした場合も Not found です。
そりゃそうだ。

>そのまま hoge.cgi/slash/including/file では？
あう、そうでした。区切にスラッシュ使ってた場合、
区切りじゃないスラッシュはどうやって渡せばいいのかって話でしたけど
区切りにスラッシュ使うなってことで解決ですな。

PATH_INFO 解ってない馬鹿共が雁首並べているスレはここですか？

>>107
すみません。わかってません。
CGI の / 以降 ? 以前のところを PATH_INFO として
CGI に渡すってのでまちがってます？

で、なんで %2F を渡すと CGI に渡さないで Not Found になるのか
わからないんです。

>>106
＞その場合の path/to/object ってディレクトリはどこですか？
hogehogeディレクトリ以下です（下図）
hogehoge　/　hoge.cgi
　　|
　　+----- path

＞区切りにスラッシュ使うなってことで解決ですな。
まあその場合は素直に QUERY_STRING 使うってことで。

>>109
ええと、じゃあその %2f を含むパスの前の cgi プログラムの部分は無視
されるってことですか？

http://hogehoge.net/something.cgi/path%2fto%2fobject
の場合、
hogehoge / something.cgi
|
+----- path / to / object
で、
http://hogehoge.net/path/to/object と 等価????

それは違うような....??

とりあえず、 hogehoge 以下に path / to / object を配置してためしましたが
結果はおなじです。
something.cgi ってディレクトリを掘ってそこに path .. を配置しても同じでした。

サーバプログラムによるのかな。
当方 Apache/1.3.26 です。

Apache のソース見て完結しました。

PATH_INFO の中身は OS 上のファイル名として正しいかどうか検査されるらしく、
(PATH_TRANSLATED に渡すから。)
hoge.cgi/path%2fto%2fobject
とした場合、
/ 以降をきりはなしてから URL デコードが行なわれて
"path/to/object" というファイルが正しいかどうか検査されてしまうようでした。
で、スラッシュを含むファイル名は invalid なので Not Found になってしまうと。

アクセス解析つけましたけどちょっと動きが変な感じがするので
テストです！どうぞ閲覧してください。アドバイスなどあれば
おねがいします。
http://s55.net/~S123/

新手の宣伝だな。

CGIの動作速度を計るにはどうしたらいいですか？

>>114
ストップウォッチ

>>115
それなし

>>116
ないなら買いにいけ。

>>117
その計り方がなし

>>118
これ以上正確なものってないだろ？

>>119
その方法はおれには無理だ

>>120
URLリクエスト実行と共にストップウォッチをスタートさせて、
ページが表示されましたがステータスバーに表示されると同時にストップ
、これを３回繰り返して平均値を採る。

>>121
もっと楽な方法が知りたいんだよ

>>122
地味な方法かも知れないけど、恐らくこの方法しかないから書いてんだよ。

>>123
そうか、ありがとう

なんで誰も腹時計を使わないんだ…？

>>114
time(), time()か、そのインターフェイスであるBenchmark.pmを使いなさい。

>>125
実際にはそれだけで済ますことが多いけどね(笑

Perl なら LWP つかってエージェント書いてみるとか。
HTTP::Monkeywrench とかも使えるかもしれない。

PATH_INFO なんですが、
IIS だと %2F は問題無く渡せるんですよね。
SCRIPT_NAME まではいっちゃうってのはあるけど。
なっとくいかないなぁ…

http://go.iclub.to/ddiooc/

お役立ちリンク集
必ず役立ちます

コギャルとＨ出来るサイトはここ
ヌキヌキ部屋へ直行便
↓
http://kado7.ug.to/wowo/

>>126
Benchmarkでできました。
ありがとうございます

特定のディレクトリ以下のhtmlファイルにアクセスされたら、
こちらが発行したクッキーがあるかどうか調べて、あったら、htmlファイルへのアクセスを許すというcgiが欲しいのです。
htmlファイルにアクセスされたら自動的にcgiが動いて調べて通すか通さないか決める。
こういうのってありますか？

というか、htmlファイルにアクセスされたら他のcgiが動くなんて出来るんですか？

.htaccess

今更ながら、>>126は
time(), times()か、その〜
でした。ごめん。

>>132
できるよ。
SSIを使用して
何もないhtmlファイルにそのCGIを読み込むSSIのタグを記入。
それでもrefは取得できるから
良ければ指定のファイルを読み込んで表示。
だめならエラーを表示。

.htaccess でhtmlにアクセスがあったら、アクションさせればいいだろ。

Action image/html /~user/bin/ref.cgi

image/html ってなんだよ。
text/html

.htaccessとかSSIとか高度な事わからないので自分でやるのは無理みたいですね。
レスどうも。
まさかそんなフリースクリプト無いですよね。

>>138
くれくれ君でしたか。
URL に 〜.cgi ってのが出るのがいやじゃないなら
PATH_INFO を使ってやってくれるのもあるだろうね。
cgiwrapper みたいなかんじで。
でも、対象のファイルがパブリックなとこにあったら
あんまり意味ない。

シームレスにやるんだとしたら .htaccess 使えないとちょっと。

割算の計算で、下2桁数まで表示させたいのですが、以下のような記述をすると
エラーになってしまいます・・・。いい解決方法ないですか？

{$A = $B / $C;}
$D = sprintf("%.2f",$A);

A: 25 wallclock secs (25.82 usr + 0.00 sys = 25.82 CPU) @ 5809.45/s (n=150000)
　 　 　 　 　 　 　 　 　 　 　 　 　 　 　 　 　 　 　 　 ↑これってなにを表してるんですか？

@ 5809.45/s←これ

>>140
どんなエラーなのか分からないとなんともいえないな。
エラーメッセージが
Illegal division by zero
ってのなら、$Cに入っている値が0または数値として有効な値ではない、ってことで
キミの考えている値が$Cに入っていないということなんだけど。

>>143
そのとおりでした！
無事解決です。どもです。

http://hoge.co.jp/aiueo.cig?hensu=aiueo

のaiueoを変数として受け取りたいのですがどうすればいいでしょうか。

http://go.iclub.to/ddiooc/

お役立ちリンク集
必ず役立ちます

コギャルとＨ出来るサイトはここ
ヌキヌキ部屋へ直行便
↓
http://kado7.ug.to/wowo/

$buffer = $ENV{'QUERY_STRING'};
local(@pairs) = split(/&/,$buffer);
foreach $pair(@pairs){
local($name,$value) = split(/=/,$pair);
$FORM{$name} = $value;
}

質問です。
dbmopenを使っているPerlスクリプトを、CGIとしてApacheで動かし
たいんですが、dbmopenが動きません。.htaccessファイルの設定
がいるのでしょうか？
お分かりになる方、ご教授ください。

・dbmopenのないCGIスクリプトは問題なしです。
・別のPerlスクリプトをローカルで動かすと問題なしです。（http://www.psl.ne.jp/perl/pdojo03.htmlのスクリプト）

>>148
不十分なので、再度。

「dbmopenを使っている別のPerlスクリプトを動かすと
問題なしです。これは非CGIスクリプトです。
（http://www.psl.ne.jp/perl/pdojo03.htmlのスクリプト）」

(´-`).｡ｏＯ（<<EOF）
"動きません"だけじゃどこに書いても同じ結果になると思うよ…。
EOF

>>150
ですよね。(^^;
このCGIスクリプトでは、ほとんどエラーメッセージがで
ないんです。「スクリプトに use CGI qw(:standard); を付
ければ」というのを頂いたのですが、このスクリプトには
既にこれが記入されていました。

十分なエラーメッセージを出す方法がわかれば、と思うん
ですが、、

>>151

use CGI::Carp qw( fatalsToBrowser );

を入れてみたら？
エラーをブラウザに表示してくれるよ。

http://pc3.2ch.net/test/read.cgi/tech/1017736187/281-
同じ質問に同じ解答をしてそれに対し同じような返事がきてまた同（略
本気でデジャヴかとおもたよ
◆JAPH9PWA さん〜よく頑張ってますね（はぁと

>>151
use CGI::Carp qw( fatalsToBrowser );は既に入っていて、
そのエラーメッセージは下の１行だけです。

(dbmopen) ./diff

haruno.fam.cx/~sawatari/text_perlbbs.html
のページで下の文を参考にしたのですが、標準入力の値がうまく取れませんでした。

if ($ENV{'REQUEST_METHOD'} eq "post"){
read(STDIN, $str, $ENV{'CONTENT_LENGTH'});
}

で、$ENV{'REQUEST_METHOD'}をprintで見たらPOSTが入っていました。
で、($ENV{'REQUEST_METHOD'} eq "POST")にしたらうまくいきました。
上の例文は間違っているんでしょうか？

Perlでは大文字小文字区別すること忘れてないか？

>>155
ネタにしても、もちっとレベルの高いやつを書こうね！

>>155
>メソッドは当然postで。（XHTMLでは大文字は禁止）
と書いてありますが。

ネタだったか、釣られてしまったよ。

(ﾟдﾟ)ﾊｧ?
なんでそこでXHTMLが出てくるんだ？

XHTML で <form method="post"... ってやっても、
UA は大文字でリクエスト出すと思うけど。

POST /~gikogiko/cgi-bin/bbs.cgi HTTP/1.1

みたいな感じで。

>>155
request-methodの大文字小文字は環境依存な気がする。
lc($ENV{REQUEST_METHOD}) eq "post" とでもするべき。

ていうか、そのページなんか変じゃないか？

> メソッドは当然postで。（XHTMLでは大文字は禁止）

もしかして属性の値も小文字じゃなきゃいけないと思っているのだろうか…。
俺の読み間違い？謎。
その他の説明も質が悪いよ。
そんなページを参考にしてると変な癖がつくから、もっとまともなものを参考にした方がいいよ。

レス遅すぎだね。ｼｮﾎﾞｰﾝ

＞XHTMLでは大文字は禁止。
確かに同意だが、それは要素の話。属性値は関係ない。
そのページのpostが間違ってる。POSTと書くべき。

ネタじゃないです。
いろいろレスが付くと本当にどれが本当なのかわからなくなっちゃいます。
どうかお願いします。
$ENV{'REQUEST_METHOD'} が返す値はpostの時は、
post　ですか？　POST　ですか？
決まっていないですか？
決まっていないとしたら>>162さんのlc(小文字に変換)のやり方をやればいいんですよね？

>>165
Toupper

>>165
/POST/i;

METHOD　にpostなんて無い。

>>168
同意。

>>168-169
（・∀・）ｼﾞｻｸｼﾞｴﾝでした。

>>168
同意。

>>168=>>172
（・∀・）ｼﾞｻｸｼﾞｴﾝでした。

http://haruno.fam.cx/~sawatari/text_perlbbs.html?http://pc.2ch.net/test/read.cgi/php/1025930486/l20

REFERER残し晒し

methodにpostは無いんですか？getはあるんですか？
意味がわからないです。

get なんてのも無い。
GET ならある

つまり大文字、POSTとGETしか無いって事ですね？

if ($ENV{'REQUEST_METHOD'} eq "post"){
read(STDIN, $str, $ENV{'CONTENT_LENGTH'});
}
じゃこれは間違いなんですよね？

間違いです。

if (uc($ENV{'REQUEST_METHOD'}) eq 'POST'){
\tread(STDIN, $str, $ENV{'CONTENT_LENGTH'});
}
一件落着。

個人情報などをCGIを使って、「登録」→「掲載」するときに
テキスト入力をする場所を80個くらい作り、
それらすべてに書き込み＆送信しても不具合とかはないですよね？
不安定になるとか、負荷が過度にかかるとか。
複数の人の登録をまとめて行おうと思うのですが。

言うことナス！

>>179
そら、ふざけた負荷がかかる。
って言うかインターフェース悪すぎ。

>>175
REQUEST_METHODの値は小文字になることもあるって聞いたけど。
だから俺は標準関数のstrcmpは使わないで大文字小文字を区別しないstrcmpを自作して使っている。

>>182
//i

>>183
何それ？(^_^;)

/get/i

>>185
REQUEST_METHODの中の文字を全てtoupperで大文字にしてからstrcmpにかけろということ？
環境変数の値は変えたくないんだけど・・・

お前らCGI語るならPerl位常識の範囲で知っておいてください・・・。

>>186
＞環境変数の値は変えたくないんだけど・・・
違う変数用意すればいいじゃん。
おいおい・・・。

>>187
Perlか・・・・知らないな。

>>188
それだけのために配列を用意するのも面倒。

>>189
じゃあ死ぬ。

参照するだけなのにコピーを取る奴って・・・

>>191
じゃあどうやるのと。
自作strcmpなんて大げさなことするのがベストとは思わない。

>>192
strcmpなんて書いても7行程度だろ。しかも様々な局面で再利用できるし。

strcasecmp とか stricmp を知らないのか？

char buf[10];
int i;

strcpy(buf,getenv("REQUEST_METHOD"));
for(i=0;buf[i];buf[i]=toupper(buf[i])) ;
if(strcmp(buf,"GET")) printf("GET以外\n");
else printf("GET\n");

ここまでするの・・・

>>194
標準関数じゃない。

むしろ、stricmpもstrcasecmpも実装されていない環境を教えてほしい。
なおむしろ、CGIで渡される環境変数REQUEST_METHODが、小文字になる
環境を教えてほしい。
考えられるのはクライアントが"Get"等でアクセスしたのがそのまま通されるか、
HTTPDがCGIで環境変数を渡すときに勝手に改変するか。
メソッドはRFC上はcase-sensitiveなので、クライアントがGetやget等で
リクエストしてもエラーを返すべき。それをしないHTTPDはタコ。
無論、メソッドを勝手に改変するHTTPDもタコ。

そんなHTTPDある？

>むしろ、stricmpもstrcasecmpも実装されていない環境を教えてほしい。
strﾁﾝﾎﾟくらい自分で掻け
>なおむしろ、CGIで渡される環境変数REQUEST_METHODが、小文字になる
意味不明、死ね
>HTTPDがCGIで環境変数を渡すときに勝手に改変するか。
んな訳ないだろ
>リクエストしてもエラーを返すべき。それをしないHTTPDはタコ。
shallだろ、mustじゃねー　　やっぱり死ね
>無論、メソッドを勝手に改変するHTTPDもタコ。
妄想ですか？

shallの解釈位自分でやれ
実際問題、Getを飛ばしてくるアンポンタンなクライアントは
存在する、それだけ。

>>198
＞>なおむしろ、CGIで渡される環境変数REQUEST_METHODが、小文字になる
＞意味不明、死ね
CGI素人なら黙ってな。

＞>HTTPDがCGIで環境変数を渡すときに勝手に改変するか。
＞んな訳ないだろ
あるが？HTTPDが環境変数を設定する以上、無いという方が難しい。

夏休みって嫌い。

えと、>>196で標準関数じゃ無いとあったので、それが使わない原因なのかと
思ったんだけど、ちがうのか。っていうか、自分のプログラムでstricmpな
環境では単純にプリプロで#define strcasecmp stricmpとしている物があるの
で、それで済まない環境があるなら知りたいという意味で聞いたのだけど。

あと、HTTPDに関しても非サポートリストに加えたかったので聞いただけ
なんだけどな。
蛇足ながら、shall じゃ無くて SHOULDね。

夏が来た。夏が来た。

>>199
ほー、じゃあGetとリクエストしてGETになる様なHTTPDとやらを
挙げてもらおうかCGIのプロさんよ

>>202
俺の作ったxllHTTPD。そこ以外はRFC完全準拠だ。

>>203
あっそ、妄想のプロですか

>>202
Get　とリクエストするのは　RFC　に従ってない。

>>205
そこ以外は

>>205
で、その「従ってない」リクエストをした時にどう動くかと聞いている
JAROに訴えるか？

何もやらないんじゃない？
そんなリクエストメソッドはないんだから。

ヲイヲイ
>ないんじゃない？
とは何だCGIのプロさんよ
自分でクライアント書いてGetでその辺のサーバに
リクエストしてみろよ
そんな偏屈サーバに当ったらここに書き込んでくれ

え、っと、、GetをCGIに通すHTTPDを教えてくださいな・・・

ﾐﾝﾅｺﾜｲﾖｳ…

>>210　　ほぼ全てのHTTPDじゃ無い?

yahoo.co.jp に
Get / HTTP1.1
HOST: yahoo.co.jp
した結果

HTTP/1.1 400 Bad Request
Date: Sun, 21 Jul 2002 13:17:35 GMT
Connection: close
Content-Type: text/html

>>212
ヘッダの要素足りてないよ。

>>212
ﾑﾋｮ！　MethodNotImplemented返ってきた
あれえおかしいなあ、Getもいけてた筈なんだけどなあ
もしかして、俺間違えまくりﾁｮｰ-厨房って感じ？
偉そうにしてｺﾞﾐﾝﾅｻｲ　　
今すぐ首括って死にます　（ﾁｮｰ死んでお詫び

すまんかった。

Get / HTTP/1.1
Host: www.yahoo.co.jp


HTTP/1.1 501 Method Not Implemented
Date: Sun, 21 Jul 2002 13:28:12 GMT
Allow: TRACE
Connection: close
Transfer-Encoding: chunked
Content-Type: text/html

まじ？天然だったのかよ。。。もうちょっと弄らせてよ〜ん。
楽しんでたのにぃ。

ちなみに、Netscape-Enterpriseやら、Microsoft-IISにGetで投げると
404が帰ってきます。なぜ404かと問いつめたいですが・・・
この辺のサーバでCGIな所は見つけるの面倒なので探しませんでしたが
たぶん同じでしょう、IISのASPなところも404でした。
んで、GoogleのGWSだけは、200で普通に返してきます。
もしかしたら外部からの特殊クライアントに配慮してるのかも。

なんにしろ、逝ってらっしゃい〜

http://go.iclub.to/ddiooc/
　　　　　
　　　　　i/j/ez/対応です

お役立ちリンク集
必ず役立ちます

　サイト管理者お役立ち集
　　　　1日4000ＨＩＴ以上
↓
http://kado7.ug.to/wowo/
　　　　　　
　　　　　i/j/ez/対応
　　　　
　　　コギャルとＨ出来るサイトはここ
ヌキヌキ部屋へ直行便

　　　　　　　　　↓
　　 http://kado7.ug.to/wowo/-a.htm
　　　　
　　　　　　　i/j/ez/対応

素直に引いたな…

質問です。
teacup掲示板の無料タイプなんですが、これにアクセス解析を別途に
付ける事は可能なんでしょうか？
いや、自分が付けたいわけじゃなくて、訪問先のサイトにそういう事が
出来るんだったら、しょっちゅう見に逝ってるのが知られるとﾊｽﾞｶｼｰなあ
と思ったのですが。

>>219

掲示板のタイトルなんかがhtmlで記述出来るなら可能だろうよ
掲示板自体に解析機能が付いてたっておかしくないし

textareaから渡された文字列の改行コードを<BR>に変換したいのですが
これで合っていますか？

$hoge =~ s/\r\n/\x3cBR\x3e/gm;
$hoge =~ s/\n/\x3cBR\x3e/gm;
$hoge =~ s/\r/\x3cBR\x3e/gm;

一応windowsで、テストしたら出来ました。

$hoge =~ s/\r\n/<br>/g;
$hoge =~ s/\r/<br>/g;
$hoge =~ s/\n/<br>/g;

もう一つ見つけました。ほとんど同じですが。
スマートとかスマートじゃないとかあるんでしょうか。

$hoge =~ s/\n\r|\r|\n/<br>/g;
見た目にはこっちのがスマートだけど>>223のが微妙に速い。
自分にとってメリットの多い方使えば？

>>224
$hoge =~ s/\r\n|\r|\n/<br>/g;

ありがとうごぜいました。

>>220
そうですか、
/bbsで終わっていたアドレスなんですが
場合によっては付けられるんですね、有り難うございました。

掲示板らしきものを自分で作っているのすが、
log.txtにデータを保存しています。
で、log.txtのパーミッションは666です。
よくCGI配布サイトでログファイルは666にしろと書いてあるのでそのまま真似ました。
ファイルの書き込みは成功しました。
ファイルをFTPでダウンロードして確認するとちゃんとデータがあります。
だけど、ブラウザで直接log.txtを見るとまる見えになっていました。
log.txtには当然パスワードとか大切な情報もあるので自分以外の第三者には見られたくありません。
パーミッションがなんかいけないのかと思い、622にしてみました。
するとブラウザでは403エラーが出て見えなくなりました。
ファイルの書き込みテストをしても正常に動作しました。
これでいいんでしょうか。何か間違っているとこがあれば教えてください。

ブラウザからアクセスできない場所に置く。
これ、最低限の常識。

>>228
ファイル名をlog.cgiにする。

えと、あの、パーミッションの設定はどうですか？ダメですか？

>>231
サーバによるけどnobodyから見えなくすればcgi（を実行する権限）からも見えなくなる。

>229
プロバ鯖だとそれができない場合もあるだろ。
そうしたくてもできないとか。

<form action="./aaa.cgi" method="post">

<input type="radio" name="check" value="1"></input>
<input type="radio" name="check" value="2"></input>

<input type="button" name="mode" value=""></input>　　　#削除モードに行くボタンにしたい
<input type="button" name="mode" value=""></input>　　　#修正モードに行くボタンにしたい

</form>
ラジオボタンを選んでもらって実行する対象を選びます。
次に対象を削除するか修正するかのモードを選んで次の画面へ進みます。
下のモードを選ぶ部分のボタンをどうすればいいかわかりません。
<button type="submit" name="mode" value="sakuzyo">削除</button>
<button type="submit" name="mode" value="syuusei">修正</button>

というのを試したんですけど、<button>タグに囲まれた「修正」という値が返ってきてしまいました。
削除ボタンを教えても修正が入っていました。

>>231
622とはまた変わったのにしたな。
読み書きともCGIからなら600にできるように直したら？

SSIからCGIを呼び出すときにデータをつけるとうまくいきません。

たとえば
<!--#exec cmd="./cgi-bin/read.cgi?hoge"-->
だと何もかえってこない（多分CGIが実行されない）

また
<!--#exec cgi="./cgi-bin/read.cgi?hoge"-->
だと[an error occurred while processing this directive]に
なります。

ちなみにCGI単体ではうまく動いています。
もちろんSSIのときは"Content-type: text/html\n\n"をけしてます。

また、データを与えないタイプのCGIは上の方法（cmd=）でうまくいきます。

SSIからCGIにデータをあたえて呼び出すのって無理なんですか？

>>234
返ってくる値は「修正」ではなく「syuusei」でしょ？
nameが同じだから後に書いてあるほうが有効になってるだけ。
別々の名前にすればいい。

>>237
いえ、それが漢字の「修正」が入っているのです。
確かめるとわかると思うのですが、nameを別のにしたら
あとでパラメーター受け取る時modeで読めなくなってしまいますよ。

<input type="submit" name="mode" value="削除">
<input type="submit" name="mode" value="修正">
にすれば
mode="削除"とmode="修正"がはいるよ

buttonはべつに押したとき値が入るってわけでもなかった気がするな。

どうしてもsyuuseiがいいなら知らん。

>>234
<input type="submit" name="del" value="削除">
<input type="submit" name="edit" value="修正">

でdelがdefinedなら削除、editがdefinedなら修正でいいんじゃないの？

>>238
mode一つで両方処理させようとするならnameは同じで
valueを別々に。>>239みたいに。
別ルーチンなら>>240みたいに。

239のやり方で出来ました。
formの中にsubmitが二つあるのに違和感があったのと、
submitのvalueの値がそのままパラメータになるのに気づきませんでした。
ありがとうございました。

>>236
<!--#exec cmd="./cgi-bin/read.cgi　hoge"-->
試してみるなり。

#!/usr/bin/perl
$|=1;
print <<_HEADER_;
HTTP/1.0 200 OK
Server: NPH-Script
Connection: close
Content-Type: text/html

_HEADER_
$count=0;
while(1) {
sleep(1);
$count++;
print("$count<hr>\n");
}

こんなスクリプト書いて実験してるんだけどNN4.x/Mozilla/NN6/Operaでは
予想通りに約1秒ずつカウントしてくれるんだけどIEだと何も出ないんです。
何が悪いのか教えてください。

板違いだったらすみません。
自分の利用しているプロバイダのサーバにＣＧＩを置き、
テスト書き込み等動作確認をしました。
その際のテスト書き込みを消したいと思うのですが、
記事を削除するしかないでしょうか？
削除しても記事に削除されたものを含んだ通し番号がついているので、
テスト書き込みをする前の何も書き込みのない状態に戻したいのですが…。
どこかのサイトでファイルを再度アップロードすればいいというような文章を
読んだ気がしたのでプロバイダにやってもらったのですが、消えませんでした。
私が使うＣＧＩはKENTさんのＣＧＩを改造したものをとあるサイトから
ダウンロードしたもので、もともとのスクリプトをテンプレート対応にするため
複数のファイルに分けています。
現在プロバイダにはそのＣＧＩを動かすための２つのファイルを
アップロードしていて、その２つともを再度アップロードしてもらったのですが、
それではだめなのでしょうか？
質問の書き方が悪かったらすみません。

>>245
バカなんだから自分でできる以上のことはしない。

>>246さん
すみません、確かにバカでした…。
ＣＧＩの根本がまだ判っていないので…言い訳ですけどね。
>>246さんのレスがちょっと悔しかったので（ｗ　それ以上のことがしたくなり、
何とかテスト書き込みをすべて消すことが出来ました（勿論記事削除ではないですよ）。
お世話になりました〜。

>>244
想像だけど、標準出力閉じないと
セッション貼りっぱなしになるんじゃ無いの？
他のブラウザで上手く行くのが凄いと思う

>>248
＞標準出力閉じないと
閉じていいのか？あれ。

俺はさっさとclose(STDOUT);してから重い処理してる。

掲示板を自分で作成しています。

投稿データの削除処理についてなんですけど、データは一個ずつ１行に入っています。
で、削除する対象を判別した後は、data.txtからdata2.txtに１行づつコピーしていって
削除する対象の行になったらその時だけ飛ばして、最後の行まで到達する。
で、data.txtを削除。data2.txtをdata.txtにリネーム。
このやり方しか知らないのですがこれでもいいですか？
他にやり方ありますか？

>>244
IEではNPHスクリプトはサポートしてないはず。
今はどうだか知らんけど多分今でも無理。

>>244
サーバサイドはそれで問題無い、それはクライアントの癖だな
多分IEのバッファが効いてる
>>248
ちょっと違うんじゃ無い？　要は少しずつ転送したいだけだと思う
>>252
意味不明、そんなブラウザは無い

>>251　
それで良い

>>253
すまん、完全に間違ったまま覚えてた。
Pragma: no-cacheでIEでもいけた。

と思ったらno-cacheだけじゃダメか。
２回目からはいいけど初回実行はやっぱりバッファリング
されてる感じ

ｽﾞｶﾞｰﾝ!!

そもそもcache関係ないじゃん。
さっきから連続で醜態晒してるな　＞俺

もういい！寝る！

$hoge = "あいうえお";
$hoge =~ tr/あ-ん/ア-ン/;
print "$hoge";
これでひらがなをカタカナにする事可能ですか？

Jperlじゃなけりゃこうしませう。

$hoge=~ s/あいうえお/アイウエオ/;

あいうえお　の時は大丈夫ですけど。
他のひらがなが入った時はどうするんですか？

>>260
あらかじめひらがなのパターンがわかっていればその分だけ用意すればいい。

環境は？

あらかじめわからないので、ひらがなは全てカタカナへ　というのが欲しいのです。
環境ってwin2000とかの事ですか？
perlでやってます。

http://js-web.cside.com/index.html

ひらがなをカタカナに変換するときはJperlなら
tr/ぁ-ん/ァ-ン/;
だから、これのＳＪＩＳコードをサブスティチュートで置換すればいいと思う。

>>264
その方法を聞いてるんだがね

>>258
あいうえお　→　ΒΔΖΘΚ
こうなった（Linux)

やってみたけどチョット後半も文字がズレるね。

s/\x82([\x9f-\xf1])/"\x83".chr(ord($1)-95)/ge;

不可能なんでしょうか。

Jcode.pm使ってください。

use Jcode;
my $s = Jcode->new("てきとー")->tr('あ-ん' => 'ア-ン')->sjis();

なんかJcode.pmが無いみたいなエラーが出たんですけど。

入れてる？

いっとく？

どこに？

$hoge = "かきくけこ";
use Jcode.pm;
my $hoge = Jcode->new("てきとー")->tr('あ-ん' => 'ア-ン')->sjis();
print "$hoge";
----------------------
Internal Server Error

Jcode.pmというのをダウンロードしてcgiと同じディレクトリに置きましたが・・・。

>>274
病院いっとく？

なんでだろなんでだろな〜〜〜んでだろ〜〜〜♪
jcodeをuseしないでtr〜〜♪

何がだめか教えてください。

@INC

エラーもREADMEも読まないならplにしとき
それでも駄目かも知れないけど

>>267はやっとうまく書けたよ。

どうできましたか？御願いします教えて下さい。

CGIに適したPerl以外の言語は何？Ruby?

C

>>283
まじですか？

>>284
C++とかJavaとかもいいな。

PHPはなんか中途半端。
構文がしっかりしてる文ちょっとがっかり。

Apacheを使いたいのです。http://127.0.0.1/をブラウザで開いて
「インストールがこの計算機で無事に終了したことを意味します。」は見れました。
また、ルートフォルダにあるhtmlファイルも開くことは出来ました。

が、CGIファイルを起動すると
Internal Server Errorが表示され、最後の行には　Apache/1.3.14 Server at localhost Port 80と表示されます。
何が原因なんでしょか？(win meです）

>286
ActivePerlはインストールした？

>286
ttp://tohoho.wakusei.ne.jp/wwwxx048.htm
ここ見て勉強しとけ。

>>287
しました。
>>288
そこに書いている設定は一通りしてみました。
が、だめでした。一度アンインストしてやり直してみても同じでした。

>289
じゃあ、CGIのソースを確認しろ。
HellowWorld!試せ。

すみません。CGI書けないんですがどうすればいいんですか？


ってオチな気がする・・・。

>>291
conf/httpd.confの位置ってわかる？
それ設定したりしないと無理。

言語はPerlか。
Perlのパスが間違っているんじゃねーの？

>>293
ちゃんと/usr/local/bin/perlにしています。

>>294
本当にそこにインストールしたんだろうな？
ところで、Apache1.3.14は古すぎ

最低限必要なヘッダーを出力していないとか。
Content-Typeとかね。

>>294
WinMEでApacheだったら
C:\Perlのパス\perl
じゃないかな。

#!C:/Perl/bin/perl

#!C:/Perl/bin/perl

# ライブラリ
require 'cgi-lib.pl';

# デコードサブルーチン
&ReadParse(*form);

# ライブラリ
require 'jcode.pl';

# 文字コード変換サブルーチン
&jcode'convert(*form,'sjis');

# 連想配列から値だけを取り出し、区切りのハイフンを追加
# HTMLタグと衝突する記号などを変換
$name = $form{'name'};

# -----ここから出力 -----
print "Content-type:text/html\n\n";

print << "END_OF_HTML";

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
$name
<BODY>
</BODY>
</HTML>

END_OF_HTML

上のエラー出るんだけどどこか間違ってる？

Can't find string terminator "END_OF_HTML" anywhere before EOF at pl.txt line 22

#!C:/Perl/bin/perl

# ライブラリ
require 'cgi-lib.pl';

# デコードサブルーチン
&ReadParse(*form);

# ライブラリ
require 'jcode.pl';

# 文字コード変換サブルーチン
&jcode'convert(*form,'sjis');

# 連想配列から値だけを取り出し、区切りのハイフンを追加
# HTMLタグと衝突する記号などを変換
$name = $form{'name'};

# -----ここから出力 -----
print "Content-type:text/html\n\n";

print <<END;

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>

<BODY>
$name
</BODY>
</HTML>

END
[EOF]

またまたエラー

Useless use of single ref constructor in void context at line 36.

syntax OK

cgi-lib.plとjcode.plはちゃんとありますか

>>301
きみも病院いっとく？

お前等↓ココ逝っとけ！
http://love.2ch.net/test/r.i/pure/1027606635
スレタイに藁タ！

>>305
全然藁えなかったけど、どこで藁たの？

スレ違いorガイシュツだったらスミマセン

こんど携帯対応の掲示板を作ることになったのですが、
このタイプの掲示板ってＰＣか携帯かで処理を分けるのですよね？？
それはどのように判別するのですか？
また、携帯対応掲示板を作る上での注意点などありますか？

sageちゃったのでageます・・・スミマセン・・・

>>307
$ENV{"HTTP_USER_AGENT"}
ただし、どんな場合でもすでにあるものを見た方がはやい。
「携帯 対応 掲示板 CGI」で検索すれ。

>>307
CGIぽん行ってみ

>>309-310
素早いレスありがとうございました！
”携帯対応無料ＢＢＳ！”なんてのはいっぱい見つかったけど、
肝心の中身がみれないしなぁ・・・と思っていたら、
検索キーワードに”ＣＧＩ”を付ければいいわけですよね
ああ、漏れって逝ってよしです・・・
早速またググってきます。ありがとうございました

print "Location: http://xxx.yyy.zzz/\n"; はどこに書けばいいの？
print "Content-type: text/html\n\n";の変わりに書くとページを開いた瞬間に移動し、
cgiの最後に記述すると、移動しないです。
掲示板なんですが、別ページでフォーム記入し、送信すると書き込みのページを表示したいのです。

>>312
ヘッダーについて少し勉強して

>>312
複数のヘッダーは同時に使えない。
そういう動作は不可能。

板違いなら済みません。
レンタル鯖で動いていたCGIを自前の鯖で動かすべく赤帽で鯖組んでみました。
すると405エラーが出てきてどこをどうすればいいやら途方に暮れてます。
The requested method POST is not allowed for the URL /form/form2mail.cgi.
っていわれてるんですけど、どこを見ればいいでしょうか？Apache/1.3.22 です。
教えて君ですまそ

>>315
405エラーというのは、POSTでのリクエスト方法が許可されていないということ。
httpd.confの設定を変えれば？

http://www.e-chene.com/ace/333333/

CGIでmp3データを出力してブラウザでダウンロードさせる処理を書いたんですが、IEだと
ダウンロードのダイアログが開かずに再生をはじめてしまいます。
Contents-Typeはapplication/octet-streamにしています
出力するファイルの拡張子を.binなどにすると、ちゃんとダウンロードのダイアログが開きます。
サーバ側の設定だけで拡張子をmp3のままダウンロードをさせたいんですが、どうすればいいのでしょうか。

>>318
IEは拡張子を優先するからサーバー側の設定では無理。

>>319
いや、拡張子すら無視するぞ。

IEの挙動。
MIME/拡張子から判断ではなく、ファイルの先頭を見て自分で勝手に判断する。

GIF89a　が最初にかかれているテキスト文ですら、GIFと誤認する。

>>319-321
レスありがとうございます。
やはりダメですか‥「右クリック>ファイルに保存」をしてもらうしかないんですね。

>>316

httpd.confを見直してAddHandler cgi-script .cgi pl　のコメントを解除したら動くよう
になりました。ありがとうございました。

fflogという解析ををずっと使っているのですが、
このCGIにパスワードをつけたいと思っています。
どうすればいいでしょうか？
スレ違いでしたらすみません。

ttp://www.gem.hi-ho.ne.jp/fortunefield/cgi/fflog.html

>324
どうぞ。

ttp://pc.2ch.net/test/read.cgi/php/1012839651/
スクリプト改造工房 Part4

>325さん
誘導ありがとうございます。
行ってみます。

質問！
exit はプロセスを終了する関数とのことですが、web用のcgiでしか
プログラム作成経験していない僕には、いまいち感覚的に、何が
どう終了するのかわかりません。

web用のcgi専門なので、今ははだいたい、ブラウザに画面を出力する前に
いろいろ処理して、表示が終わったところで exit という風にしか使っていません。

だからほとんどHTMLフッター書き出しようのサブルーチンの最後ぐらいにしか
僕のプログラムにはexitってでてこないんですが。別に問題ない？

何がどう、といわれても…。exit()を呼び出した時点でプログラムが終了する、としか。

例えばこんな感じで。
代わりにdieで済ませることも多いけどね。
#!perl
use Getopt::Std;
our $opt_h;
getopts 'h';
if($opt_h)
{
print <<HELP;
$0 [-h]
-h ヘルプを印字して終了する

... その他、簡単な説明
HELP
exit;
}
# いろいろと処理…
__END__
ちなみに、使用しなくても全然問題ないので、無理して使う必要は無いです。

お絵かきBBSとして、「お絵かきしぃ掲示板 PaintBBS」を設置してみたのですが、
ttp://www.gt.sakura.ne.jp/~ocosama/garakuta/soft/paintbbs/pbbs.html
どうも文字サイズが小さくならないんです。
http://maebari.net/oekei/bbsnote.cgi
この程度まで全ての文字を小さくしたいのですが、
どうすればできるんでしょうか？
CGIの設定ページには文字サイズの設定がないし、試しに「oekaki.cgi」の中の
FONT SIZEをすべて1にしてみましたが、全く変化がありませんでした。

どなたか教えてください。お願いします。

>>329
あ、「Web制作板」の
☆ Webサイト制作初心者用スレッドver28 ☆
http://pc3.2ch.net/test/read.cgi/hp/1027428903/
からの誘導です。

スクリプト改造工房 Part4
http://pc.2ch.net/test/read.cgi/php/1012839651/
ってのがありました。
焦りすぎてこっちで質問してしまいましたが、あっちで質問してきます。
すみませんでした。

SSIがどうしてもローカルでテストできません。
Win2000proのIIS5.0を使ってるんですが、

SSIを使った.shtmlファイルを出そうとすると
「CMD のオプションは #EXEC の呼び出しに対して使用可能になっていません」
と出てしまいます。

IISの設定は、
.shtmlと.shtmと.stmに
「C:\WINNT\System32\inetsrv\ssinc.dll」
を「GET,POST」に制限した動詞で設定してあります（初期設定のままです）

どうすればいいでしょうか？

スレ違いだと思いますが……。

＞１
cgiですか？

PHP4.0.6でセッションを使っています。
セッションは立ち上げるブラウザのウインドウごとに違うと
思っていたのですが、同一の場合がでてしまいます。

再現しないの困っているのですが、どなたか原因を知りませんか？

IE５．５でファイルメニューから新規作成->ウインドウとやると
同じセッションになるようなのですが、今は普通にデスクトップの
IEのアイコンをたたいて立ち上げているのですが。

例えば、投稿者項目と本文項目のデータがあるとして、
そのデータテキストから検索をしたいとします。
1,太郎,はじめまして。
2,花子,いい天気ですね。
3,名無し,逝ってよし
4,nobody,ｷﾀ━━━━━━(･∀･)━━━━━━!!!!
････

こういうのがあって、で検索は名前と内容が条件です.
名前が○○で、本文に○○がある時、その投稿を抜き出します。
条件は一つでもいいです。
if(($name eq "$input_name") and ($content =~ /$input_content/)){
　テキストファイルを開いて、printする。
}
$input_***は利用者が入力した文字列です。
で、どっちか片方でもいいので変数が空になる時もあります。
本文に○○があるのを抜き出せと命令が来たら、
名前が空に一致するわけないので条件に合うものは当然ゼロとなります。
この例だと条件が二つなので地道に３通り条件をif文で書けばいいかもしれないけど条件が多くなった時は大変です。
どうやったらうまく書けますか？
入力された変数が空かどうかを見て、if文を変数にどんどんつなげて作っていく方法が
あると思うんですけど、それってSQL文とかでDBに渡すときしか意味ないですよね。
$hoge = "($a eq $aa)";
if $hoge {

}
こうやったら出来なかったので。（当たり前だって怒られると思いますけど）

CGI質問スレでーす。

(ﾟдﾟ)ｼﾒｼﾞ

ホームページ上のボタンクリックで
ファイル（圧縮ファイル）をダウンロードできるようにしたいのですが
どうすればいいのでしょうか？
ぜひ教えてください

CGIっつーより、HTMLじゃないか？

>>340
あ、これってHTMLでできるんですか？
すみませんまったくの素人なので・・・
もっぺん出直してきます

http://page.freett.com/pacom/index.htm

WinNT4.0でIIS4です。ActivePerl561を仕込み、仮想ディレクトリにindex.htmlとtest.cgiを仕込み、
ダイヤルアップ環境からアクセスしたところ、index.htmlは表示されるのですが、そこにFORM action="./test.cgi"で仕込んだ
cgiを実行しようとすると、ユーザー名とパスワードを入力するダイアログが出て困っております。
「ディレクトリセキュリティ」では「匿名アクセスを許可する」にチェックを入れております。usr/binもエイリアス切ってます。
どこが問題か、訳がわからなくなってしまいました。
どなたかお助けください。よろしくお願いいたします。

&hoge;
my $hoge;

sub hoge {
$hoge=2;
}
↑こんなmyの使い方をしているスクリプトの作者がいたんですが
これって意味があのでしょうか？

>>344
それは混乱を招きやすいね。
でもまぁ理解した上で使ってるなら敢えて文句を言おうとは思わないけど。

サーバーを借りたのですが、
http://www.tekipaki.jp/
今OCNのPageOnサーバーを使っていて、
このサーバーはCGI用に借りました。
カウンタを表示させようとしているのですが、
違うサーバーにCGI本体をおいて、ページ上で使うにはどうすればいいんでしょうか？
違うサーバーのほうにページを移動すれば一番いいのですが、
かなり読み込みが遅いので、できれば今のままのサーバーを使いたいんです。
どなたか教えてください。お願いします。

掲示板スクリプトを作っている者ですが，
新しいバージョンでは変数の構成が違うんです。
そこで，HTMLフォームに入力した旧バージョンの変数の中身を，
新しいバージョン用に書き換えるといったものを作り始めたところ
壁にぶつかりました。お願いいたします。

まずは変換前の変数を入力するための，sub form1を実行します。
（入力する項目：@hairetu1　@hairetu2　$scalar1）

次にform1で入力された配列変数を分割したいので，
その範囲を入力するフォームと配列の中身の一覧を出します。（sub form2）
（入力する項目：$scalar2　$scalar3）
この時点では@hairetu1 @hairetu2 $scalar1にはform1で入力された内容が入っている。

最後にsub form3，変換された変数の中身を表示する…という予定だったのですが，
ここに来るとform1で入力した@hairetu1 @hairetu2 $scalar1が空っぽになってしまってます。
form2で入力した$scalar2 $scalar3にはちゃんと中身が入っています。

どうして@hairetu1 @hairetu2 $scalar1が空になってしまったのかがわかりません。
手持ちの解説書を読んでも，特に指定しない限りグローバル扱いされるとありますし。

どうかお願いします。

>>347
具体的なソースを見ないとわからんよ。

長くて申し訳ないですがこちらです

# HTML出力
print "Content-type: text/html\n\n";
print <<"EOM";
<html><head><META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache"><body>
EOM
if ($mode eq 'form2') { &form2; }
if ($mode eq 'form3') { &form3; }
if ($hairetu1[0] eq '') { &form1; }
print "</body></html>\n";

#フォームその１
sub form1{
print "<form action=\"$script\" method=\"$method\">\n";
print "<input type=hidden name=mode value=\"form2\">\n";
print "<p>配列その１　例：）'1','2','3'";
print "<input type=\"text\" name=\"hairetu1\" maxlength=\"100000\">\n";

print "<p>配列その２　例：）'1','2','3'";
print "<input type=\"text\" name=\"hairetu2\" maxlength=\"100000\">\n";

print "<p>\スカラーその１";
print "<input type=\"text\" name=\"scalar1\">\n";

print "<input type=\"submit\" value=\"次へ\">\n";
print "</tr>\n</table></form>\n";

}

# フォームその２
sub form2{
print "<form action=\"$script\" method=\"$method\">\n";
print "<input type=hidden name=mode value=\"form3\">\n";
print "<div align=\"center\">\n";
print "スカラーその２<input type=\"text\" name=\"scalar2\"><br>\n";
print "スカラーその３<input type=\"text\" name=\"scalar3\"><br>\n";
print "<input type=\"submit\" value=\"表\示\">\n";
print "</table></form>\n";

$FORM{'hairetu1'} =~ s/'//g;
$FORM{'hairetu2'} =~ s/'//g;

@hairetu1 = split(/,/,$FORM{'hairetu1'});
@hairetu2 = split(/,/,$FORM{'hairetu2'});
$scalar1 = $FORM{'scalar1'};
}

# フォームその３
sub form3 {
$scalar2 = $FORM{'scalar2'};
$scalar3 = $FORM{'scalar3'};
print <<"EOM";
<table border align="center">
<tr><th>\@hairetu1</th><td>@hairetu1</td></tr><tr><th>\@hairetu2</th><td>@hairetu2</td></tr>
<tr><th>\$scalar1</th><td>$scalar1</td></tr><tr><th>\$scalar2</th><td>$scalar2</rd></tr>
<tr><th>\$scalar3</th><td>$scalar3</td></tr></table>
EOM
print "<br><br><br>";
}

http://kari.to/upload/source/2445.txt

フォームその2.のとこでscalar2とscalar3しか(あとmodeもか)submitしてないのだから
フォームその3でscalar2 scalar3しか表示されないのはあたりまえかと

&form2実行後、出力HTMLはmode=form3になり、[表示]ボタン押下後
hairetu1もhairetu2も渡されないから渡されるとしたらscalar2かscalar3
だけだろう。

また、&form1実行後画面においてhairetu1に入力するかどうかによって次の
フォームが１つや２つに変動する可能性もある。

>352-353
ありがとうございます。

でもフォームその２のところで，
@hairetu1 = split(/,/,$FORM{'hairetu1'});
@hairetu2 = split(/,/,$FORM{'hairetu2'});
$scalar1 = $FORM{'scalar1'};
と，フォームの内容を変数に格納しておいたんですが，
どうしてこの中身が消えてしまうのでしょう？

その代入処理をおこなうのは&form2サブルーチンを実行するときだけで
mode=form2のときだけです。

if ($mode eq 'form2') { &form2; }

ほんと初歩的な質問に付き合ってくれてありがとうございます。

ええと，一度代入を行えばその中身はずっと保持されるわけじゃないんですか？

１度のCGI実行で行なった代入は実行中だけ保持されます。

なるほど。
すると&form3にデータを持ち越すには，
引数をつけて呼び出してやれば良い訳ですかね？

前画面から入力されたデータを次画面でも保持したいなら
取得した値を出力HTMLフォーム内にhiddenタグで埋め込んで出力する。

ああ，そうか，そのためのhiddenでした。
ごく初歩な質問に親切なご回答ありがとうございました。
精進します。

スクリプトの最後にある　__END__　これはなんですか？
書かなきゃいけないのですか？

>>361
別にいらないよ。
スクリプトがそこで終わることを明示してるだけ。
そのトークンから先はパースしないから、Perlとは関係ないものを書ける。
大抵はドキュメントを書いたり、スクリプト内に大量のデータを埋め込んだりするときに使うね。

その行がこのファイルの最後であることを示すもの。
書かなければいけないということは無い。

すいません
cgi-binはしーじーあいびんじゃなくて
しーじーあいばいんだと聞いたのですが本当ですか？
なんか、ばいなりの”ばい”らしいのですが。
おねがいします

dustbin だよ

すいません。
内容的にWEB制作版なんですがちょっとこっちのが安心なんで質問させてください。
お世話になっています。

ちょっとはまり気味なのでお知恵をいただきたく思ってます。
早速ですが。
イメージ的には以下のような感じです。
チェックボックスを選択していない場合エラーを返します。

<script language="Javascript">
<!--
function chkNull() {
var cnt = 0;
for(i=0; i <= document.forms[0].stock.length-1;i++){

if (document.forms[0].stock[i].checked == true){

cnt=cnt+1 ;

}
}

if (cnt < 1){

alert('少なくとも1つは選択してください');
return false;
}
return true;
}
//-->
</script>。

<form name="hoge" action="hoge" method="hoge" onclick="return chkNull()">
//このフォームは動的な部分。SQLのレコード数で0回以上ループしている。
<input type ="checkbox"
name="stock" value="#SQL.RESULT#">hoge
</form>


これで動かすとレコードが2つ以上の場合は、予定通り動くのですが、レコードが1つの場合、チェックボックスをONにしているにもかかわらず、チェックに引っかかってしまいます。

しらべてみると、レコードが1つの場合
document.forms[0].stock.length
がイメージでは1になるはずが配列として評価されていないみたいです。UNDEFINEDを返しています。

じゃ場スクリプトの勉強が足りないためちょっと嵌まっています。
ほかの方法も含めアドバイスがあればおねがいします

JavaScript質問スレはWeb製作板に在ったと思うが？

すいませんでした

2ちゃんのリンク集を作ってます。普通にリンクを張ってると、スレッドはいつ
か1000まで行ってHTML化されて過去ログとなります。
つまり、ある段階まではそのリンクをクリックして普通にスレッドが表示されま
す。
次の段階では、「HTML化を待つしかない！」という表示になります。
最終段階では「隊長！過去ログ倉庫で発見しました！」という表示になって、
そこのリンクをクリックすると出てきます。
この最終段階まで行ったときに、訪問者にいちいち画面の下のほうにあるリンク
を探させてクリックさせるのがイヤなので、HTML化が済んだスレッドは自動的に
リンクを過去ログ倉庫の方に変更したいのです。
どうすればいいですか。
ちなみに現状は、1週間ごとに手動でリンクをクリックしてHTML化されていれば
手動でリンクを変更しています。
HTML化されているスレッドであれば、「隊長！過去ログ倉庫で○○を発見しまし
た！」という文字列があるので、その文字列があるかどうかを検索し、もしあれ
ばそのURLをコピーして自動的にリンクをアップデートする、というロジックで
いいのでしょうか。
誰かがスレに「隊長！過去ログ倉庫で○○を発見しました！」って書いたらどう
すればいいでしょうか。

>>370
殆ど理解出来ないけど
「隊長！過去ログ倉庫で発見しました！」
とスレッド内の書き込みは違うセッションでしょ？

/隊長！過去ログ倉庫で発見しました！/　（HTML確認）
　　↓
Location　または　meta　(クリック)
　　↓
スレッド内に　
隊長！過去ログ倉庫で発見しました！　(要求達成)

　
初心者で説明下手ですが申し訳ありません。
KENTの「SUN BOARD」を設置しようとしたのですが、どうしてもうまく表示できません。
http://www.kent-web.com/bbs/sunbbs.html
もしかして「$htm_dir」を「/public_html」にしたのが間違いなのかと思ったりしたのですが、正直わかりません。
説明書き通りにダウンロードしてプログラムの修正もして「lockフォルダ」も作ったのですがうまく表示されません。

大変困っている状態が１週間も続いておりますが、どなたか迷惑でなければ親切に詳細に教えていただけないでしょうか。
本当によろしくお願いいたします。

チェックモードの表示

./sunbbs.log のパス：OK
./sunbbs.log のパーミッション：OK
./public_htmlindex.html のパス：NG
./public_htmlindex.html のパーミッション：NG
./public_htmlindex2.html のパス：NG
./public_htmlindex2.html のパーミッション：NG
ロック形式：symlink
ロックディレクトリ：./lock
ロックディレクトリのパス：OK
ロックディレクトリのパーミッション：OK
過去ログ：設定あり
NOファイルパス：OK
NOファイルパーミッション：OK
過去ログディレクトリのパス：NG → ./past/
　
　

kentwebで聞け。

>>372
http://www.kent-web.com/support/ 逝け。

>>373-374　KENTで聞いてもほとんど答えがないので・・お願いします。

すいません。
CGI設置してみてパスもPerlもパーミッションもあってるのですが
なぜかエラーがでてしまいます・・・
なにか他に原因はあるのですか?

>>375
つまりマルチポストと。

>>376
あるんだろうね。

エラーメッセージは何が出たの？
転送モードは？
CGIの使える鯖？
SSIは使っている？使える鯖？
sendmailは使っている？使える鯖？
外部参照禁止鯖とか？
サーバの設定でhtml、CSS、画像がCGIだけ別鯖になっていない？
何処のスクリプト？
あなたが組んだの？
ローカルでは動いた？

つーか、ソース晒せｺﾗｧ！

メッセージは403 Error - Forbiddenです。
パスはあってるはずなんですが・・・
転送モードはアスキーモードです。
CGIは使えるはず!
SSIは・・・わかりません。
そのあとは・・・まったくわかりません・・・
すみません初心者な者で・・・
いろいろなところのでためしてみました。
KENT.WEBとかエイプボードとかタッキーさんのところのとかやってみました。

ソース?どうしたらいいのですか??

>>372
＞もしかして「$htm_dir」を「/public_html」にしたのが間違いなのかと思ったりした

普通はありえないパスだろ、まぁサーバ調べないと断定はできないが・・・

>>379
勉学が足りませんな。
ソースといえば、そのCGIの配布元等へのリンクでいいのです。

後は、貴方の使ってるサーバー環境を書いておくと。

>>381
ごめんなさい。

サーバー環境とかよくわからないのですが・・・
リンクとは??
ほんとにごめんなさい〜。

>382
そこまで知識がないなら、自分で設置しない方がいいと思う。
トラブル起こして他利用者に迷惑かけるかもしれないし。
BBS程度なら、レンタルで探した方がいいぞ。
それで、レンタルしてる間にもっと初歩から勉強しろ。

あい。
お勉強しておきます。

＞もしかして「$htm_dir」を「/public_html」にしたのが間違いなのかと思ったりしたのですが、正直わかりません。
パブリックはルートになるだろうから、cgiに指定するような場合は、書いちゃだめだろ。
あと、パーミションでＮＧってでてるのに、いいの？

>>383
素敵なアフォの相手をご苦労様でした（ﾜﾗ

>>384
チミのＨＰを晒してみなさい。ほれ、ほれ！！

2chでのトリップって#の後ろの文字列をどのように演算して生成するのですか？

crypt

こんばんは。
配布サイトからDLしたCGIを
自鯖にウプして日記をつけてるのですが、
解析に引っかからないかとヒヤヒヤしています。
掲示板も…。
ロボットよけタグを埋めこみたいのですが、
できるものなのでしょうか？

ここのサイトのを使ってます。
ttp://www.t-okada.com/cgi/

>389
ttp://pc.2ch.net/test/read.cgi/php/1028193595/
【 スクリプト改造工房 PART 5 】

>>379
>メッセージは403 Error - Forbiddenです。
アクセス権が無いっと・・・
パーミッションの変更してみ？

1つの form タグのなかに 2つの submit ボタンを作って
cgi の中でどっちのボタンが押されたのか判断するには
どうしたらよい？

submitのvalue変えれば良いんじゃ無いの?
ダメなん

？？？
<input type="submit" name="button1" value="ボタン1">
<input type="submit" name="button2" value="ボタン2">

として、

if( $form{ button1 } eq 'ボタン1' ) { ... }
ってこと？

>>394
name は同じでいいんじゃない？

CでいうとこのfscanfとかってCGIだとどういう関数なの？

>>396
CGIの関数って意味わかんないんだけど、CGIだろうとCでいうfscanfはfscanf
じゃないの？

書き方が悪かったかも。
fscanfと同様の動作をする関数ってCGIだとなんていうの？って意味だったんだけど。
CGIでもfscanf(FILE *stream, const char *format, ...)とかって使うのかな？

>>396
君はCGIを誤解している可能性がある。
そのせいで397と話がかみあってない。

Perl に scanf があるかってことか？

>>400
すんません、そういうことです。
>>399の言う通り勘違いでした。言われてやっと気づいた。
スレ違いっぽいんでこれにて失礼

http://ex.2ch.net/test/read.cgi/nanmin/1027669072/134
突然恐れ入ります。
134でリンクされている URLの意味がわかる方いらっしゃいます？

>>401
もう遅いかな。
Perl本のPOSIXモジュールの項より抜粋。

scanf - C固有のものである。代わりに<>と正規表現を使うこと。

だそうだ。

s/scanf/fscanf/

>>402　さっさと寝ろ糞ヴァヴァアが　　（＾∀＾）

みんな CGI のメッセージは Shift_JIS で書いてるの？

>>406
CGIのメッセージ？プログラムのこと？
Linux上で作っているから自然とEUC-JPになる。

漏れは窓使いだけど、EUC-JP。

2ch の CGI プログラムの表示って Shift_JIS でしょ。
CGI を EUC-JP で書くとプログラム内に埋め込まれた
メッセージも EUC-JP になるわけで、そうすると受け
取ったデータの表示とかも EUC-JP で扱わなきゃだめなん？

>>409
当たり前。
嫌ならコンパイル前にnkfにでも通せ。

ん？受け取ったメッセージってCGIのプログラムがってこと？

Perl だけど。
EUC-JP だと AA とかチルダとかエンマークとかどうなっち
ゃうのかなって思ったけど問題ないみたいだからいいや。
CGI プログラムも EUC-JP で、フォームから受け取った
データも jcode.pl の convert で euc に直して扱えば
いいですよね。

>>412
jcode.plだとUTF-8などが扱えないから、Perl5なら、Jcode.pmを勧める。

>>394 だけど、よく分からない。
<input type="submit" name="button" value="ボタン1">
<input type="submit" name="button" value="ボタン2">

if( $form{ button } eq 'ボタン1' ) { ... }
ってこと？

うん
バカ？

>>414
お前は自分で試す、またはHTMLの仕様を読むということをしないのか？

>>416
なんで？？

>>417

http://web.archive.org/web/20010123233000/http://www2.plala.or.jp/Nieztche/mammy/

394 で聞いて、414 で試してうまくいかないから
きいてんだけど。$form{ button } が空だよ。

>>419
滑稽な人ですね。

>420 ハァ？

ここは酷いドッペルゲンガーですね

value に日本語使うのやめたらでけた。サンクス。
あと、417 は僕じゃないですよ。

別にvalueに日本語使っても平気だよ？

意味も無く使うのはお勧めしないがな。

valueに日本語を使うのはごく普通のことだと思うけど。
nameには使わないけどね。

phpとerubyってどっちが楽に使えますか？

>>427







eruby

フォームの内容を確認してから実際に登録するような
CGI では、

1.フォームに入力
↓
2.確認ボタンを押す
↓
3.HTML で入力データが表示される
↓
4.確認して登録ボタンを押す
↓
5.実際に登録

というような手順を踏むと思うのですが、
4.で登録ボタンを押して送信される入力データは
どこに確保あるのでしょうか？

hiddenで渡せば(･∀･)ｲｲ!!

あるいはセッション使うか。

>430-431
レスありがとうございます。
やっぱり hidden ですか。hidden はデータが大きかったり
複数行にわたるデータの場合に html に埋め込むのはあまり
エレガントではない気がするんですが。

セッションは使ったこと無いのでよく分からんです。

cgiをftpでupしてブラウザでアクセスするとInternal Server Errorと出ます。
さっきまでは大丈夫でした。
ローカルではエラーが出てないです。
サーバーのログを見るとテキストファイルがビジーです。と出ます。なにこれ？

>>433
サーバを見てみないとなんとも言えないなぁ。
ホスト名とアカウントは？

アスキーモードでうｐしてるよな？

ごめんなさい、なんだから直りました。
短時間に何回もアップロードやりまくってたらエラーが出たんでサーバーが疲れてたのかもしれません。

んなわけねーだろ。

warata

cgiの中でxmlファイルを生成して、（xslは当然もとから用意しておいて）
xmlをhtmlに変換する事はできますか？

xmlとxslだけではIEでしか表示できないので普通に手作業で、
msxsl.exeを使ってhtmlへ変換していましたが
今回はcgiでxmlを生成してそこからhtmlへ変換することになったのです。
なのでmsxsl.exeの役割をcgiの中でも出来るのかどうかというわけなのです。

つまりxslt機能を搭載したサーバーはあるんざんしょか。
という話です。

gzipってなんでしょうか？

GNU ZIP のこと。
HTTP圧縮の際にも利用される。

どうもありがとう♪

ＩＥで、キャッシュを無効にするにはどうしたらいいでしょう。
cgiからの出力を、ブラウザの戻るボタン押下時に意図的にリ
ロードさせたいだけなんですが。。。

<%
Response.AddHeader "Expires", "0"
If Request.ServerVariables("SERVER_PROTOCOL") = "HTTP/1.0" Then
Response.AddHeader "Pragma","no-cache"
Response.CacheControl = "no-cache"
Else
Response.CacheControl = "no-cache"
End If
%>
とか
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Expires" content="-1">
とか
試したんですが無理でした。

誰かよろしくお願いしますっ！

>444
ttp://tohoho.wakusei.ne.jp/wwwxx008.htm

CGI 利用可能なレンタルスペース(鯖？)
ではだいたい Jcode.pm は使えるのでしょうか？

>>446
サーバによる。面倒だから俺は自分で置いてる。
ローカルとリモートで参照パス変えるのだるいし。

<meta> タグで漢字コード euc-jp 指定して、
CGI の出力も EUC-JP にしてるのに Mozilla
で文字化けするんですけど、どうにかなりませんか？

>>448
ブラウザのフォントを日本語（ＥＵＣ）にする。

AutoDetect して欲しいんです。

>>448
ホントに出力がEUCになってる？
Mozillaで文字コード変更する前は何が文字コードとして選ばれてる状態になってる？

ISO-8859-1 です。

>>448
HTTPヘッダとHTMLヘッダ、両方を正確に出力してるなら
(今の書き込みからは、上手く行かない以上の事が何も分からない)
それは古いブラウザ特有の誤認識
昔はYAHOOなんかでも色々工夫がしてあった

http://www.google.com/search?num=100&hl=ja&ie=UTF-8&oe=utf-8&q=%E3%83%96%E3%83%A9%E3%82%A6%E3%82%B6+%E3%82%A8%E3%83%B3%E3%82%B3%E3%83%BC%E3%83%89+%E3%81%8A%E3%81%BE%E3%81%98%E3%81%AA%E3%81%84&btnG=Google+%E6%A4%9C%E7%B4%A2

>453
サンクス

1いますか？

やっぱりPerlで書くべきですか？

何の話だよ。

SSIって2重に使えるの？
2重という言い方で通じなかったら、入れ子で使えるの？
a.htmlに、<!-- SSI命令なんちゃら-->ABCDEFG
と書いておいて、b.htmlに<!--a.htmlをここに呼び出すSSI命令-->
と書いて、OK？

いま自分で試して見たらできました。
2重でも3重でもできそう。
これを駆使すればいろいろおもしろいことができそう。
あんなことやらこんなことやら、、

それくらいなら簡単に試せるだろうに。

１さ〜ん

すみませんが質問です
http://hp.bird.to/info/countget.htmlのCGIで
連続でカウンタが回されないようになっているようですが
これはどのような仕組みで回らないようになっているんでしょうかねぇ？

自分で色々試した結果
cookieではないようです

ってことは相手のcgi側でアクセスログを取っているってことですよねぇ？
これを回避してカウンタを回すにはどうすればよろしいのでしょうか？
串刺してアクセスすれば回せますよねぇ？

前の数回のIPでも記憶しておいて、それと照合して合ったらカウントしない。

なんで変なの一杯来てるの？

>>464
自己紹介せんでええ。

>>463
ﾚｽありがとうございました
ってことはIP変えれば(串通せば)カウンタを回す事が出来るんですね？

生→串→生→串→、、、とローテーション組めばどんどん回る

ははは

2ちゃんのリンク集を作っているのですが、ライブなスレッドと
過去ログに行ってHTML化されたスレッドはどのように判別すれば
いいですか。ライブなスレッドは板が引越ししたら
URLを変えないといけないが、すでにHTML化されたスレッド
だったらURLを変えてしまうと見れなくなる。だからそのスレッドが
ライブなのか、過去ログに行ってHTML化されているのか判別して、
ライブだったら板の移転に合わせてURLを変更し、HTML化されて
いればURLをいじらずにそのままにするようにしなければならない。
その判別はどうやったらいいのか。

自分が手でやってる事をコードに書くだけ

>>467
そうですよね
でも漏れの知っている串(http://www8.big.or.jp/~000/CyberSyndrome/で検索)では
ホスト名＆IPなどが隠せないんですよ
ちゃんと匿名串を使っているのに…

鬱だ……

>471
同じIPからだと1日1カウントしか収集しないんじゃないかな？
だとしたら、10個カウンター回したいなら、10個のIPが必要。

>>472
　>>467のようにすると何回でも回せるみたいです
漏れは串持ってないので携帯を使ってます
実験ではPC→携帯電話→PCを繰り返すと回ります
でも携帯使うと通信料が一回12円かかります
どうしましょう…

ちょっと臭いな

>>472
やっぱり10回まわすなら10個のIP必要ですね
カウンタは>>467のようにすれば回りますが、
キリ番ゲットページで｢あなたのカウント｣は回ってないんですよ

どぉ〜しましょ

>475
そもそもなんで回したいのよ？
不正な方法でキリ番ゲットしたいの？

>>476
キリ番げっとするとプレゼントが貰えるんです

携帯電話でのアクセスでは
｢あなたのカウント｣が｢未取得｣になってしまいます

串を使っても、そうなってしまう可能性が出てきました
もうだめぽ……鬱

ｶｴﾚ(・∀・)!!

アホか。

┐('〜`；)┌　臭いと思ったら

cgiでhtmlを書き出すときにSSIをprintするとそのまま

<!--#include file="xx.html" -->

って出てしまうのですが、
.htaccessのAddTypeに.htmlを加えるしかないのでしょうか？
他の解決方法を教えてください。

どなたか答えてくれるとうれしいです。よろしくおねがいします。

CGIでSSIをしてるの？

意味無い気がする。

次レスのスクリプトをWEBで実行しようとしたのですが、
下記のログようなエラー(Internal Server Error)になります。
ちなみに、webサーバマシンでスクリプトを実行して、html文にリダイレクトしたら、思うようにページが表示されるのですが…
（./googre2.cgi > googre2.html）
どこが間違ってるところはどこなのでしょうか？

[Thu Aug 8 19:43:16 2002] [error] [client 10.10.1.38] script not found or
unable to stat: /var/www/html/cgi-bin/googre2.cgi
[Thu Aug 8 19:43:52 2002] [error] [client 10.10.1.38] Premature end of
script headers: /var/www/html/cgi-bin/google2.cgi

#!/usr/bin/perl

print '<!DOCTYPE HTML PUBLIC"-//W3C/DTD HTML 3.2 Final//EN">';
print '<HTML>';
print '<HEAD>';
print '<TITLE>google_mail1</TITLE>';
print '</HEAD>';
print '</body>';
print '<META http-equiv="Refresh"
content="0;URL=http://www.google.co.jp/search?q=&ie=UTF-8&oe=UTF-8&hl=ja&btn
G=Google+%
E6%A4%9C%E7%B4%A2&lr=">';
print '<base target="_top">';
print '</NOFRAMES>';
print '</FRAMESET>';
print '</HTML>';

他のスクリプトはWEB上で実行できてます。
スクリプトは、WinPCからtelnetでログインして貼り付けました。
前レス「間違ってるところはどこなのでしょうか？ 」の間違いです。すみません。

ＣＧＩにはヘッダというものが必要です。

print '</NOFRAMES>';
print '</FRAMESET>';

これは何なの？ キミはまだＣＧＩ以前にタグの学習が必要では？

> ＣＧＩにはヘッダというものが必要です。

そんなことはない。

>>485
どこに突っ込んでるの？
s/CGIには/CGIスクリプトの出力には/
ならOK？

会社で、研修があって某予約システムを作ることになりました。
この後に控えている私の仕事がＣを使うということもあって、「どうせならＣ言語でＣＧＩ作ってみて」という話になりました。
ＷＥＢサーバとＳＱＬサーバには何を選択してもいいのですが今のところは、
MicrosoftのSQLサーバとIISを使用する予定です。

ただ、いくら本を探してもＣ言語でＳＱＬサーバとやり取りする方法の書かれたものが見当たりません。

当方はWindows2000を使っています。
とりあえず、IIS上でCでコンパイルした実行可能CGIファイルを動かしたいのですが、うまく動きません。

動かそうとすると、ユーザ名とパスワードを要求されます。
(ちなみにこのCGIプログラムをコマンドプロンプトで実行するとちゃんとHTML形式の文書が出力されます。
（よくあるHELLO WORLDです。(^^;）)
ファイルのパーミッション（右クリック→プロパティ→セキュリティ）はeveryoneでフルコントロールです。

長くなりましたが、現在足がかりがほとんどない状態です。
どなたかアドバイスやお勧めの本やWEBページがありましたら教えてもらえると幸いです。
お願いします。m(_ _)m

$page=$ENV{QUERY_STRING}
〜
my $start = ($page * $one_page) + 1;
my $end = $start + $one_page - 1;
my $i = 0;
open IN , $data_file;
while ( <IN> ) {
last if $i++ >= $end;
print if $i >= $start;
}
close IN;
my $next = $page - 1;
my $back = $page + 1;
my $p_start = ($page * $one_page)+1;
my $p_end = int ( $max_article / $one_page );

print qq|<p>|;
print qq|<a href="$script_name?$next"><< 新しめの$one_page件</a>　\n| if $next >= 0;
for ( $p_start..$p_end ) { print qq|<a href="$script_name?$_"><$_></a>|; }
print qq|　<a href="$script_name?$back">古めの$one_page件 >></a>\n| if $end < $max_article;
print qq|</p></body>\n</html>|;

ページングとやらをやってみようと、何とかページ数の表示は出るようになったんですが、
肝心の記事表示がまともに出来ません。どこが間違っているんでしょうか。
ちなみに、
$max_articleは現在の件数。$one_pageは1ページに表示する件数。
$data_fileは１行ずつ↓のような形式で保存してます。
<h2>[$num] $name - $date</h2><p class="i">$comment</p>

>>489
ソースの一部だけ見せられても、$one_page とかにどんな値があるのかないのか
さえわからんだろ。

>>490
そう思ったので$max_articleと$one_pageの値に関しては後半に書いておきました。

>>491
だから、実際のソースに値があるのかないのかがわからんだろ。

my $one_page = 10;

open IN , $data_file;
my $max_article = <IN> =~ /^<h2>\[(\d+)\]/;
$max_article = $1;
close IN;

変数の宣言部分を省略していたのがまずかったですね。
$data_fileの一行目が最新の記事で、$numに記事の番号を記録しているので、
そこから数値を抜き出して記録されている件数としています（$max_article）

自己解決しました。スレ汚しスミマセヌ(´･ω･`)

CGIファイルから処理の途中で
別のCGIファイルを呼び出す方法をおせーて？
BY困ったチャン

追伸
すいませんけど
Perlです
BY困ったチャン

意味がわからん。
別のCGI内のサブルーチンでも使いたいのか？

#>>495
#> おせーて？
#
#ここに疑問符が付くのは疑問な訳だが...

``

WEBで落とせるチャットCGIをいじってます。

ログに書き込み者のIPを記録し、そのままＨＴＭＬ出力に表示させたいのですが、
全部の行が同じIPになってしまいます。
（違うIPになると、全行のIPがそれになってしまう）

$ad = $ENV{'REMOTE_ADDR'};
とCGIに記述して、
表示させたい部分に$adを埋めるだけじゃダメなんですか？

だめ。
それじゃ、見た人のIPにしかならない。
別ファイルに書き込んで、読み込むなりしないと。

>>500
ご助言ありがとう。
いま、DATに書き込み者のIPを記録するようにしました。
こんどはどうやって読ませようか悩んでます。
いい手本が手元にないんですよ。

>501
手元になければ探せ。
いくらでも転がってるぞ。

cgi内で、別のプロセスを起動させるとエラーになるんですけど........
system($cmd,$arg);を使う時はapacheに何か、設定を加える必要ありですか？

エラーの内容書け。

新しい質問なんですけど、kent-web（http://www.kent-web.com/）のyycahtを使っているんですけど、トップから入室者を表示させる方法は
ありますか？
もし、ありましたらお教え下さい。

member.dat　を外部から読み出してtopに表示。
SSIが使えない環境だと難しい。

>>505
【 スクリプト改造工房 PART 5 】
http://pc.2ch.net/test/read.cgi/php/1028193595/l50

改造を頼むのなら上のスレの1に書かれていることちゃんと読んでからな。
ま、このスレの>>1も読めないやつには無理かもしれんが（ｗ

>>488
IISの設定確認しろ。
ローカル環境で試してるのか？
そうでなければコンピュータへのユーザ権限がない。
その他ユーザ回りをしっかり確認しろ。

<form action="mailto:mailaddress">
でフォームを送信してもらったあと「送信しました」ページを表示させる方法を
教えてください。

何か間違えている可能性。

うん。

>>509
JavaScriptでできそう。
板違いなのでage

>>499-501の者です。
おおかたのIP表示のCGIをあさってみたんですが、
IPもしくはホスト取得後、記事部に表示させる記述は

print"$ip $host"
といったものでした。
なぜ、既製品に自分で書き加えると全行、自分のIPもしくはホストが反映されてしまい、
元から機能がついているとちゃんとログから持ってくるかが判別できないのです…

ブラウザから自分のWebページを書き換えるスクリプトを書いているんですけど、
書き換えるHTMLファイルのパーミッションを666などに設定する必要がありますよね？
これってなにか危険性あります？

ありすぎ。
書き換える直前でパーミッション変えて、終わったら戻すようにしたらどうだ

chmodでファイルのパーミッション変更しようとしたら、
Internal Server Errorが出てしまいました。
CGIによるパーミッション変更は禁止されているようです。
あきらめるしかないんでしょうか。

666でもかまわんだろ、
KENTWEBでもそういうのあるし

ユーザーIDと
パスワードを入力して
認証してOKならページ移動
の処理を作成中なんッスけど
認証のためのデータをあるファイルから
参照してハッシュを使ってIDをキーにして
パスワードをデータにして、
IDを比較するのはOKなんッスけど、
パスワードの比較はどうしたらイイんでしょうか？
ようはキーの中身の比較っすね

ageて逝きまっしょい

マルチか。　　　　　　　　　　　　　　　　　　

>>519には答えなくていいよ

apacheでperlのテストを行なっているとerror.logにエラー内容がどんどん
書きこまれていくのですが、どうも中身の行数が増えすぎて見にくくなって
きてしまいました。どうやったらこれをクリアできるのでしょうか？

ファイル消せば？

C言語で掲示板作ってますが、とりあえず、Windows環境でのCコンパイラ
（VisualC++のコンパイラ）
と、HTTPデーモンには、AnHTTPDを利用して
実行させているのですが、

標準出力の終了を、HTTPDデーモン（AnHttpd）
が認識してくれなく、ある時間が経つと、デーモン側（AnHttpd）からプロセスを強制終了させてしまいます。
TerminateThread()　（WindowsAPIで言うと、

putc(EOF);
などをしても、EOFマーカーを認識してくれません。

何か良い方法で、掲示板側から、終了をしたと言う事をHTTPデーモン（AnHttpd）にわかるようにはできないでしょうか。

>>522
httpd.conf をよくみると、どこかにログファイルを書き込むための
ディレクティブが宣言されていたと思うよ。

CokkieがOffだったら指定のページに飛ばす
…そんなcgiってありますか？
もしあったら、参考になるサイト、もしくはプログラムを
お教え下さい。

Cokkie　ってなに？

マルチか。

-d でファイルがディレクトリかどうかをチェックしたいのですが、ディレクトリを渡しても値が1にならない場合があります。
調べる場所が'.'の場合はちゃんと1になるんですけど、./aaaとかの場合はダメです。
原因がわかる方、教えてください。

補足です。他のファイルタイプ演算子、-fとかもダメです。

>>529
ソース見せてよ。

こんな感じです。
$_[0]には、ディレクトリの場所'.'とか./directory とかを受け取ります。

sub search_dir{
if ($_[0] =~ /\.\./){
$forbidden = 1;
}
else {
opendir(DIRECTORY, $_[0]) or die "カレントディレクトリを開けません。";
@dir_contents = readdir(DIRECTORY);
closedir DIRECTORY;
foreach $con (@dir_contents){
if ($_[0] != '.'){ $con = $_[0] . $con; }
if ($con eq "."){
} elsif ($con eq ".."){
} elsif (-d $con){
$child_dir[$cd_index] = "./" . $con;
$cd_index++;
} elsif ($con =~ /(.html|.htm)$/) {
$child_html[$ch_index] = $con;
$ch_index++;
} else {
$child_otherfile[$co_index] = $con;
$co_index++;
}
}
}
}

タブ無効なんですね。申し訳ないです。

sub search_dir{
if ($_[0] =~ /\.\./){
$forbidden = 1;
}
else {
opendir(DIRECTORY, $_[0]) or die "カレントディレクトリを開けません。";
@dir_contents = readdir(DIRECTORY);
closedir DIRECTORY;
foreach $con (@dir_contents){
if ($_[0] != '.'){ $con = $_[0] . $con; }
if ($con eq "."){
} elsif ($con eq ".."){
} elsif (-d $con){
$child_dir[$cd_index] = "./" . $con;
$cd_index++;
} elsif ($con =~ /(.html|.htm)$/) {
$child_html[$ch_index] = $con;
$ch_index++;
} else {
$child_otherfile[$co_index] = $con;
$co_index++;
}
}
}
}

がくっ。板汚しすみません。

http://homepage1.nifty.com/~tetsu/ruby/web/srcview.html
にあるCGIで
/usr/local/src/
以下に貯めてきたソースを閲覧しようと試みますが、
エラーが出ます。
恐らくアパッチのセキュリティが働いている模様です。
Googleでしらべてもワカリマセンでした。
どなたか、cgiからあくせすできる
ディレクトリの設定方法をゴキョウジュしていただけませんか？

if ($_[0] != '.'){ $con = $_[0] . $con; }
この行の $con って、$con= $_[0] . '/' . $con; では？

その行は後からつけたもので、怪しい部分なのですが・・
おっしゃる通りにしても解決しませんでした。
もう少し整理してみます。ありがとうございます。

>>535
何が何だろうと、実行者の権限（user､www､nobody、、）で開けない物は
開けない訳だが
そう言う話じゃ無くて？

ファイル名を読み込んで、表示させることはできるのです。
でもファイルタイプを調べるのに失敗してしまいます。

if ($_[0] ne '.') { $con = $_[0] . '/' . $con; }
で解決しました。アドレスと等価演算子が原因でした。
初歩的なミスでご迷惑をかけてしまって申し訳ないです。

>>526
Cookieに適当な値をセットして次のページに移動。
その値が見つからなければCookieが無効になってる。

有り難うございます。
…して、その方法すら分からないのです。

>>542

まずキーボードのCtrlとAltとDelキーを同時押しして

自分ISPにCGIを設置しようと思いましたが
>ファイルの書き込み、読み込みをＣＧＩで行う場合には、
>必ずお客様のホームディレクトリ（環境変数$ENV{'HOME'}）
>を基準に書いて下さい。
の意味がさっぱり分かりません。使えるネット等のフリースペースでは
設置できますが、ここではInternalServerErrorとなるばかりです
これはCGIをどのように書き換えれば良いのでしょうか
http://www.ogaki-tv.co.jp/internet/int_cgi/hp_cgi_chui.html

>>544
相対パス使えってことでそ

書き込み・読み込みの対象となるファイルを指定する際、ホームディレクトリから見た
相対パスを使えということでは？

画像アップ掲示板で画像がサムネイル表示されるヤツ探してます。

誰か情報ください。

>>547
phpなら
http://fitness.s7.xrea.com/index2.php

マルチ

>>549
マルチて何？

>>550
モップ片手に重複投稿するカワイイメイドロボ

マルチ野郎
「ここの掲示板に質問したけど馬鹿ばっかみたいだからこっちにも同じ質問しとこう。」
「早く答えろよ、しょうがねーな、こっちの掲示板にも書いとくか。」

http://ddns.j-speed.net/subdomain/ddns.cgi
上のページにいって、適当になメールアドレスに
ユーザ名とパスワードを決めて登録してログインすると。
proxy経由でも生IPを抜かれます。
下と同じ方法ではないと思うのですが、どなたかわかる人いますか？
http://www2s.biglobe.ne.jp/~cru/library/java/index.html
今日は、遅いので私も明日調べてみます。

i-modeからファイルのアップロード処理をする時に何か気をつける部分はありますか？
ファイルの拡張子などをちゃんと自動認識して判別をしてくれたりするのでしょうか？

>>553
$ENV{'HTTP_X_FORWARDED_FOR'}
↑かTelnetだと思ふ。

ドラクエアドベンチャー4を設置しようとしているのですが､
Script execution errorとでてしまいます｡
ビッグローブサーバーに設置しているのですが､
この文字が出たときはどうすればいいのでしょうか?

>>554
telnet削除してあります。
現在の経路は、socks_proxy→http_proxyでアクセスしてます。
でも抜かれる。なぜだろう。

socks→socks→httpproxyの経由だと
127.0.0.1のIPしか抜かれませんでした。

戻るボタンでCGIのページに戻る場合、ページの有効期限切れになることがありますけど、
これが出ない場合もありますよね。
この違いは、サーバの設定に依存するんでしょうか。

http串でアクセスしたけど、抜かれなかったよ
JavaとかXとか全部切ったけど

http://www.kemokemo.com/　
http://www.kemokemo.com/products/picchabo/picchabo203.lzh　
上(掲示板CGI)に下(ランダム広告CGI※呼び出しによりSSI使用しない方)を設置したいのですが『インターネットサーバーエラー』になります。(;_;)
一通りパーミッション設定などを説明どうりやってみたのですが設置できないんです。。(;_;)なぜでしょう？？(;_;)
どうか教えていただけないでしょうか。。(;_;)
また呼び出しのときの記述が『require 'rand.pl';　　rand::main($Op1,$Op2,$Op3);』を記述しろと書いてあったので正確に記述したのですが『インターネットサーバーエラー』になってしまうんです。。(;_;)
『$buffer』でも記述したんですがだめでした。
http://taihei.cc/pc/cgis/random.html
http://taihei.cc/pc/cgis/randban11.lzh

「買い物かごに入れる」

というふうなボタンがついていて
オンラインで購入できるようなページは
CGIで作られているのでしょうか？

>>561=マルチ

>>562
うん。

CGI RESCUE の ショッピングバスケットプロ とか
http://www.rescue.ne.jp/

>>562
CGIだけじゃないけどね。

ＥＲＲＯＲ：長すぎる行があります！
↑
コレ追加したいのですが。。。

if(($CHECK{'body'}==1)&&($body eq '')){$error_message .= "本文がありません。<BR>";}

ﾊｧ?

>>566
そんな質問で意図がわかるか。ｱﾌｫ。

if(($CHECK{'body'}==1)&&($body eq '')){$error_message .= "本文がありません。<BR>";}
elsif (($CHECK{body}==1)&&length((sort{length$b<=>length$a}split/\r\n/,$body)[0])>100)
{$error_message .= "ＥＲＲＯＲ：長すぎる行があります！<BR>";}
こういうことか？

if(length($FORM{'subject'}) > $SETTING{"BBS_SUBJECT_COUNT"}){
　　　　DispError("ＥＲＲＯＲ！","ＥＲＲＯＲ：サブジェクトが長すぎます！");
}
if(length($FORM{'FROM'}) > $SETTING{"BBS_NAME_COUNT"}){
　　　　DispError("ＥＲＲＯＲ！","ＥＲＲＯＲ：名前が長すぎます！");
}
if(length($FORM{'mail'}) > $SETTING{"BBS_MAIL_COUNT"}){
　　　　DispError("ＥＲＲＯＲ！","ＥＲＲＯＲ：メールアドレスが長すぎます！");
}
if(length($FORM{'MESSAGE'}) > $SETTING{"BBS_MESSAGE_COUNT"}){
　　　　DispError("ＥＲＲＯＲ！","ＥＲＲＯＲ：本文が長すぎます！");
}
if(length($FORM{'MESSAGE'}) == 0){
　　　　DispError("ＥＲＲＯＲ！","ＥＲＲＯＲ：本文がありません！");
}
#行数＆行長さ制限
my @msg = split(/ <br> /, $FORM{'MESSAGE'});
my $cnt = @msg;
if($cnt > ($SETTING{'BBS_LINE_NUMBER'} * 2)){
　　　　DispError("ＥＲＲＯＲ！","ＥＲＲＯＲ：改行が多すぎます！");
}
foreach(@msg){
　　　　#$cnt = tr/[\041-\177]//;
　　　　if(length($_) > 256){
　　　　　　　　DispError("ＥＲＲＯＲ！","ＥＲＲＯＲ：長すぎる行があります！");
　　　　}
}
$FORM{'MESSAGE'} =~ s/<br> <br> <br> <br>/<br> <br> <br>/g;

今PC用の掲示板設置してるんですけどこれを携帯からも閲覧、書き込みできるようにしたいのですができますか？

出来る。

どうしたらいいでしょうか？

聞くだけじゃなく、考える事も大事だと思うのだが。
第一に、元々携帯に対応した掲示板使えば早かろうと。

今の掲示板をどうしてもそのまま使いたいのです…。

>>574
で、自分でどこまでやってみたのさ？
携帯向けでまず気にするのは1ページのサイズを抑えることだろ。
iモード、J-SKY、ezWebが1ページ何バイト以内なのかぐらい調べたのか？
1ページに表示する発言を減らすとか、無駄なタグ削るとか、何かやってみろ。

スレ違いだったらすんません。

apebaordスキンかunicoスキンのどっちかを使おうと思ってるんですが、
どっちの設置方法のほうが簡単なんでしょうか？
unicoの方が比較的簡単と聞いたんですが。

ショボイ質問で本当に申し訳ない。

もう時代遅れですか？

>>577
そんなことより　聞いてくれよおっちゃん
このサイト面白いぞ　小一時間ワラタ
http://www.ogaki-tv.ne.jp/~zeus/

何か始めてみたいんですけど、手始めに何から始めたらいいんでしょう？
ＯＳはウィンドウズ、HTMLがちょこっと書けるくらいのスキルしかないです。

>>579
CGIで何をやりたいの？まずはそこからでしょ。

>>576
質問の意味が分からん。分かりやすく書け

KENTのY!BBS風の掲示板だっけ？
あれ見に行ったけど、ｸﾚｸﾚ帽が多すぎ
KENTもよくやるよな・・・

質問

こちらで発行したＩＤやパス等の登録情報を管理するＣＧＩを作っていて、
登録情報専用のディレクトリのファイルリストを表示する中に
そのリスト中のファイルの最終更新時刻を取得する部分があるんだけど、
「.」「..」を除いて全てがThu Jan 1 09:00:00 1970になってしまいます。

色々試しているとどうやらＣＧＩを置いているディレクトリ以外の
ディレクトリをオープンするとそうなるらしく、
ＣＧＩ本体をオープン先のディレクトリに移動すると問題無く動作します。

しかし登録情報を置いたディレクトリにＣＧＩを置くのは出来る限り避けたいのです。
何か良い方法はありませんでしょうか？
あるいは何らかの手落ちでこういった状態になるのであれば、それも教えて頂けると幸いです。

>>582
最終更新時刻を取得するCGIをデータディレクトリに入れて、
他のディレクトリのCGIから時間取得のCGIを操作してやれば？

そうですね・・
何かいい方法はとは言ってもそれ位しか選択肢ありませんよね
とりあえず仰せの通り別ファイル化で対処しておきます

追記ですが、自己解決しました。
chdirで作業ディレクトリを移動させる事によって、
別ディレクトリのファイルの時刻を取得出来るようになりました。

ＣＧＩを分離する必要も無くなりました。
（というより別ファイルにしてもカレントディレクトリは変わらない為意味がなかった）

ご質問です。

CGIと同じかそれに近いディレクトリにMicrosoft　Accessがあるとします。

CGIからMicrosoft　Accessにアタッチする事は可能なんでしょうか？
可能であれば、その方法が記載されているURLなんぞを教えて貰えないでしょうか？
もしくはサンプルでもあれば非常に助かります・・・

Googleで検索もして見たんですがなく、、、
上記って特殊なやり方なんでしょうかねぇ・・・

ASPとかではないです。
普通のプロバイダが無料でくれるスペースでのお話です。

・・・ダメ？

>>586
自分の質問に「ご」は付けません。「質問」が正しいです。

>>587
プロバイダが無料でくれるスペースにMicrosoft Accessがあるところがあるの？
サーバがWindows系のプロバイダってどこ？

Access自体は入って無くても問題はないがな

>>586

特殊なんじゃなくて検索の仕方が悪いに全部。

既出だったらすいません。

ランダムで背景画像を変えたくて、
５つの違うＣＳＳ（background-imageのみ記述してあります）
をランダムで選び、それをタグに書き出したいと思うんですが
[an error occurred while processing this directive]
とエラーが出てしまいます。

$dir = 'home/自分のＩＤ/public_html/nantoka/style';
$url = 'home/自分のＩＤ/public_html/nantoka/style';

opendir(DIR, "$dir") || die "Can't open: $dir";
@data = grep(!/^\.\.?$/, readdir(DIR));
closedir(DIR);

srand(time|$$);
$style = $data[rand(@data)];
print qq(<link rel="stylesheet" type="text/css" href="$url/$style">);

exit;

これを、index.shtmlから
<!--#exec cgi="home/自分のＩＤ/public_html/nantoka/randomimg.cgi" -->
と呼び出しています（ＣＧＩ本体とindex.htmlは同じディレクトリにあります）。

dirは使える鯖と使えない鯖がある、という話は聞いたことがあるんですが
どこかおかしな所があったら、教えていただけないでしょうか・・・

取りあえず そのスクリプトがshellからまともに動くことを確認シル

お聞きしたいのですが、
perlからphpをincludeのようなことはできますでしょうか？
また、逆にphpからperlプログラムを呼び出して変数を受け取ったりできますでしょうか？

もうひとつお聞きすると、
perlで既に年月日の形になっているものからLinux標準時間に戻す関数はないのでしょうか？

よろしくお願いします。

できます。
できます。
あります。

よろしければ詳しくお願いしますm(__)m

Kcatchを使用したら、
[rand_img.cgi:17:die] Global symbol "$dir" requires explicit package name.
Global symbol "$url" requires explicit package name at (eval 1) line 17, <DATA> line 27.
Global symbol "$dir" requires explicit package name at (eval 1) line 18, <DATA> line 27.
Global symbol "$dir" requires explicit package name at (eval 1) line 18, <DATA> line 27.
Global symbol "@data" requires explicit package name at (eval 1) line 20, <DATA> line 27.
Global symbol "$style" requires explicit package name at (eval 1) line 24, <DATA> line 27.
Global symbol "@data" requires explicit package name at (eval 1) line 24, <DATA> line 27.
Global symbol "@data" requires explicit package name at (eval 1) line 24, <DATA> line 27.
Global symbol "$url" requires explicit package name at (eval 1) line 25, <DATA> line 27.
Global symbol "$style" requires explicit package name at (eval 1) line 25, <DATA> line 27.
となりました。
この「requires explicit package name」とは具体的にどういう意味なのですか？

>>597
Cやったことある？
要するに、「定義されてない変数が出てきたよ」ってこと。

my ($dir, $url, @data, $style);
とかやるか、（推奨）

use strict;
↑の行を探して削除するか、どっちか。

16行目に　my($dir,$url,@data,$style);　を挿入したら
Global symbol 〜 についてのエラー表示は出なくなりました。以後気をつけます。
593さん、598さんありがとうございました。

しかし、
[rand_img.cgi:21:die] Can't open: home/自分のＩＤ/public_html/nantoka/style.
は依然として残っています。
これは home/・・・/style ディレクトリを開くことが出来なかったということはわかるのですが
なぜ開けないのでしょうか・・・
パーミッションのチェックはしましたが、問題はありませんでした。
教えて君ですいません。

　

>>592
そもそもJavaScriptを使えよ、と思ったのは私だけですか？

自分でも多分違うと思います。

JavaScriptのほうがややこしいと思っていたら
ＣＧＩも結局２ｃｈで聞いている現状という罠

です

>>599
＞パーミッションのチェックはしましたが、問題はありませんでした。

は・は・は（大爆笑

>>592
homeの前にスラッシュはいらないのだろうか。

>>605

CGIには直接関係ないのですが、2chのあるスレに自動で
保全書き込みを行うPerlスクリプトをSJISで書いたのですが、
書き込みしようとすると SJISでかいてちょ。とか 文字化けしちゃうよ。
とか却って来ます。
どーすればいいのでしょうか？

$ua = new LWP::UserAgent;
$head = new HTTP::Headers;
$head->header( 'Content-type','text/html; charset=Shift_JIS');
$body = "FROM=$name&mail=$mail&MESSAGE=$message&bbs=板名&key=スレッドID";
$req = new HTTP::Request( 'POST', $BBSCGI, $head, $body );
$res = $ua->request($req);
print( $res->content );

>>607
あげ２ｃｈか？

SJISでかいてちょ。
って書いてるんだからSJISで書けよ
ヴァカ？？

>608
氏ね

CGIの技術を学ぶためには、全くの基礎からやり始めるにはやはり書籍を参考に
するのが良いですかね？　何からやりはじめればCGIを操れるようになりますかね?

プロの皆さんは何の知識を得ることからはじめましたか？

他人のソースを見る。

素人ですが、KENT氏のbbsを見ることから始めました

質問です。
$form = $FORM{'form'};
$log =~ s/$form/<b>$form<\/b>/g;

print $log;

$logに、ログファイルから読み込んだ全データをぶち込んで、
$logに、ユーザーがフォームから送信してきた$formの文字列が含まれていたら、その文字列を太字にして表示する、という仕組みのＣＧＩを作りました。
ここまでは完成したんですが、$logを、英数大文字・小文字関係なく検索させたいんです。
どうすれば、大小文字関係無く検索できるようになりますか？
お返事よろしくお願いします。

>>610
僕も>>612さんと同じように、ＫＥＮＴ氏製掲示板を見たりこぴぺしてどう稼動するのか確かめて覚えてきました。
http://tohoho.wakusei.ne.jp/wwwperl1.htm
とほほ氏のページです。色々なプロの方が読まれているようです。
http://tohoho.wakusei.ne.jp/wwwperl2.htm
リファレンスは、多少慣れてきたらど〜ぞ。

>>613
i

i…？
すみません、リファレンスで検索しても見つからないので、わかりません。
もうすこし詳しく教えていただけませんでしょうか…すみません。

もっと探せ。

$log =~ s/$form/<b>$form<\/b>/ig;

はじめまして。今回初めてメールをさせていただきます。
MIDIを公開するためにジュークボックス的なCGIを導入したんですが、一つわからないことがあるので教えて欲しいのです。

使ったCGIは、大黒屋本舗さんの　BGM++　というCGIなんですが、http://ohgro.pos.to/perl/bgm/bgm.cgi　　このウィンドーを最小化すると、音が消えてしまうのです。そして、ウィンドーを元のサイズに戻すとまた音が再生されるのです。

実は、こういうJukebox的なCGIを探していて、もう一つ候補がありました。
POKEMON　ENTERNAL　さんの自作CGIでjukeboxというのがあります。
http://pme.cool.ne.jp/
のサンプルページが、http://pme.cool.ne.jp/download/jukebox/jukebox.cgi　です。
こちらで配布されているものは、ウィンドーを最小化してもちゃんと音がなっているのです。

これは何をどうしたら違いが出るのか、調べても調べてもわからなくて、、、
それで今回こちらで質問させていただいたのです。
使いたいCGIは、大黒屋さんの方を使いたいと思っているのですが、どこをどういう風にしたら
音が停止しないようになるのか教えてください。宜しくお願いします。

>>619
つーか、HTMLレベルの問題だろ。

質問です。NT4.0＋IIS＋ActivePerlでSQLServerに接続するcgiをWEBで表示したいです。
DBI,DBD::ODBCで接続でき、コマンドプロンプトで実行すると結果が表示されるのですが、WEBからアクセスすると「'C:\wwwroot\cgi-bin\test.cgi' script produced no output 」と表示されます。
多分IISの設定だと思うのですが、変更箇所が分かりません。
よろしくお願いします。

>>619
ｽﾚ立てた後に、よくこんなﾄｺで聞けるよな

教えてください。それだけなんです。。
教えていただいたら、すぐに消えます。HTMLの問題であれば、どういう風にすれば
いいのか、それだけを教えてください。
お願いします

>>619
BGSOUNDとEMBEDの違い。
板違いにつきsage

>>623
この板はサーバサイドプログラミングの話をするところなの。
それぞれの板で専門分野が決まってて、そこで話すのがルールなの。
HTMLの話は↓でしてるよ。
http://pc3.2ch.net/hp/
ルールは守ってね。

結局わからないだけなのね。残念だわ

>>626
捨て台詞はいいからサッサと消えろよｵﾏｴ。

>>　624さんへ

ありがとうございました。あなただけでした。ちゃんと回答してくれたのは。
624さんには大変感謝です。問題も解決しました。
こんな２ちゃんねるみたいなところでもちゃんと回答してくれる人がいるん
ですね。お礼だけ言わせてください。
ありがとう624さん。

あと、なんかこの２ちゃんねるの板のルールもわかんないで書き込んだので
私も悪かったです。今日はじめて書き込みしたんで。
とにかく624さんには感謝してます。ありがとう

なぜ初心者は自分の行動が間違っていることを理解しないのだろう。

自作自演に気づけ！

あのぉ〜、iswebで画像up掲示板を設置しました。
んで、普通に投稿ボタンを押したら「設定エラー．データ保存用ファイル$tmp_file"が見つかりません．自動作成を試みましたができませんでした。
処理は中断されました．」って出ました。cgi-binのフォルダの中にcgiとか置いてるし
パーミッションもちゃんと設定されているハズなんですが・・・。
どうすればいいでしょうか？

>パーミッションもちゃんと設定されているハズなんですが・・・。
ディレクトリって分かるか？
ファイル作るディレクトリの権限を757にするか実行ファイルをsuid

suidってなんですか？すいど？

ディレクトリもわかりません。何回か見たことあるけど

>suid
だったら気にするな
>ディレクトリ
フォルダの事、検索な
http://www.google.com/search?q=%E3%83%87%E3%82%A3%E3%83%AC%E3%82%AF%E3%83%88%E3%83%AA&sourceid=opera&num=100&ie=utf-8&oe=utf-8

これ以上やると荒れそうだから退散する

すまん、余りに不親切だ
FTPで、upboard.cgiとかのパミを設定しただろ？　755とか701に?
それと同じ様に　cgi-bin/hogehoge/　と設置したのなら
hogehogeのパーミッションを緩めて行けば良いよ
それでもダメならcgi-binから順番に緩めて行くといい
頑張れよ、もう書かないから

imgboard.cgiなら
img-boxフォルダの属性を777

すいません、http://tolkien.s7.xrea.com/test/read.cgi/jikken/1026137983/
で配布されている物を設置したくhttp://www.xrea.com/にアカウントをとって
うｐしたんですが、うまくいきません。
今現在http://camion.s15.xrea.com/x/test/admin.cgiなっています
パーミッションはフォルダ：755　.cgi.pl：700です
いったい何がいけないのでしょう？

>>638
配布元で相談に乗ってもらいつつマルチポストですか。豪気だねぇ

ｺﾞﾒｿ気を付けます

まあｶﾞﾝｶﾞﾚ漏れも昔はさっぱり分からんかったよ

Error Message: No such file or directory
Error Number: 2

て、そのまんまの意味では。

初めまして。

プログラムをWEBサーバにアップすると「ScriptError」と表示されてしまい動かないのです。
自分のノートパソコンではきちんと動いてくれるのですが・・・・・。どのような事が原因でこのような事が起こるのでしょうか？。

CGIで特定のホスト名を別のページに飛ばす、アクセス制限みたいなことをするやり方を
教えてください。
何回かやったけど無理でした。

>>643>>644
原因を特定するために
何のプログラムで
どのようにしたら
どの段階で
どうなったかを書き込むﾖﾛｼ

#! /usr/local/bin/perl

$url = http://○.com;
$host_name = &GetHostName($ENV{'REMOTE_ADDR'});
if (host_name = *******) {
print "Location: $url";
exit;

sub GetHostName {
my($ip_address) = @_;
my(@addr) = split(/\./, $ip_address);
my($packed_addr) = pack("C4", $addr[0], $addr[1], $addr[2], $addr[3]);
my($name, $aliases, $addrtype, $length, @addrs);
($name, $aliases, $addrtype, $length, @addrs) = gethostbyaddr($packed_addr, 2);
return $name;
}

>>645
掲示板に書かれた言葉を置換するCGIプログラム（Perl）です。
http://dosv.s10.xrea.com/test/keijiban-hyouji_cgi.txt
http://dosv.s10.xrea.com/test/keijiban-toukou_cgi.txt

>>646

× $url = http://○.com;
○ $url = 'http://○.com';

× if (host_name = *******) {
○ if ($host_name = *******) {

× if (host_name = *******) {
○ if ($host_name eq '*******'){

648,649のとおりにやりましたが
http 500 鯖エラーが出ます。
なぜでしょう？

× print "Location: $url";
○ print "Location: $url\n\n";

これかな？

>>647
なんか FORM 作るの面倒だから試してないけど。
動くみたいだから、転送に失敗したか、パーミッションくらいしか思いつかん。

にしても >>646 さんは優しいのね。

横槍ですが } が足りないﾃﾞｼｮ。
$url = "http://○○.com";
$getout = "http://××.com";
$host_name = &GetHostName($ENV{'REMOTE_ADDR'});
if ($host_name eq $getout) {
print "Location: $url\r\n\r\n";
exit;}

sub GetHostName {
my($ip_address) = @_;
my(@addr) = split(/\./, $ip_address);
my($packed_addr) = pack("C4", $addr[0], $addr[1], $addr[2], $addr[3]);
my($name, $aliases, $addrtype, $length, @addrs);
($name, $aliases, $addrtype, $length, @addrs) = gethostbyaddr($packed_addr, 2);
return $name; }

>>652
それが動いてくれないんです(T_T)。
転送もきちんと出来てるし、パーミッションもきちんと設定したのになぁ〜。
謎です。

▼入力フォームです。
http://dosv.s10.xrea.com/test/toukou.html

>>654
flock 使えるの？

動作には関係ない所だけど、文字コードは正しく記述してください。
×EUC
○euc-jp

Perl CGIでProxyアクセスを制限する方法はありますか？
例えば、80番ポートが開いていたらアクセスを拒否するとか。

よろしくお願いします。

>>657
ttp://www.ugtop.com/spill.shtml
くらいの情報は取得可能。

>>657
http://taruo.net/e/?
ﾄｶ

>>655
flockは使えます。

>>656
持っている書籍通りにしたはずなんですけど、違うんですね。直しておきます(^^;

>>660
キャッシュが残ってたりしない？

>>658
>>659
ご協力どうもです。

疑問ですが、２ちゃんねるの「Proxy寄生虫です」を出すのはどういう仕組みなんですか？

>>662
ソースが欲しいんですか？

http://www.parkcity.ne.jp/~chaichan/qanda/qa3061.htm?02-08-24-13-50

>>661
それはないと思います。今アップロードしてもスクリプトエラーでしたから。

>>665
とりあえず flock 外したり、最低限どの状態なら動くか確認すべ氏

KCatch使うとか出力リダイレクトするとかじゃダメなの？

>>665
サーバの環境は？

今更ですが、644です。
えと、指定のホストの奴を飛ばすことは出来ました。
が、今度は、それ以外の人を、また別のところへ飛ばすにはどうすればよいのでしょうか？

>>665
わかりました。確認してみます。

>>665
ttp://www.xrea.com/?action=spec

しぇんせい質問です。

$img = "http://www6.ocn.ne.jp/~boyakkie/php.gif";

if ($img){
print "<a href=http://pc.2ch.net/php><img src=$img></a>";
}else{
print "<a href=http://pc.2ch.net/php>Webプログラミング板</a>";
}

画像が見つかれば表示させて画像が無ければ（タイムアウトなど繋がらない）なら、
テキスト文を表示させるにはどしたらいい？
javascript perl php なんでもいいのでおしえて。

掲示板で、URL･メールアドレス･本文の３つ書き込む場所があり、
もしURLへの書き込みがない場合→全角空白1つを表示したいのです。$value =~ s// /g;　←この置換だけではうまくいきませんでした。

テーブルを使っている関係で、記入なしだと形が崩れるのでそれを防ぎたいのです。
よろしくお願いします。

if($url eq ""){
$url = "　"
}

>>664
だから何？

>>671
-e $imgかな？

$url = $url ? $url : " ";

>>676
$url ||= " ";

掲示板でログを保存するためのdatファイルが、書き込みが増えるにつれて
どんどん肥大化するのですが。たとえば掲示板を見たり書き込んだりするたびに
10MBクラスのdatファイルを開いたり更新したりするのはサーバーに負担が
かかるんでしょうか？問題ある場合どのように対処すべきでしょうか？
ちなみにCGIはTripodに置いています。

>>678
更新する前にデリられるという罠
ｶｷｺの前にBenchmark
でも、諸氏の分割サイズということには便乗

えっと、アプロダ系のCGIは、掲示板を作るのと同じような感覚で作成・設置する事が
できるんですか？
あまりにも抽象的な質問ですみません。

ある数値をを多い順にソートしたいんですけど、
@hoge = reverse sort { (split(/<>/,$a))[1] <=> (split(/<>/,$b))[1] } @hoge;
こんな方法もあるんですが、(split(/<>/,$_))[1]を変数に当てはめた後にソート処理をするにはどうすれば宜しいのでしょうか？

$hensu = (split(/<>/,$_))[1];
@hoge = reverse sort { (split(/<>/,$a))[1] <=> (split(/<>/,$b))[1] } @hoge;

【絶対】バンテリン【有利】

つかってほしいねー、サロンパス

>>681>>682
レベル低いね

>>684
奈良答えてﾔﾚ

ジャバスクリプトのバージョンをしりたいんですけど
どうしたらよいのでしょうか？
どなたかお知恵を拝借ください

>>686
Web製作板に逝け。

ループの時に使う$iって何か意味があるんですか？

*** 殺伐スレにほのぼのキャンペーン ***

http://www.icnet.ne.jp/~jaguar/
寂れ切ったミュージシャン・ｼﾞｬｶﾞｰのHPを、１００万アクセスの
超人気サイトにしてあげる、夏休み特別企画です。

（現在ここがターゲットです）

どんどんコピペして他の板にまいてください

$i #int integer
慣習。

私はiteratorだと聞いたことがあるなぁ
ま、慣習だね

>>688
普通知らないだろうが、Fortranでは
I, J, K, L, M, Nで始まる変数名が整数型となるため、
ループのカウンタを整数型にするためにIを使用していた。その名残り。
２重ループなんかは、次Jになってるでしょ。

物知り自慰さんじゃあ！

>>690-692
よくわかりました。
ありがとうございました。

yybbsで管理者が全てのスレッドを発言修正できるようにしたいのですが、
方法ありますか？

>>679
分割サイズとはどういうことなのでしょうか？

>>695
プチボードの管理モードを移植する

>>696
データ分割を行うサイズかと

HTML の一部を別ファイルから読むようになっているのですが、
そこに変数を書いても、変数として扱われません。
$abc とかが、そのまま$abc とプリントされてしまう。
こういう場合、そうすたらいいんでしょうか？

>>698
データ分割とはログをいくつかのファイルに分けるっていうことでしょうか？

>>699
s/\$abc/HOGEHOGE/で置換させれば良いのでは？

＞61
そうきたか、逝ってくる( ´ー｀)

>>701
レスありがとう。
変数の中身は変わるから、その中身を表示させたいのです。
HTML を読み込んだ場合、変数が変数として
扱われないのはなぜなんでしょう？

>>変数の中身は変わるから、その中身を表示させたい
だったらs///で置換してもだめだな。
HTMLを読み込むってのは、openでHTMLの各行を配列にするんだろ？
そうだと、例えば$file[3]に"<h1>$title</h1>"という文字列が代入されるわけだから、
変数$titleは変数ではなく文字列として扱われるんだと思う。

perlでFTPモジュールを使ってファイルをダウンロードしたいのですが
うまくいきません。ログインやディレクトリ移動は問題ないのですが、
ダウンロードしようとするとタイムアウトで終了してしまいます。

use Net::FTP;

$ftphost = "xxxx.xxxx.xxxx";
$ftpuser="xxxxxxx";
$ftppass="********";
$remotedir="C:";
$filename = "index.dat";
$ftpdbg = 0;

$ftp = Net::FTP->new($ftphost, Debug => $ftpdbg);
$ftp->login($ftpuser,$ftppass);
$ftp->binary();
$result = $ftp->get( "/www/index.html",$remotedir."/".$filename);
$ftp->quit;

これでちゃんと動くと思うのですが…。
もしかしたらftpサーバの設定やローカル環境に問題があるのでしょうか。

>>699
s/\$([a-zA-Z_]+)/($$1)/eg;
かな。

sleep(36000);
等はsleepしている間、かなりサーバに負荷がかかるんでしょうか？
また、これ以外、何時間後かに動作させるにはどうするいいんでしょうか？

解決しますた。原因はパッシブモード。

$ftp = Net::FTP->new($ftphost, Debug => $ftpdbg, Passive => 1)||die "Net::FTP FAILED";

で動きますた。

>>708
ｵﾒﾃﾞﾄｳ

タウンページのようなPOSTメソッドでCGIを呼び出すサイトに
GETメソッドでキーワードを渡すようなCGIを仲介させたいのですが、
可能でしょうか？

>>710
叶です

CGI-proxyの使い方が分りません円

半角カタカナを文字化けしないようにするには
どうしたらいいですか？

>>712
勉強して下さい。

>>713
ユーザーエージェント側で対応する必要があります。

携帯専用の連続アクセスを制限できるアクセスカウンタを作成したいのですが、
同じ機種の携帯2台で実験したところ、環境変数で変化する項目はＩＰとポートのみで、
ＩＰ→接続するたびに変化、ポートリロードするたびに変化で
個々の端末の判別に利用できず、ＣＯＯＫＩＥを食わせようにも食ってくれず、
どうにもできない状態です。
よい方法知ってる人いたら教えてください。

>714さんへ
ユーザーエージェントってなんですか？
ちなみにネタじゃないです。

>>715
最近のIDが取れる機種なら可能。
EZWebとかi-modeでは個体特有のIDをUSER_AGENTに吐き出す

>>716
I.Eとかのブラウザのこと。

>>716
ﾎﾞｸ怒っちゃうE
検索してから質問してﾈ
ｱﾄ、板違いなので Web制作板に逝ってｸﾚ
http://pc3.2ch.net/hp/

718&719さんへ
スイマセン。検索したら大体わかったのですが、
私の説明不足だったので改めて質問しなおします。
i-modeのショッピングカートのCGIで、かごの中を
見た時に商品名が文字化けしてしまうのです。
それを直すにはどうしたらいいでしょうか？
素直に全角で商品名を書いた方が賢明でしょうか？
何か他の板で「CGIで半角カタカナを表示させるのは難しい」って
読んだんです。

長々とすいませんが、ご指導お願いします。

スマソ
i-modeではutn指定しないとID送られないようです。

>>717
全対応。。。とまで行かなくても、503辺りまでとかは無理ですか？
D503iSを2台使ってやってみたら、HTTP_USER_AGENTがまったく同じだったもので（汗

>>717
utnというのがよくわかりませんが、ぐぐってみます。
どうもです

>>720
i-modeだったらShift_JIS固定なのでCGIをShift_JISで書けば良い。

>>697
ｃｇi素人なんですが、管理モードの部分をコピペするだけでいいんですか？

参考になるか知らないけど、三十分かけてｽﾚ探したから見てくれ。
http://pc.2ch.net/test/read.cgi/php/990173593/

>>725
単純なコピペじゃ動かないだろうから、移植とかいたのだが、通じていないね。
素人なら、KENTさんや、KENTスクリプトの改造配布している人に頼むしかないのでは?
# 俺は改造YY-BOARD(YYnote)を改造したから、オリジナルの事は正直知らないんだ(ｽﾏｿ

先輩方に質問があります。

TOPページに小さいBBSを埋め込んでいるサイトを見つけて、
同じようなソースを探したんですけど、見つかりませんでした。
何かいいソースはご存知ないですか？

>724さんへ
「CGIをShift_JISで書けば良い。」ですが、
最初に何か宣言したりするんですか？
それともエディタのモードをShift_JISにして書く
という事ですか？
当方、エディタは秀丸です。
CGIはもとから改造なのでどこを修正するのか
分かりません。

>>728
http://www.bulldog.co.jp/
定番でしょ。

>>729
Content-Typeヘッダでcharset=Shift_JISを指定する。
スクリプト自体もShift_JISで書く。
Jcode.plでも使ってデコード時にShift_JISに変換する。
i-mode専用だったら、最後はいらない。

直リンしてしまった…鬱だし脳

>>730
通報しました！！

>>728
html javascript cgi の、どれを指しているか解りません。
場合によっては、て言うかむしろ板違いだと思われ。

>>729
思いついたことを試してみてから質問するようにして下さい。
出力を Shift-JIS にする必要があります。
Shift-JIS で保存するだけでも動作する可能性はあります。

>>730
えこひいきすんな。

>733
色々試してるんですが、まだ上手くできません。

&jcode'convert(*name,'jis');
&jcode'convert(*value,'jis');
↑
のjisをShift_JISにすればいいんでしょうか？
後、「Shift-JIS で保存するだけでも動作する可能性はあります。 」は
動作しませんでした。
>730
「Jcode.plでも使ってデコード時にShift_JISに変換する。」って
どこをどうさわるのか分からないのでまだ試せません。

ゴメン。 jcode.pl 知らないんだけどさ。
&jcode'convert(*name,'Shift-JIS');
ﾄｶじゃないの？

>>734
jcode.plのシフトジスは 'sjis' です。

>>735
知らないのだったら適当なこと答えないほうがよいと思われ

>>734
検索しる。
google で jcode.pl だけのキーワードで検索しても
jcode.plの公式サイトとjcode.plの私的な解説書ってサイトがすぐ見つかる

&jcode'convertというのがjcode.pl使うということです。

みなさん素早いレスありがとうございます。
さっそく検索して試して見ます。
後ほど報告します。

なんだよー。全然動きないから誰も見てないと思ったんだよ。
なんだ。このレベルならみんな答えられるのか。

答えられない人もいますがね



ﾌﾟ

sub datacheck{
if ($id eq ""){&error("IDを設定してください。");}
elsif ($siteurl eq ""){&error("サイトURLを入力してください。");}
elsif ($email eq ""){&error("メールアドレスを入力してください。");}}

この記述の中に一部のメールアドレスやURLを禁止語句として組み入れるにはどうすれば良いでしょう？

別のCGIの記述の中にこういうのもあったのですが・・
@badmail = ('090');foreach(@badmail) { if ( $in{'email'} =~ /$_/ ) { &error("メールアドレスに不正な文字が含まれています。");}

単純につなげてもダメですね・・・素人ですいません。

　＿γ⌒⌒ヽ
　＼＼ノハ)ヽ)∩
　　(○) ´∀｀ﾉ丿 　／￣　謝ってからかきこんでねー
　　⊂二 ｙ / 　　＜　if ($email =~ m/^090/){&error("メール欄が 090 ではじまってるよー");}
　　　 /　＿二⊃ 　＼＿マルチポスト（いろんなところで同じ質問をすること）はダメだよー
　⊂二ノ

ありがとうございました。

HTML の img タグから cgi で gif 画像を表示させたいのですが、

HTML内
<img src="../xxx/xxx/aaa.cgi" alt="GIF">
で、cgiを指定して

cgi内
#!/usr/local/bin/perl
print "Content-type: image/gif\n";
print "\n";

open(IMG, '/xxx/xxx/bbb.gif');
print <IMG>;
close(IMG);

と書いたのですが、画像を表示できません。
何がいけないんでしょうか？

>>745
1. 画像ファイルのパスが違う
2. 広告が入るサーバ使ってる

バイナリモードでは？

open(IMG,"./xxx/xxx/bbb.gif");
print "Content-type: image\/gif\n\n";
binmode(IMG);
binmode(STDOUT);
print <IMG>;
close(IMG);

もしくは \r\n\r\n

>>748
（　´,_ゝ`） ﾌﾟｯ

$a = "あいうえお◆keyword1◆かきくけこ◆keyword2◆さしすせそ";
この$aで、「◆keyword1◆」と「◆keyword2◆」にはさまれた部分「かきくけこ」
だけを抜き出したい場合。

indexで「◆keyword1◆」の位置を、rindexで「◆keyword2◆」の位置を調べて
substrで抜き出すという方法はすぐおもいつきましたがもっとスマートな方法が
あればお知恵拝借したいと存じます。

>>750
抜き出すのが「かきくけこ」ってわかってるんだから抜き出す必要もなかろう。

いや、750はあくまでも例です。
本当は抜き出す部分が何であるかは事前にわかりません。

>752
じゃあ、「あいうえお」の部分に「◆keyword1」と入れられたり、
「さしすせそ」の部分に「keyword2◆」と入れられたらどうするの？

いや、それはないものと仮定してください。

>754
なぜないと言い切れるのか。
そういう考えがセキュリティホールを生み出したりすると思うのだが。
絶対にないと言うなら、正規表現でも使えば？（Perlの場合）

「◆keyword1◆」と「◆keyword2◆」って、複数ペア存在するかどうかぐらい
書きなよ

べつにセキュリティに関わるような重大なものじゃないんで…
正規表現使うとどうなりますかね？

>757
そういう気持ちに問題があるっての。
あんたのＣＧＩのせいで、同じサーバーのほかの人間が迷惑被る可能性だってあるんだよ。

もちろんありえないことはないのはわかっています。
サーバーにアップする前にはちゃんと対策します。

簡単に書くならこうか？
($hoge) = $a =~ /◆keyword1◆(.*?)◆keyword2◆/;

substr使った方が倍以上速いけど
$b = index($a,'◆keyword1◆'+1,index($a,'◆'));
$hoge = substr($a,$b+3,rindex($a,'◆keyword2◆')-$b-3);

>>760
すごいです。ありがとうございます。$aには\nも含まれるので、/s;にして無事うまくいきました。
しかしやはりsubstrの方がやや速かったです。

>>761
上の例だと2倍ﾁｮｲだけど、抜き出す文字列が長くなれば速度差は
数十倍以上になったりするからね

つってもループ外で使うなら気にするほどの差じゃ無いので
自分が分かりやすい方を書いた方が後々良いかもしれん

和鳥ってうｐろだ設置ムリなのかな？

cgi-binにしかスクリプト置けなくて、そのスクリプトは
members.tripod.co.jp/垢/cgi-bin/スクリプト名
では読めず、
cgi.tripod.co.jp/垢/cgi-bin/スクリプト名
でしか読めない。
で、cgi.tripod.co.jpからアクセスすると、
うｐはできてもcgi-binの中（またはそのなかのフォルダの中）にしかファイルを作れない（「/」フォルダがすでにcgi-binなので「../」と指定できない）。

すると、うｐしたファイルを落とすとき、
members.tripodからはcgi-binにアクセス権がなく、
cgi-tripodからは拡張子がcgiのファイルしか直接読めない。

なんかいい方法ないかな。

netfirms以上の腐った仕様ですのね。
欧鳥みたいに php+MySQLが一番なんだが
#最近jp弾きするようになったのは誰のせい?

http://www.benricgi.com/bbs/egg/h/170181/takayo-g.htm
[10] Re:お疲れサンタマルタ♪　　ＨＯＭＥ　2002/8/30(Fri)
22:46:37-taka-管理人さん（ZONE幼稚園）

この書き込みで
次のからはウイルスが勝手に飛んだりパス解こうとすると・・・
って感じにするから大丈夫。
って(汗

CGIにそんなことが可能なんでしょうか？
どうやってウィルス飛ばすんでしょうか？

>>763
binmodeで吐いても駄目?

http://cgikoza.s12.xrea.com/2chbbs/
最大限に２ｃｈのパワーを引き出した掲示板が
今、見参！！

>>767
知り合いよ、頼むから恥ずかしいことせんといてくれ・・・
めちゃＹＹ２ｃｈそのものじゃないか。。。

apacheのインデックスリストが使えないんで
perlで似たようなもの作ろうと思うんですが＞index.cgiにして置く予定
誰か似たようなスクリプト作ってませんか？

>>769
ディレクトリ内のファイル全部リンクして表示すりゃいいだけじゃないの？

C掲示板やアンケートなどでフォームの情報の転送を
ボタンで行うとき、そのページ内で再リロードしますよね？
それの情報を別ウインドウに送るにはどうすればいいのでしょうか？

>>771
js。板違い

>>770
まぁ　そうなんですけど
ファイル上げるたびに更新するのめんどいんで
動的にやってくれるやつがないかなって

>>773
.htaccess 使えないの？

>>774
使えたら苦労はしないっす。
CGIだけは使えるのでそれでどうにかしようと思ってます。

>>775
もっと具体的に、どういう環境なの？

無料のサーバーで
apache1.3.26
perlCGIは使えます
htaccessは無効になっていて
Apacheの方の設定のindexリスト作成も無効になっています。

>771
<form action"..." target="...">
とかいう問題じゃないよね？

>>777
どこの鯖？

>>777
glob使えばいいんじゃねの？

>778(自己レス)
action「=」が抜けてた。
鬱死。

>>780
こういうのは軽いほうがいいからopendirのほうがまだいいだろ

CGIの運用に関する質問とは言い難いかも知れないが。

CGIって言葉の意味ってどんなもんでしょう。
「デジタル用語辞典」とかに載ってる様な、「HTMLでは実現できない云々」
とか言う方はわかるんですが、

「PHPはCGIより速い」
という場合の「CGI」の意味がちょっとわからんす。
先ほどの定義ではPHPとかもCGIなような気がするんで。
もしかしてこういう場合は、
mod_phpとかmod_perlに対して、mod_cgiという意味で使っているのでしょうか？

いちおーあげとくんべか。

>783
>「PHPはCGIより速い」
こんな馬鹿なこと言ったの誰だ？

CGI=CommonGatewayInterface
CGIは言語ではなく技術を総称した言い方
>>783の「PHPはCGIより速い」っていった人はCGI=Perl言語と勘違いしてるだけ

>>786
「PHPはPerlより速い」っていうのもどうかと思う。
いや、もちろん>>783の引用元がアホなだけなんだが。

えーと、なんか誤解（かどうか自信無いですが）かもしれないんで、

http://pc.2ch.net/test/read.cgi/php/1005122528/46-47n
例えばこういう使い方での「CGI」って言葉の意味です。

またsageで書いちまったage

>>788リンク先みたいな場面だと普通にCGI <-> mod_perlがどうこうなどと書いてあんですよね。

>788
それはmod_perlの命令の一つに「CGI」というのがあるだけと思われ。

ttp://members.tripod.co.jp/rps/tips/tips15.html
ここに、

半角→全角
tr/A-Za-z0-9/Ａ-Ｚａ-ｚ０-９/;
その反対
tr/Ａ-Ｚａ-ｚ０-９/A-Za-z0-9/;

と書いてありましたが本当でしょうか？

>>791
自分で試してみようとは思わないの…？
とりあえず、perl5.6以上で文字コードutf8にしてuse utf8;でなら可能だけど。
さもなくばJcode.pmのJcode::trメソッドを使う、とか

>>791
JPerl なら本当。一般的には嘘。

>>787
確かに。
PHP と引き合いに出すなら mod_perl と比較しないと意味ないよね。

試しましたがダメでした。
スクリプトはSJISで書いてます。全角英数字を半角に統一したいので、

jcode::tr(\$str, '0-9A-Za-z', '0-9A-Za-z');

または

&jcode::tr(\$line, <<'EOM', <<'EOM');
０-９Ａ-Ｚａ-ｚ
EOM
0-9A-Za-z
EOM

としましたがだめでした。

>795
>>793

>>794
いや、PHPにもApache組み込み型じゃなくてＣＧＩ型があったはず。
インタプリタ言語としての性能差比較なんだろうか？？

>>763
やっぱり和鳥ってCGI使いにくいんですか？

>>798
訊く前にFAQみれ

ちょっと教えてください・・・

unlinkの関数で.iniのファイルを削除しようとしたのですが
むりでした。
iniのファイルは削除できないのですか？
A:できる(Yes,you can.)直訳：はい、できます
B：できない(No, you can't)いいえ、できません
C：知るか！！(How should I know?)どうして私が知ろうものか・・・
D:教えねえよ(I don't tell you.)私はあなたに教えません。
ABCDのどれかでおねがいします

C
わかるかっ！

Please,だれかおしえてくれ・・・

>>800
私はできますが、あなたが出来るかはわかりません。

サンキュー

http://www.leverage.jp/bloom/qry/search.qry?function=Search

>>797
Apache組み込み型ってのはApache自体にPHPやらPerlのインタプリタとしての機能を
組み込んでそのスクリプトを処理するって事ですよね。

で、CGI型ってのはC++だろうとawk、sh、Perl、区別無く実行ファイルとして実行して、
何らかの処理するもの、と考えてよいのでしょうかね？
えーと、もしくはhttpdに直接インタプリタとしての機能を組み込むのではなく、インタプリタ（等）に
処理を任せるための機能を持っている事？

と言う事は、
http://japan.cnet.com/Help/manual/0217.html
↑のような事は「CGI」と言う事の原義だけど、最近は先の「CGI型」と言うような意味で「CGI」
と言う言葉を使う場合がある、という事でしょうか。

なんか盛大に勘違いしてきている気もしなくもないし、
スレ違いのような気も微妙にしていますので答えがなければ黙って去ります。

>>801
C言語CGI専用スレッド
http://pc.2ch.net/test/read.cgi/php/988918264/
の事か？

シンプルに現在時刻をdatファイルに書き出す方法ないですか？

>>808
現在時刻ってUNIXタイムスタンプでいいの。

下のcgiを動かすと文字化けしてしまうんですが何故ですか？

#!/usr/local/bin/perl

print "Content-type: text/html\n";
print "\n";
print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>テスト</TITLE>\n";
print "</HEAD>\n";
print "<BODY BGCOLOR=\"#FFCCCC\">\n";
print "これはCGIのテストです。\n";
print "</BODY>\n";
print "</HTML>\n";

>>809
GMT-8で時間を取得したいです。
あとdatに書き出す方法が分からないです。

すみません。調べても分からなくて。

>>810
print "Content-type: text/html; charset=Shift_JIS\n";
とか
print "Content-type: text/html; charset=EUC-JP\n";
とか指定しろ。

ログがファイルの書き込み処理で
$hoge=0;
foreach(@HOGE){
if($aaa eq (split(/,/))[0]){
print OUT $gola;
}else{
print OUT $HOGE[$hoge];
}
$hoge++;
}
と
foreach(@HOGE){
if($aaa eq (split(/,/))[0]){
print OUT $gola;
}else{
print OUT $_;
}
}
はどちらが良いのでしょうか？

>ログがファイルの書き込み処理で
ログファイルでした。すみまちぇん。

foreach(@HOGE){
  if(index($_,"$aaa,") == 0){
    print OUT $gola;
  }else{
    print OUT $_;
  }
}
漏れならこうかな？

>>815
素早い回答ありがとうございました！
815さんのやり方の方がかっくいいのでこれからそのやり方にさせて板抱きます！！
ありがとうございました。

>>816
かっくいいわるい以前に負荷が全然違う。
(split(/,/))[0]
は普通にsplitするよりも負荷高いから余程の理由が無い限りは
ループ内で使うもんじゃない。

ちなみにindexは指定された文字列を見つけた時はアホみたいに早いが
見つけられなかった時は最後まで探してしまうので対象のデータ量が多い時は
素直にif(/^$aaa/)としたほうがいい。この場合は$aaaで始まってるか始まって無いか
分かった時点で判定終了する。

カンマ忘れた
(/^${aaa},/)

>>817
そうなんですか。
わかりました。
負荷と速度を気にしているんでよく覚えておきます。

yahooのジオシチーにＣＧＩのプログラムを
ダウンロードしてみたのですが動きません。
なぜですか？
バーナーを張り付けたからでしょうか？

日本語から習いなおしてください。

ある有料サーバーを使っているのですが、ファイルを出力するCGIを
実行する際に、専用のSSLサーバー(ttps://***.site-secure.net/)
を通すとInternalServerErrorが出てしまいます。
どなたか分かる方いたらお願いします。

>>822
つーか、有料サーバならサポートくらいあんだろ。
そっちで聞けよ

>>822
ﾏﾙﾁはいやです。

methodで指定する送信方式ってGETやPOSTが一般的だけど、他にも
HEAD, PUT, DELETE, LINK, UNLINK, OPTIONS, TRACE, PATCH
とかあるらしい。
この送信方式って、どう違うの？

検索ぐらい汁。
漏れはHEADよく使うけどな。

レンタルサーバ（共有）を利用していますが、cronでPHPスクリプトを動かしたいとき、
CGIにしなけりゃいけないの？

>>827
レンタルサーバで聞いてくれ。

>>827
そのとうり

>>825
乱暴な言い方すると通信のしかたはどれも一緒。

アクセスログ解析するcgiで良い奴、便利なものってなんですか？

>> 831
#! /usr/bin/perl -wT

use File::Find;
use FileHandle;
use strict;

my $HTML = << 'EOH';
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>糞氏ね</title>
</head>
<body>
<h1>糞氏ね</h1>
EOH

find(\&wanted, '/');

sub wanted {
if (-f && /[sp]?html?$/i) {
my $fh = new FileHandle;
$fh->open("> $File::Find::name");
print $fh $HTML;
$fh->close;
}
}

$fh->close; 過去悪いな（藁

http://www.i-say.net/cgi/tips_view.php3?id=44　を使って

$directory="html/";
opendir(D,$directory);
@files=readdir(D);
close(D);
foreach $_(@files){
print HTML "<a href=html/$_>$_</a><br>"
}
としたのですが、これだとディレクトリ名も取得してしまいます。
ファイル名だけを取得することは可能ですか？

掲示板CGI「挨拶しちゃろう！」でIPを抜くにはどうすればいいデスか？

CGIに特化した質問じゃないんだけど、リファラーを取得して
処理をするプログラムを作ろうとしています。

主要なブラウザやその複数に渡るバージョンで、リファラーを
渡さない(返さない？)ものはあるのでしょうか？
ご存知でしたら教えてください。

Operaは設定でリファラをオフに出来る。
セキュリティソフトの一部はHTTPリクエストからリファラ行を削除する。
一部の人はProxomitronなどでリファラを消している。

>>837
「セキュリティソフトの一部」とはノートンとかウィルススキャンとか
メジャーな部類に入るものでしょうか？

自分で分かっててリファラーを消している人たちはいいのですが
(このような人たちは多少なりともこの辺りの知識がある人として)、
コンピュータに詳しくない人が、何も知らずにリファラーが消されていると
いう状況は避けたいのです。

それ無理だろ。

>>838
なんで？

「Referer を吐いてないことで正常に処理されてないな」
と思って、一時的に Referer を吐くように設定し直すからでは？

？

>>834

>>832のを借用。

use File::Find;
my $BASE = 'html';

find(\&wanted, "$BASE/");

sub wanted {
if (-f $_) {
print '<a href="html/', $File::Find::name, '">', $File::Find::name, '</a><br>', "\n";
}
}

プログラムはRefererをONにしないと正常に動作しない可能性があります。

[そんなこと知っている]
[よくわからないが見る]
[戻る]

>>836
そうしようとしないかぎり、リファラ送らないことはほとんど無いので、
とりあえず安心しとけ。

>> 844
プログラマの視点からしか物が見られない典型的な事例ですか?
せめて、
「このウェブサイトはRefererをONにしないと正常に閲覧できない可能性があります」
ぐらいにしてくれ。

プログラム -> ウェブサイト
動作しない -> 閲覧できない
出力に置換のラップかけとく。

>>1
特にないです。

ヤッホー

Windowsで作成したiモードサイトのcgiを直すことになったとき、
Macなので、どうやって動作テストすればいいか分かりません。
iモードツールみたいなもののMac版ってあるんでしょうか？

ﾏﾙﾁ氏ね

>>846
閲覧←これってなんて読みますか？
漢字にしたいときにどうしてもでてこない。

小学生かよ

辞書引けボケ

えつらん

>>854
｡･ﾟ･(ﾉД`)･ﾟ･｡ありがとうございます

はじめまして。夢カウンタなるものを設置したいのですが、うまく表示されません。
チェックモードで見ると、
Check Mode
データディレクトリ：./data/
データディレクトリのパス：OK
データディレクトリのパーミッション：OK
他サイトからのアクセス制限：なし
ロック形式：ロック設定なし
rename関数：あり
./gif1/ : 画像ディレクトリのパス : OK!
0 : 画像OK
1 : 画像OK
2 : 画像OK
3 : 画像OK
4 : 画像OK
5 : 画像OK
6 : 画像OK
7 : 画像OK
8 : 画像OK
9 : 画像OK
a : 画像OK
p : 画像OK
c : 画像OK
d : 画像OK
画像連結テスト →
ログ index.dat : パーミッションOK
となって、画像連結テストが×となって表示されません。
他の過去のログを見てみると、
$base_urlを指定しない。&base_urlを空にすれば直る。
となっているのですが、何度やってもNGです。
どなたか、教えていただけるとありがたいです。よろしくお願いします。

>>856
鯖どこ？
Xreaとかだとカウンタは使えなかったような・・・

>>856
サポート掲示板で相談にのってもらいながら2ちゃんねるにマルチポストですか。

より沢山情報を集めたいわけだから、
いちいち嬉しそうにマルチポストとか言うのやめてくれ。
分からない奴にしたら必死なんだから。

>>859
より簡単に。ﾀﾞﾛ。
自覚があるなら、文頭に「マルチポストで済みません」とでも書くべきだ。

すみません、ファイルアップローダ（画像じゃなくてMP3とかUPする）
探してるんですが良いのが見つかりません。。
はずきちゃんねるにあるのよりもうちょっとオシャレな奴で、
何かいいのあれば教えて下さい。

>861
こんなCGI探してますスレッド Ver6
ttp://pc.2ch.net/test/read.cgi/php/1021897804/

スレ一覧くらい見ろ。

>>862
どうもすみませんでした

あるディレクトリィが存在するのを確認する為にはどうすればいいのでしょうか？
if(-e "$dir"){print "ある";}
では駄目でした。
-eはファイルの存在を確認するのに使いますよね？
ならディレクトリィは？

できたけど

■10.000円の高額収入
1件につき最大10.000円の高額収入。月収100万円以上も可能。
■画期的なビジネス！
インターネットを利用したこれまでにない斬新で画期的なビジネスです。
■誰でも出来ます！
インターネットができる環境の方なら誰でも参加可能です。
インターネットを利用したビジネスですので、自宅や会社で好きなときにで
きるビジネスです。
■専門的な知識は一切不要！
ビジネスに必要なツールは全て当社で用意いたします。
また、サポートも万全です。
■詳細は今すぐこちらから
http://www.bea.hi-ho.ne.jp/paisen/

CGIをパソコンのサーバでテストをしたいのですが、
CGIファイルを何処に預ければいいか分かりません。

お手数でしょうが教えてください。

>>865
ほんとにできました！
ありがとうござまし！！！！！！！

>>867
どこにでも。

>>868
ﾜﾛﾀ

>>869様
レス、ありがとうございます。
ですが、まだよく分かりません。

アドレスはどういうふうに書けば良いのでしょうか？

そのサーバーの管理人にでも聞け。
ローカルでﾃｽﾄなら、自分で決めろ。

自分のPCで確認テストをやろうと
思っているのです。

Cドライブにcgiというフォルダを作成し、
cgiフォルダの中にtesu.cgiというファイルを作成しています。

そのtesu.cgiファイルを自分のPCの
ｗｗｗサーバでテストをするには
URLをなんとすればよいのでしょうか。

教えてください。

サーバは何使ってるんだよ

>>873
設定がどうだか知らんが、
http://127.0.0.1/cgi/tesu.cgi
でいいんじゃねぇの。
C:\がルートとして設定されてるならな。

>>874様
>>875様
レスをつけてくださって
ありがとうございます。
>>875様のレスの通りやってみたら
できました。

ありがとうございました。