CGIだけど、なんか質問ある？ Part 6
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
02/07/06 13:41ID:Mpxtn4bk※CGIは特定の言語に依存するものではありません。
※Perlのコーディングに関する質問は専用スレがありますのでそちらでお願いします。
↓
Perl 初心者コーナー Part13
http://pc.2ch.net/test/read.cgi/php/1022731565/l50
過去ログ・関連スレッドは >>2
0598nobodyさん
02/08/20 00:56ID:???Cやったことある？
要するに、「定義されてない変数が出てきたよ」ってこと。
my ($dir, $url, @data, $style);
とかやるか、（推奨）
use strict;
↑の行を探して削除するか、どっちか。
0599592
02/08/20 01:16ID:???Global symbol 〜 についてのエラー表示は出なくなりました。以後気をつけます。
593さん、598さんありがとうございました。
しかし、
[rand_img.cgi:21:die] Can't open: home/自分のＩＤ/public_html/nantoka/style.
は依然として残っています。
これは home/・・・/style ディレクトリを開くことが出来なかったということはわかるのですが
なぜ開けないのでしょうか・・・
パーミッションのチェックはしましたが、問題はありませんでした。
教えて君ですいません。
0600nobodyさん
02/08/20 01:19ID:hbbe/bFq0602nobodyさん
02/08/20 01:51ID:???JavaScriptのほうがややこしいと思っていたら
ＣＧＩも結局２ｃｈで聞いている現状という罠
0603602=592
02/08/20 01:52ID:???0607nobodyさん
02/08/20 19:38ID:???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 );
0609nobodyさん
02/08/20 20:59ID:???>608
氏ね
0610nobodyさん
02/08/20 22:31ID:???するのが良いですかね？ 何からやりはじめればCGIを操れるようになりますかね?
プロの皆さんは何の知識を得ることからはじめましたか？
0611nobodyさん
02/08/20 23:08ID:???0612nobodyさん
02/08/21 06:23ID:???0613ヤッシー ◆akL9r.oU
02/08/21 15:11ID:BtbltLri$form = $FORM{'form'};
$log =~ s/$form/<b>$form<\/b>/g;
print $log;
$logに、ログファイルから読み込んだ全データをぶち込んで、
$logに、ユーザーがフォームから送信してきた$formの文字列が含まれていたら、その文字列を太字にして表示する、という仕組みのＣＧＩを作りました。
ここまでは完成したんですが、$logを、英数大文字・小文字関係なく検索させたいんです。
どうすれば、大小文字関係無く検索できるようになりますか？
お返事よろしくお願いします。
0614ヤッシー ◆akL9r.oU
02/08/21 15:25ID:BtbltLri僕も>>612さんと同じように、ＫＥＮＴ氏製掲示板を見たりこぴぺしてどう稼動するのか確かめて覚えてきました。
http://tohoho.wakusei.ne.jp/wwwperl1.htm
とほほ氏のページです。色々なプロの方が読まれているようです。
http://tohoho.wakusei.ne.jp/wwwperl2.htm
リファレンスは、多少慣れてきたらど〜ぞ。
0616ヤッシー ◆akL9r.oU
02/08/21 15:51ID:vNJ2y6lWすみません、リファレンスで検索しても見つからないので、わかりません。
もうすこし詳しく教えていただけませんでしょうか…すみません。
0617nobodyさん
02/08/21 16:45ID:???0618nobodyさん
02/08/21 16:53ID:???0619マム
02/08/21 19:11ID:AE2ns9S9MIDIを公開するためにジュークボックス的な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は、大黒屋さんの方を使いたいと思っているのですが、どこをどういう風にしたら
音が停止しないようになるのか教えてください。宜しくお願いします。
0621nobodyさん
02/08/21 19:22ID:S1N5lHPtDBI,DBD::ODBCで接続でき、コマンドプロンプトで実行すると結果が表示されるのですが、WEBからアクセスすると「'C:\wwwroot\cgi-bin\test.cgi' script produced no output 」と表示されます。
多分IISの設定だと思うのですが、変更箇所が分かりません。
よろしくお願いします。
0623マム
02/08/21 21:54ID:AE2ns9S9教えていただいたら、すぐに消えます。HTMLの問題であれば、どういう風にすれば
いいのか、それだけを教えてください。
お願いします
0625nobodyさん
02/08/21 22:09ID:???この板はサーバサイドプログラミングの話をするところなの。
それぞれの板で専門分野が決まってて、そこで話すのがルールなの。
HTMLの話は↓でしてるよ。
http://pc3.2ch.net/hp/
ルールは守ってね。
0626マム
02/08/21 22:22ID:AE2ns9S90628マム
02/08/22 03:35ID:cGCA+Ih9ありがとうございました。あなただけでした。ちゃんと回答してくれたのは。
624さんには大変感謝です。問題も解決しました。
こんな２ちゃんねるみたいなところでもちゃんと回答してくれる人がいるん
ですね。お礼だけ言わせてください。
ありがとう624さん。
あと、なんかこの２ちゃんねるの板のルールもわかんないで書き込んだので
私も悪かったです。今日はじめて書き込みしたんで。
とにかく624さんには感謝してます。ありがとう
0629nobodyさん
02/08/22 05:41ID:???0630nobodyさん
02/08/22 06:15ID:???0631nobodyさん
02/08/22 15:21ID:OD++zTqzんで、普通に投稿ボタンを押したら「設定エラー．データ保存用ファイル$tmp_file"が見つかりません．自動作成を試みましたができませんでした。
処理は中断されました．」って出ました。cgi-binのフォルダの中にcgiとか置いてるし
パーミッションもちゃんと設定されているハズなんですが・・・。
どうすればいいでしょうか？
0632nobodyさん
02/08/22 15:29ID:???ディレクトリって分かるか？
ファイル作るディレクトリの権限を757にするか実行ファイルをsuid
0633nobodyさん
02/08/22 15:34ID:OD++zTqz0634nobodyさん
02/08/22 15:34ID:OD++zTqz0635nobodyさん
02/08/22 15:39ID:???だったら気にするな
>ディレクトリ
フォルダの事、検索な
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
これ以上やると荒れそうだから退散する
0636nobodyさん
02/08/22 15:50ID:???FTPで、upboard.cgiとかのパミを設定しただろ？ 755とか701に?
それと同じ様に cgi-bin/hogehoge/ と設置したのなら
hogehogeのパーミッションを緩めて行けば良いよ
それでもダメならcgi-binから順番に緩めて行くといい
頑張れよ、もう書かないから
0637nobodyさん
02/08/22 16:05ID:???img-boxフォルダの属性を777
0638超初心者
02/08/22 16:41ID:???で配布されている物を設置したくhttp://www.xrea.com/にアカウントをとって
うｐしたんですが、うまくいきません。
今現在http://camion.s15.xrea.com/x/test/admin.cgiなっています
パーミッションはフォルダ：755 .cgi.pl：700です
いったい何がいけないのでしょう？
0640超初心者
02/08/22 17:06ID:???0641nobodyさん
02/08/22 17:08ID:???0642nobodyさん
02/08/22 17:11ID:???Error Number: 2
て、そのまんまの意味では。
0643スクリプトエラー
02/08/23 17:49ID:uC6hG1TtプログラムをWEBサーバにアップすると「ScriptError」と表示されてしまい動かないのです。
自分のノートパソコンではきちんと動いてくれるのですが・・・・・。どのような事が原因でこのような事が起こるのでしょうか？。
0644nobodyさん
02/08/23 17:50ID:N5Ib5rbJ教えてください。
何回かやったけど無理でした。
0646nobodyさん
02/08/23 18:29ID:N5Ib5rbJ$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;
}
0647スクリプトエラー
02/08/23 18:51ID:uC6hG1Tt掲示板に書かれた言葉を置換するCGIプログラム（Perl）です。
http://dosv.s10.xrea.com/test/keijiban-hyouji_cgi.txt
http://dosv.s10.xrea.com/test/keijiban-toukou_cgi.txt
0648nobodyさん
02/08/23 18:57ID:???× $url = http://○.com;
○ $url = 'http://○.com';
× if (host_name = *******) {
○ if ($host_name = *******) {
0649648 訂正
02/08/23 18:58ID:???○ if ($host_name eq '*******'){
0650644
02/08/23 20:07ID:N5Ib5rbJhttp 500 鯖エラーが出ます。
なぜでしょう？
0651nobodyさん
02/08/23 20:25ID:???○ print "Location: $url\n\n";
これかな？
0652nobodyさん
02/08/23 20:34ID:???なんか FORM 作るの面倒だから試してないけど。
動くみたいだから、転送に失敗したか、パーミッションくらいしか思いつかん。
にしても >>646 さんは優しいのね。
0653652
02/08/23 20:44ID:???$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; }
0654スクリプトエラー
02/08/23 20:51ID:uC6hG1Ttそれが動いてくれないんです(T_T)。
転送もきちんと出来てるし、パーミッションもきちんと設定したのになぁ〜。
謎です。
▼入力フォームです。
http://dosv.s10.xrea.com/test/toukou.html
0656nobodyさん
02/08/23 22:03ID:???×EUC
○euc-jp
0657nobodyさん
02/08/23 22:06ID:???例えば、80番ポートが開いていたらアクセスを拒否するとか。
よろしくお願いします。
0659nobodyさん
02/08/23 22:26ID:???http://taruo.net/e/?
ﾄｶ
0660スクリプトエラー
02/08/23 23:36ID:uC6hG1Ttflockは使えます。
>>656
持っている書籍通りにしたはずなんですけど、違うんですね。直しておきます(^^;
0664nobodyさん
02/08/24 13:54ID:???0665スクリプトエラー
02/08/24 14:54ID:8HRWTAMTそれはないと思います。今アップロードしてもスクリプトエラーでしたから。
0667nobodyさん
02/08/24 15:04ID:???0669644
02/08/24 20:57ID:sqmHF1Toえと、指定のホストの奴を飛ばすことは出来ました。
が、今度は、それ以外の人を、また別のところへ飛ばすにはどうすればよいのでしょうか？
0671nobodyさん
02/08/25 17:13ID:???$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 なんでもいいのでおしえて。
0672672
02/08/25 19:38ID:???もしURLへの書き込みがない場合→全角空白1つを表示したいのです。$value =~ s// /g; ←この置換だけではうまくいきませんでした。
テーブルを使っている関係で、記入なしだと形が崩れるのでそれを防ぎたいのです。
よろしくお願いします。
0673nobodyさん
02/08/25 19:43ID:???$url = " "
}
0674657
02/08/25 22:08ID:5Sl7GuzDだから何？
0678nobodyさん
02/08/26 01:50ID:UjnC3nLSどんどん肥大化するのですが。たとえば掲示板を見たり書き込んだりするたびに
10MBクラスのdatファイルを開いたり更新したりするのはサーバーに負担が
かかるんでしょうか？問題ある場合どのように対処すべきでしょうか？
ちなみにCGIはTripodに置いています。
0680nobodyさん
02/08/26 08:15ID:???できるんですか？
あまりにも抽象的な質問ですみません。
0681nobodyさん
02/08/26 13:27ID:WJ0ASq8o@hoge = reverse sort { (split(/<>/,$a))[1] <=> (split(/<>/,$b))[1] } @hoge;
こんな方法もあるんですが、(split(/<>/,$_))[1]を変数に当てはめた後にソート処理をするにはどうすれば宜しいのでしょうか？
0682nobodyさん
02/08/26 13:37ID:???@hoge = reverse sort { (split(/<>/,$a))[1] <=> (split(/<>/,$b))[1] } @hoge;
0683nobodyさん
02/08/26 14:03ID:TifdgD6oつかってほしいねー、サロンパス
0686困ったチャン
02/08/26 16:20ID:???どうしたらよいのでしょうか？
どなたかお知恵を拝借ください
0688nobodyさん
02/08/26 20:53ID:???0689nobodyさん
02/08/26 20:55ID:???http://www.icnet.ne.jp/~jaguar/
寂れ切ったミュージシャン・ｼﾞｬｶﾞｰのHPを、１００万アクセスの
超人気サイトにしてあげる、夏休み特別企画です。
（現在ここがターゲットです）
どんどんコピペして他の板にまいてください
0690nobodyさん
02/08/26 21:22ID:???慣習。
0692nobodyさん
02/08/26 21:27ID:???普通知らないだろうが、Fortranでは
I, J, K, L, M, Nで始まる変数名が整数型となるため、
ループのカウンタを整数型にするためにIを使用していた。その名残り。
２重ループなんかは、次Jになってるでしょ。
0693nobodyさん
02/08/26 21:29ID:???0695nobodyさん
02/08/27 00:20ID:???方法ありますか？
0696nobodyさん
02/08/27 00:32ID:q0U4FNMc分割サイズとはどういうことなのでしょうか？
0697nobodyさん
02/08/27 01:02ID:CX5s0ackプチボードの管理モードを移植する
■ このスレッドは過去ログ倉庫に格納されています