自作CGIを評価するスレ

自作CGIを評価するスレ (672ﾚｽ)
上下前次 1-新

1(4): Premature end of script headers : /this/thread 03/04/05 12:47 ID:tIET0nhf(1) AAS
自分の作ったCGIをみんなに評価してもらうスレだよ。言語は問わないよ。
よほどプログラムが短くないかぎりはアプロダにでもアップしてね。

546(2): 540 04/10/09 05:35 ID:??? AAS
>>544
どうもありがとう。foreachは普通に使えるんだろうけど、
大抵forで済ませてしまうのです。言い方悪かったです、スイマセン。

>>545
ありがとうございます。

>ループないで初期化してないとフィールドの数が少ない時に困るよ。
というのは、forのループ内で undef(%hush); (ほんとはhashでしたw)
でいいですか？
あと、フィールドの数が少ない時というのはどういうことでしょうか？

>split/::/の代わりに正規表現を使ってデータを切り出すと
どう書いたらいいのか思いつきません。宜しかったらご教授下さい。

>chompはデータ格納前に済ませておいた方が良いんじゃないかな。
そうですね。

open(FH,"file_name");
@tmp = <FH>;
chomp(@tmp);
close(FH);

547: 541 04/10/09 11:14 ID:??? AAS
言いたかったのはforeach (@ref)にしろよってことね
別にfor (@ref)でもいいかもしれんが
あと>>543読んだか？ myは複数宣言するときは()いる

>>546
>ループ内で初期化
for(hoge){
my %hash;
statement;
}
こういう事だと思う

548(1): 540 04/10/09 12:28 ID:??? AAS
my () つけなくてもエラー出てないです。　という事は
省略も可って事ではないでしょうか？

549: 04/10/09 14:26 ID:??? AAS
>>548
エラーにならないのは strict 'vars' 宣言が無いからだ。
my $foo, $bar, $baz; という文自体は文法的には間違いじゃないが、
my は , より優先順位が高いので、my($foo), $bar, $baz; と書くのと
等価になる。

#--- test.p ---
my $foo, $bar, $baz;
print defined $main::{$_} ? "'$_' is global.\n" : "'$_' is rexical.\n"
　　for qw(foo bar baz);
__END__

> perl -w test.p
Parentheses missing around "my" list at test.p line 1.
Useless use of a variable in void context at test.p line 1.
Useless use of a variable in void context at test.p line 1.
Name "main::bar" used only once: possible typo at test.p line 1.
Name "main::baz" used only once: possible typo at test.p line 1.
'foo' is rexical.
'bar' is global.
'baz' is global.

550(1): 04/10/09 17:41 ID:??? AAS
>>546
> あと、フィールドの数が少ない時というのはどういうことでしょうか？
これは、今回のケースでは問題なかったです。

でも、変数を再利用する時は気を付けないと、前の値が残っていたり、
意図しない場所の値を書き換えてしまったりするので注意。
例えば、pushの所を \%hash とりファレンスを使うように変更した場合。

my (@ref, %hash);
foreach (@_) {
# @refの中の前の値を上書きすることになる
# {%hash}とした場合は、@refにはいってる値はコピーなので影響ない
@hash[qw/title time contents/] = split/::/;
push(@ref, \%hash);
}

my (@ref);
foreach (@_) {
my %hash;
@hash[qw/title time contents/] = split/::/;
# {%hash} でも期待通りに動作するが、余分なコピーを生成
push(@ref, \%hash);
}

速度とかを重視するなら >>540 が効率良さそうだけど、(多分)
バグとかみつかった場合に変数のスコープが広いと特定するのが困難になる。

>>542
> my は複数でも()いりませんよ。バージョンによるだろうけど
他の方に指摘のある通り。
最低限 use strict; use warnings;(もしくは -w) を宣言してないとPerlは教えてくれない。

551(1): 04/10/09 18:04 ID:??? AAS
ここってものすごいでかいスクリプトでも細かい所まで見てくれるの？

552: 04/10/09 18:09 ID:??? AAS
>>550 何かおかしな日本語だった。訂正
s/他の方に/他の方からも/

あと、正規表現を使った方法を書き忘れてたのでついでに、、
例えば time が整数の場合の例

if (/^(.+)::(\d+)::(.+)$/) {
@hash{qw/title time contents/} = ($1, $2, $3)
}

553(1): 04/10/09 19:39 ID:??? AAS
>>551
読むに耐えうる書き方＆内容ならな。
KENTレベルなら却下

554: 04/10/09 22:16 ID:??? AAS
>>553
オブジェクト指向とか頑張ってやってみたけど中途半端になったようなのでも大丈夫ですか？

555: 04/10/09 22:37 ID:??? AAS
何書いたって叩かれるんだから、結城出していいと思う

556: 540 04/10/09 23:53 ID:??? AAS
ほんとにこんなに色々な方が、教えてくださるとは思ってませんでした。
どうもありがとうございます。
特にエレガントな方法を教えてくださった５４２氏
ハイレベルな（少なくとも今の私には）指摘をしてくれた
５４５＝５５０＝５５２氏には感謝します。
その他あのようなケチなコードに意見を下さった方々ありがとう。

またお世話になるかもしれません。m(_ _)m

557(1): 04/10/10 20:44 ID:??? AAS
> my は複数でも()いりませんよ。バージョンによるだろうけど
> 最後に、今更foreach使ってる人いるんですか？w
こんなこと言うやつはもう来なくていい

558(1): 540 04/10/11 01:40 ID:21NinhME(1) AAS
ごめんね

559: 04/10/11 09:04 ID:??? AAS
>>558
とっとと消えろ

560: 04/10/18 16:42 ID:??? AAS
>>557
同意。

561(1): かぼ 04/10/22 19:30 ID:EM8OHCfb(1) AAS
評価お願いします。
外部ﾘﾝｸ[cgi]:members14.tsukaeru.net

562: 04/10/22 20:13 ID:??? AAS
>>561
コード晒せって馬鹿

563(4): 05/01/23 00:46 ID:vqv+/2ig(1) AAS
誘導されてきました。
評価というか不具合の問題です

初めてperl書いてみました。
簡易的な計算のプログラムを作ってみたんですがうまく動作しません。

ちょっと見て頂き、不具合等御指摘下さい
特定の計算式で、入力（1項目だけセレクトボックスにより選択）した数値を計算するものです。

ソース
外部ﾘﾝｸ[jsp]:tool-ya.ddo.jp

URL
外部ﾘﾝｸ[html]:sr-cafe.chu.jp

564: 05/01/23 03:00 ID:3FhDUp9J(1) AAS
>>563
ｿｰｽはﾏﾝﾄﾞｸｻｲのでちゃんと読んでないけど、
文字コードと改行コードの問題の様な希ｶﾞｽ。

565: 05/01/23 13:10 ID:??? AAS
>>563
calc.html

×　<SELECT name="set" name="s1">
○　<SELECT name="s1">

566(4): 05/01/23 20:04 ID:??? AAS
>>563
ReadFormData(*FORM);　→　%FORM=&ReadFormData;
print <<END_OF_DATA;　→　print <<"END_OF_DATA";
Content-type: text/html;　→　Content-type: text/html\n\n

以下　sub ReadFormDataの修正
local(*FORM) = @_;　→　my %FORM=();
local($buf, $tmp, $name, $value);　→　my($buf, $tmp, $name, $value);
return %FORM;　←　最後に追加

567: 05/01/24 11:42 ID:YsLCruPH(1) AAS
>>566
改行コード２つとダブルクォーテーション必要無くね？

568: 05/01/24 12:10 ID:??? AAS
\n\nはいらんね。
ヒアドキュメントのダブルクォートはどちらかというとあったほうが・・・

569(2): 563 05/01/25 02:27 ID:??? AAS
ありがとうございます。
>>566サンの通りにしたり、色々試してるんですがまだ動かないです…
printが閉まってなくてフォームの値を処理出来てないんでしょうか…

570: 05/01/25 04:00 ID:??? AAS
>>569
うちのサーバでスクリプト試したんだけどちゃんと動くぜ。
おまい、サーバに嫌われてるんだ。きっと。

問題は　print <<END_OF_DATA 〜 END_OF_DATA　までか、
まさかと思うがパーミッションか、perlの指定。

一度　print <<END_OF_DATA 〜 END_OF_DATA　を
たいした行数じゃないんだし、print "〜\n"; に置き換えてみ。
それからコメント行やめろ。余計見づらくなる。

571(1): 566 05/01/25 04:01 ID:??? AAS
>>569
今試したら566の変更だけで動いたわけだが。
Content-typeの行はそのままでも良いみたい。
動かないとしたらCGIの設置方法の問題。
まさかとは思うがローカルでテストしてるよね？

572(1): 05/01/25 04:03 ID:??? AAS
→まさかとは思ってない法則

573(1): 566 05/01/25 04:07 ID:??? AAS
つーか563のソースのままでも、ちゃんと結果出るじゃん。
問題はコードではない予感。

574(1): 05/01/25 04:14 ID:??? AAS
>>573
経験で言うとさ、ヒアドキュメントはサーバの機嫌で、最初はうまく動作して
くれないことがある。Cookieなんか入れるとどうも変なんだよな。
そういうとき俺はメンドーでも print "〜\n" に置換えてやる。すると、あとは
「ヒアドキュメントでも読込んでやるかぁ」ってことでサーバは折り合ってくれる。

575: 05/01/25 04:27 ID:??? AAS
>>574
コンピュータに機嫌も何もねーだろ。

576(1): 05/01/25 04:34 ID:??? AAS
いや、あるんだって。コード書く時も、こうした方が処理が楽だろ、とか
ムリしなくっていいから、とか気を使ってやると機嫌よくなる。ほんとだぜ。

577: 05/01/25 06:20 ID:??? AAS
>>576
お前が何も分かって無いだけ

578(1): 05/01/25 06:47 ID:??? AAS
577はコード丸写しで自作CGIと称してるだろｗ。
多かれ少なかれ576のような感じはあるな。

579: 05/01/25 17:47 ID:??? AAS
>>578
お前が何も分かって無いだけ

580: 05/01/27 18:28 ID:??? AAS
皆さん本当スイマセンでした！
パーミッションの所為だった…
元のままでも566のコードでもどちらでも動きました。

>>571-572
そのとおりです。
ローカルでテスト出来るという事すら知りませんでした。
勉強します。

581(1): 2005/06/06(月)19:56 ID:??? AAS
AA省

582: 2005/06/06(月)23:03 ID:??? AAS
>>581
お前の親父ﾀﾞｻｲな

583: 2005/09/21(水)17:05 ID:54UaWl8q(1) AAS
age

584: 2006/05/18(木)17:31 ID:Ip4qBE+B(1) AAS
外部ﾘﾝｸ[zip]:c.hibi.info
どなたか評価(清書？)お願いします_ _
指定されたスレの中から前日から当日までの既定の時間にあるレスを抽出して、
そのレスから株価コードを抜き出し株価の前日比、前日比率でソートしランキングを作成した後スレに書き込むツールです。
2chへの書き込み時のCookiee処理に曖昧な点があるのと、処理の最適化をして貰えると嬉しいです。
宜しくお願いします_ _

585(2): 2006/05/18(木)22:33 ID:??? AAS
他のスレから来ました。
Perlで他のサイトを取得して表示したいと思っています。
（著作権侵害とかそういうことをしたいのではないです）

お時間のある方にお願いしますが、次のコードで@niftyのトップページを取得してみたら
どうなるか教えていただけませんでしょうか？

print "Content-Type: text/html\n";
print "\n";
use LWP::Simple;
print get( '外部ﾘﾝｸ:www.nifty.com );

私のところだと、ブラウザ上での表示がぐちゃぐちゃになるんですが…。

586: 2006/05/18(木)22:56 ID:??? AAS
>585
マルチポストすんな

587: ◆AOxf8.Tmck 2006/05/18(木)23:03 ID:??? AAS
>>585は私じゃないです。スルーしてください。

588: 2006/06/06(火)15:21 ID:Re1RmuFG(1) AAS
簡易予定表のようなものを組んでみたんですが、なんだかモッサリしてる気がします。
もっと簡潔に書けるような気がするんですが自分ではこれが限界でした。
あと、ファイルロックのやり方が合っているのか自信がありません。
一応動いていることは動いているんですが、問題はないでしょうか。
改良すべき点、根本的にこういう書き方に直した方が良い、とかあればアドバイスお願いします。
大まかな内容は以下のようなものです。

予定として保存する内容は「予定日（月と日）」と
「予定内容（長くても200バイト程度）」の２つでフォームから渡します。
予定を保存するファイルは月単位で作成します。
例えば2006年6月の予定の場合なら「200606.txt」というファイル名です。
保存するファイルがないときはその都度作成し、

6月1日

6月2日

6月3日
.
.
.
という風に日付だけを先に入れておきます。
保存するファイルがあるときは、
フォームから渡された「予定日」とマッチした日付の次の行に「予定内容」を書き込みます。

内容は以上です。次レスにコードを晒します。

589(4): 2006/06/06(火)15:22 ID:??? AAS
# 保存するファイル名
$a = sprintf("%04d%02d",$YEAR,$MON)
$file = "$a.txt";

# 月から日数を出す
if($MON == 1|3|5|7|8|10|12){
$m = 31;
}elsif($MON == 4|6|9|11){
$m = 30;
}else{
if($YEAR % 4 ==0){
$m = 29;
}else{
$m = 28;
}
}

for($i=1;$i<=$m;$i++){
$date .= "$MON月$i日\r\n\r\n";
}

590: 後半 2006/06/06(火)15:23 ID:??? AAS
# 該当する月のファイルがなければ作成
if(!open(IN,"$file")){
open(OUT,">$file")
flock(OUT,2);
print OUT $date;
close(OUT);
}
open(IN,"$file");
flock(IN,2);
@A = <IN>;
close(IN);

# 「予定日」とファイル内の「日付」をマッチングさせて該当日付に「予定内容」を書き込む
$loop = @A;
$i = 0;

while($loop > 0){
if($A[$i] eq $plan_day){# $plan_day = "フォームからの情報（予定日）";
$A[$i] .= "$plan_value\r\n";# $plan_value = "フォームからの情報（予定内容）";
}
$loop --;
$i ++;
}

if(!open(OUT, "+< $file")){&error;};
flock(OUT, 2);
truncate(OUT, 0);
seek(OUT, 0, 0);
print OUT @A;
close(OUT);

591(1): 2006/06/06(火)15:45 ID:??? AAS
>>589
まだちゃんと読んでないが…。

>if($MON == 1|3|5|7|8|10|12){
>}elsif($MON == 4|6|9|11){
これって比べてるのは、両方とも $MON == 15 だよね。
どっちの条件にも入らないと思うけど…正しく動作してるの？

592(1): 2006/06/06(火)15:51 ID:??? AAS
>$a = sprintf("%04d%02d",$YEAR,$MON)
セミコロンは？
動作するヤツうｐ

593: 2006/06/06(火)15:52 ID:??? AAS
ビット演算子を使っているんだ。
高度だな。

594(1): 2006/06/06(火)16:09 ID:??? AAS
switch文を使うと見やすいんじゃないかな？

use Switch

switch ($MON) {
case [1,3,5,7,8,10,12] { $m = 31 }
case [4,6,9,11] { $m = 30 }
case [2] { $m = $YEAR % 4 ? 28 : 29 }
else { print "そんな月知らん" }
}

595: 589 2006/06/06(火)16:39 ID:??? AAS
レス遅くなりました。すみません。
該当部分を切り出して動作するコードをUPしてきます。

596(1): 589 2006/06/06(火)17:02 ID:??? AAS
外部ﾘﾝｸ[zip]:up.isp.2ch.net
UPしました。パスは「589」です。
日付のところは594さんのアドバイスにしたがって書き換えました。
アドバイスの方よろしくお願いします。

597: 589 2006/06/06(火)17:11 ID:??? AAS
>>591 >>592
コードの一部分だけ抜き出してできるだけ短く書こうとしたので
分かりにくかった&書き損じがありました。すみませんでした。

>>594
perlでもswitchが使えるとは知りませんでした。

598: 2006/06/06(火)17:20 ID:??? AAS
いやperlではswitchは使えない。

599: 2006/06/06(火)17:24 ID:??? AAS
Switch なんてモジュールがあるのか知らんかった。

600: 2006/06/06(火)18:59 ID:??? AAS
cgi-lib.pl ｋｔｋｒ

601: 2006/06/07(水)00:26 ID:??? AAS
PerlはPHPとは違ってCPANを探せば考えられる大体の車輪は既にある。

602: 2006/06/20(火)01:54 ID:jChy1x4Z(1) AAS
>>596
見れない・・

603: 2006/07/08(土)12:44 ID:hGiPCYN9(1) AAS
switchがあったとは・・・

604: 2006/07/21(金)16:23 ID:BWWkPiVe(1) AAS
外部ﾘﾝｸ[cgi]:cgi37.plala.or.jp

605: 2006/10/07(土)10:40 ID:L17fbc1O(1) AAS
＠＠＠

606(5): 2006/10/11(水)22:51 ID:e5FQIx7N(1/2) AAS
特定の板のスレタイ検索をして、選んだスレから画像とかのサムネイルを表示するスクリプトを書いてみまｽた(・ω・｀)
恐ろしく見づらいと重いまｽが・・
外部ﾘﾝｸ:vip.ty.land.to

2chｽﾚ:php
でﾎﾞﾁﾎﾞﾁいじくったり、新しいことやったりしていきたいと思ってまｽが、評価して欲しいｽ(・ω・｀)
勉強かねてるので、車輪の再開発なのは承知でｽ

607(1): 2006/10/11(水)23:36 ID:??? AAS
>>606
言葉遣い荒いけど、ばーっと書いた弊害なので許して。
取りあえずぱっとみてこんなもん。
・一部のうｐろだは、リファラが不味いと弾かれる。
・画像がない場合の画像を一々作るのは無駄。
・CGIモジュール使え。
・グローバル変数も宣言しろ。
・これは好みだけど、設定の変数はハッシュに纏めた方が分かりやすいこともある。
・メインの流れはブロック作ってラベル付けた方が分かりやすいかも。
・正規表現の|は案外コストがかかる。配列にしてマッチング。
・先頭にrequire バージョン名;
・use warningsは〜？
・汚染チェックもきれい好きな方にはオススメ。
・サブルーチンを先頭で宣言して欲しい。
・変数名に日本語はいやん。
・データーベースつかってほすぃ。

608: 2006/10/11(水)23:42 ID:e5FQIx7N(2/2) AAS
>>607
おぉぉぉﾚｽもらえたｽ(；ω；｀)ｱﾘｶﾞﾀｲ
感謝しまｽ！

>・正規表現の|は案外コストがかかる。配列にしてマッチング。
>・先頭にrequire バージョン名;
>・use warningsは〜？
>・サブルーチンを先頭で宣言して欲しい。
良くわからないｽ(・ω・｀)

>・変数名に日本語はいやん。
英語苦手ｽ・・・毎度翻訳ｽかね・・頑張るｽ

>・データーベースつかってほすぃ。
現在勉強中でｽ！
生暖かい目で見守ってやってくださいｽ・・(・ω・｀)

やっぱレベル高い人の意見は参考になるｽ！
文句なし！って言われるようなものをいつか作りたいｽ(・ω・｀)thnkｽ

609(2): 2006/10/12(木)04:41 ID:??? AAS
>>606
うる覚えなんだが
if($i_m_f){
use Image::Magick;
}
これって意味ないんじゃなかったっけ？
$i_m_fが真ならImage::Magickを使うって事なんだろうけど、
この書き方だと$i_m_fが偽でもImage::Magick呼ぶんじゃなかったっけ？
識者の方ﾚｽよろ

ﾌｧｲﾙﾊﾝﾄﾞﾙは大文字で

最後から10行目くらい@cache[$i]は$cache[$i]じゃないの？

print文中の"をｴｽｹｰﾌﾟするんならprint qq|ここに"文章"|;
こーすりゃいちいちｴｽｹｰﾌﾟしなくておｋ

610(1): 606 2006/10/12(木)09:44 ID:??? AAS
>>609
ｻﾝｸｽ

>最後から10行目くらい@cache[$i]は$cache[$i]じゃないの？
どちらも同じ意味だったはず
(若干の差はあるかもだが、使い方に大差なしでは？)

>print文中の"をｴｽｹｰﾌﾟするんならprint qq|ここに"文章"|;
>こーすりゃいちいちｴｽｹｰﾌﾟしなくておｋ
ｍｊｄｓｋ！？
次から挑戦してみる

色々アドバイスやら素敵な解決策をありがとう

611: 2006/10/12(木)13:46 ID:??? AAS
useするかどうか切り替えたいなら
BEGIN{}で囲ったほうがいいな。

612(1): 2006/10/12(木)22:51 ID:??? AAS
>>609
>うる覚えなんだが
外部ﾘﾝｸ[html]:www.tt.rim.or.jp

> これって意味ないんじゃなかったっけ？
外部ﾘﾝｸ[pod]:perldoc.jp

> ﾌｧｲﾙﾊﾝﾄﾞﾙは大文字で
bareword で扱わず変数で取り回す方が今風。
外部ﾘﾝｸ[html]:www.kt.rim.or.jp

>>610
> どちらも同じ意味だったはず
外部ﾘﾝｸ[html]:www.kt.rim.or.jp

613(4): ◆.PT9876/4U [sake] 2006/11/06(月)17:44 ID:??? AAS
あちこちから routin をかき集めて自作しました :
alter.s225.xrea.com/cgi/bbs/read.cgi?log=0

1. 評価と言うよりも bug のあぶり出しを希望します.
2. 操作がわかりづらいとの意見があります.
　率直なご意見をお願いいたします
3. 自信がないのが security 関連

･念のため, 全ファイルを upload しておきます:
alter.s225.xrea.com/bbs.zip

614: 2006/11/06(月)18:17 ID:??? AAS
>>612
URLが長すぎて横スクロールでた。
ふざけんな改行しろこのボンクラっ！

615: 2006/11/07(火)08:23 ID:??? AAS
IDなんだしもっと短く付けろよなｗ
文章そのままって酷すぎるｗ

616: 2006/11/08(水)01:06 ID:??? AAS
>>613
ちょっとエキサイト翻訳チックだな

617(1): ◆.PT9876/4U [sake] 2006/11/08(水)06:15 ID:??? AAS
>>613
お返事ありがと〜.
でも, どういう意味かしら ?

誘導されて来たのにいまだに誰も...
どうなってるの ?

618(1): 2006/11/08(水)10:54 ID:??? AAS
>>617
「とても読めたもんじゃない」
ということではないでしょうか。
613は釣りとしか思えない。
CGI以前の問題ね。

619: ◆.PT9876/4U [sake] 2006/11/08(水)18:47 ID:??? AAS
>>618
>CGI以前の問題ね
確かに... JavaScrit の bug がぁ〜〜〜
(絶対に書き込めない)
おまけに... WaMCom (Mozilla1.31) では問題とならなかった error が
IE5.17(Mac版) では発生して処理が止まる〜〜〜.

>613は釣りとしか思えない
釣りではありませぬ.

僕の環境で確認できる bug は退治しました.
引き続きあら探しをお願いいたしまする〜.

620(1): 2006/11/08(水)20:37 ID:??? AAS
つっこみどころが多すぎるなぁ…。

まず、「何を作ったのか」という概要や大まかな処理の流れすら書いてない。
>評価と言うよりも bug のあぶり出しを希望します.
評価するスレ。デバッグする所ではない。てか、デバッグなめすぎ。
>操作がわかりづらいとの...
具体的にはどういう操作？
>自信がないのが security 関連
どのファイルの何行目のどういう処理？
>JavaScrit の bug がぁ
JavaScritのスレへどうぞ。
>WaMCom (Mozilla1.31) では問題とならなかった error が
>IE5.17(Mac版) では発生して処理が止まる
と書いていながら
>僕の環境で確認できる bug は退治しました
ってどうよ。

何より、CGIについて無学なのがバレバレです。
背伸びせずPerlからでもきちんとお勉強しましょう。

621(3): 2006/11/08(水)20:38 ID:??? AAS
これさぁ、変数の検査とか書き込む条件とかまったくないじゃん。
最低でも変なファイル作られないようにするとか異常にでかい投稿は
書き込まないようにするとかしないと。
叩き専門の人にとっては叩く必要もないほどへなちょこだけど
プログラムに日本語を含めないつくりはいいと思う。
プロでもソースのいたるところに日本語を埋め込む人はいるからね。
ぶっちゃけそれくらいしか褒めようがないんだけどｗ

nullぽっぽはもしかしてOperaメインなの？

622(1): 2006/11/08(水)21:25 ID:??? AAS
>>613
まずはuse strict及びuse warnings、
また-Tオプションを付けてエラーが出なくなってから来てください。

623(1): 2006/11/09(木)02:37 ID:??? AAS
nullはｸﾗｼｯｸMacのiCab使いだった筈。

624: 2006/11/09(木)05:11 ID:Rlngnc6w(1) AAS
まず, 皆さんにお礼を...
ありがとうごぜ〜ますだ.

>>620
一応, 掲示板 CGI script (のつもり)

>デバッグする所ではない
言葉を間違えたかも ?
debug を他人に依頼するようでは問題外だと思っております.
動作はするけれど server 利用者に迷惑を書けるような
security hole に気づいていないかも知れない.
そんな問題があったら指摘して欲しかったですだ.

>>621
>変数の検査とか書き込む条件とかまったくないじゃん
おおせの通りです.
ようするに書きこみの部分を改良しなければならないのね ?
で, read.cgi の方はどうでしょう ?
人に迷惑を書けるような security hole があったならご指摘くださいませ.

>CGIについて無学なのがバレバレです
弁解の余地もありません.
でも, 半端者の僕が言うのもアレですが
拾って来れるものには満足できなかったのら.
そもそも perl ってできの悪い土台に無理な建て増しをした印象が...

625: ◆.PT9876/4U [sake] 2006/11/09(木)05:37 ID:??? AAS
>>621
>プログラムに日本語を含めないつくりはいいと思う
日本語を書きこむと文字化けするのでwww (僕の環境は一般的でない)
僕なりにいろいろ拾って来て解読を試みました.
その時, "皮肉にも comment が見通しを悪くしている" と思ったの.
徹底的に簡素化するのが先決だと...

> nullぽっぽはもしかしてOperaメインなの？
MacOS9.22 上でまともに動く Opera はなさそうです.
現在は WaMCom(Mozilla1.31+) がメインですだ.
動作確認に iCab, IE も立ち上げることがありますが,
あくまでも参考程度です.

>>622
メモメモ...

>>623
今では動作確認の参考程度ですだ.
改良されたかと思うと別の不具合が発生するのが許せません.

626: ◆.PT9876/4U [sake] 2006/11/09(木)05:47 ID:??? AAS
ところで rgst.cgi で変なファイルを作れる可能性って ?
(これこそが最も知りたいところ)
量の制限は早急に対処したいと思いますが...

627: 2006/11/09(木)16:01 ID:??? AAS
nullは呼んでない

628: 2006/11/09(木)17:48 ID:??? AAS
>>621
日本語コメントのどこが問題なの？

629: 2006/11/09(木)19:51 ID:??? AAS
利用者から見えない変数名、関数名を縮める意味があるのかと小一時間。

630: 2006/11/09(木)22:54 ID:??? AAS
Perlにケチつけるまえに自分の頭の程度を疑えよな

631: 2006/11/09(木)23:12 ID:??? AAS
日本語のコメントを入れないのが良いって…
なにその英語はカッコイイ、日本語はダサいっていう中学生ｗｗｗｗｗ

それに、日本人なんだから直感的にわかりやすい日本語で注釈をつけておくのが、
あとを引き続く人へのマナーだと思うんだが。

632: 2006/11/09(木)23:15 ID:??? AAS
English is cool!!

633(1): ◆.PT9876/4U [sake] 2006/11/09(木)23:35 ID:??? AAS
予想していたとはいえ, ボロボロだなぁ.
まあ, 他人様に使ってもらおうとするのならそれなりの配慮が必要だろう.
しかし, 僕は自分のために作ったんだ.
最低限, 同じ server 利用者に迷惑を書けない配慮をすれば済む話なんだ.

僕が知りたかったのはその部分に問題があるかどうかなんだけど,
話はあらぬ方向に...

634(1): 2006/11/09(木)23:45 ID:??? AAS
率直に言ってゴミ．基本から勉強し直した方がいい．
というかまずは普通の学校の勉強を頑張った方がいい．

635(1): 2006/11/09(木)23:46 ID:??? AAS
ひとつだけヒントを．

> read(STDIN,$u,$ENV{'CONTENT_LENGTH'});

たとえ寝ぼけて他としてもこの一行を書いてしまうようでは CGI 書くのは辞め
た方がいい．

636: 2006/11/10(金)03:57 ID:??? AAS
プログラムの途中に文字列リテラルを埋め込むな、というなら解らないでもない。
ただ、それは日本語に限った事じゃないな。

637(4): ◆.PT9876/4U [sake] 2006/11/10(金)06:34 ID:??? AAS
>>634
んじゃ〜ゴミでない script を書いてくらはい.
あっしはそれを使わせていただきますだ. (イヒヒ)

>>635
>この一行を書いてしまうようでは CGI 書くのは辞めた方がいい
して, その理由は ?
それと read.cgi に security hole はないのかどうかが知りたいのだけどなぁ.

-------------------------------------------------------------------
なんだか僕の質問にきちんと答えた回答はない.
ここを当てにした僕が愚か者ってことですかい ?

638(1): 2006/11/10(金)07:10 ID:??? AAS
まだ分かってないみたいだね．

>>この一行を書いてしまうようでは CGI 書くのは辞めた方がいい
>して, その理由は ?
セキュリティホールになるから．理由は自分の頭で考えなさい．

>それと read.cgi に security hole はないのかどうかが知りたいのだけどなぁ.
当然ある．

639(1): 2006/11/10(金)07:14 ID:??? AAS
>>637
よく分かっていないようだからキミがすべきことを具体的に言おう。
スクリプト冒頭の#!/usr/local/bin/perlを、
#!/usr/local/bin/perl -T
use strict;
use warnings;
に書き換えてデバッグしなさい。

640: 2006/11/10(金)11:09 ID:??? AAS
n　u　l　l　は　出　て　行　け

641(1): 2006/11/10(金)11:30 ID:??? AAS
>>633 >>637でカンマを多用したり、
>>638でドットを使ったり、
キモチワルイ。流行ってるのか？

というかプログラマのくせに
「、」や「。」の代わりに「,」「.」使う奴って
なんだかなぁ…

642(1): 2006/11/10(金)11:46 ID:??? AAS
＞read(STDIN,$u,$ENV{'CONTENT_LENGTH'});

この一行は書いてもいいよ。その前の行で$ENV{'CONTENT_LENGTH'}の最大値を
決めてチェックしていればね。

643: 606 2006/11/10(金)12:23 ID:??? AAS
>>637
人に物事を頼む態度じゃないよね？
こっちはみんな善意で見てるってこと忘れてる？
嫌なら他行ったら？

最初に自分で書いてたみたいだけど、他人のソースのつぎはぎスクリプトでしょ？
何の価値があるの？
まずはダサくてもきちんと問題なく動く物を作ることからじゃない？

利用者のことを考えないスクリプトなんて糞だと思います。

644: 606 2006/11/10(金)12:26 ID:??? AAS
ちなみにおいらのほうは、鯖が不調で繋がりません。
どうにもならんのでしばらく放置〜

まだ様子見てくれてる人とかいるのだろうか･･･
もし居たら感謝

645: 2006/11/10(金)14:20 ID:??? AAS
自分がよく理解していない言語で書いたプログラムを
なぜ共用サーバーで使おうと思えるのか、その神経が理解できない。
プログラムよりも、その意識や存在自体が危険。

646(1): 2006/11/10(金)16:16 ID:??? AAS
>>637
>なんだか僕の質問にきちんと答えた回答はない
「きちんと答えた回答」があることにさえ気付けてないだけ。
自分の無知を棚に上げておきながら、
コードに目を通してマジレスしてくれた住人に対して
>ここを当てにした僕が愚か者ってことですかい？
とは随分とご挨拶だな。

ま、オレが見た限りでは
お前の掲示板CGIscriptには何のsecurity holeもないよ。
安心して使って良い。オレが保証する。

647: 2006/11/10(金)16:46 ID:??? AAS
>>646
ちょｗｗおまｗｗｗ

648: 2006/11/10(金)19:08 ID:??? AAS
でも実際「大丈夫、何の問題もないよ」としかレスされてなかったら、
ということを◆.PT9876/4Uは考えてみた方が良い。
645も指摘してる通り、今の時点では自分にその言葉が正しいのかどうかすらも
判断できないのに、共用サーバーで自作CGIを使おうとしていることがどれだけ危険か考えてみろ。
極端なことを言えば、それらしい説明があって「これを書き足した方が良い」と言われれば、
それが危険なコードであっても追記してしまうんじゃないのか？

少なくともこれだけマジレスしてくれたり
お世辞にも読みやすいとは言えないようなコードを読んでくれただけでも感謝すべきなのに
「まずこれをやれ」と言われたことはやらず、
自分のレベルの低さを指摘されると反省するどころか逆ギレして
637のような皮肉と煽りに満ちたようなレスしかできないことを恥ずかしいとは思わないのか？

649: ◆.PT9876/4U [sake] 2006/11/10(金)19:14 ID:??? AAS
うわっ, お祭りになってる〜 (~_~)
(突っ込まれると思った global variable の突っ込みはなぜかないのね)

>>639
なるほろ...
さっそく確かめてみますだ〜.

>>642
おありがとうごぜますだ〜.

650: ◆.PT9876/4U [sake] 2006/11/10(金)19:29 ID:??? AAS
なんだか怒ってる人が居るみたいだけど,
こういうときは百計逃げるにしかず... (ぴゅ〜)

651: 2006/11/10(金)19:36 ID:??? AAS
36

652: [age] 2006/11/10(金)20:12 ID:??? AAS
age

653: 2006/11/10(金)20:53 ID:??? AAS
サブルーチンの宣言ってなんじゃらほい？
スクリプトが見れないし何の事を言ってるのかわからんち。

>>641
理系の論文はそういう仕様らしいぞ。

654: 2006/11/10(金)20:57 ID:??? AAS
情報系の大学院でまともな教育受けた人間なら気持ち悪いとは思わない気がする．
気持ち悪がるのは専門学校程度しか行けなかったやつか基本をろくに知らない文系プログラマじゃね？

655: 2006/11/10(金)21:14 ID:??? AAS
おかしいな、ここは日本語で話しをする場所じゃなかったのか？
いつから自分の投稿を論文調で発表する場になったんだ？

とりあえず、読みづらい。
読み手を考えないのは、物づくりで使い手を考えないのと同じ。
邪魔

656: 2006/11/10(金)21:28 ID:??? AAS
あれだ、脳内補完で「,」も「.」も消し去っていた件

657(1): 2006/11/10(金)21:39 ID:??? AAS
別にそんなに気にする程のことでもないだろ。
ウザイのは句読点じゃなくてnullの存在なだけなんだし。

658: 2006/11/10(金)22:29 ID:??? AAS
>>657
激しく同意

659: ◆.PT9876/4U [sake] 2006/11/10(金)23:42 ID:??? AAS
どういされてたまるか !
どうでもいいけど...
いや, やめておこう...
...

660(2): 2006/11/10(金)23:53 ID:l2n6SZM/(1) AAS
sub file_read {
my $a = $_[0];
open( FH , $a );
while (<FH>) {
print;
}
close FH;
}
こんなサブルーチンを作ったのですがうまく動きません
なぜですか？

661: 2006/11/11(土)00:48 ID:??? AAS
>>660
スレ違い

662: 2006/11/15(水)22:13 ID:??? AAS
>>660
スレ違いにも程がある。これはまぎれもなく板違いでもない！
ドメイン違いの質問だ。よそのドメインいけ

663: 2006/12/04(月)16:34 ID:??? AAS
さすがに句読点でいちゃもんをつけるのはどうかと思う。

664: 2010/02/26(金)22:46 ID:1vcgNIKQ(1/2) AAS
ping

665(1): ○~ 2010/02/26(金)23:15 ID:1vcgNIKQ(2/2) AAS
性懲りもなく, 評価依頼:
　外部ﾘﾝｸ:homepage2.nifty.com

･以前指摘された部分には一応, 対策を施したつもりっす.
･ CGI は perl script で, HTML の代わりに外部 js ファイルを吐き出す仕様.
　(Ajax と違って, web-browser の影響がなく, 文字コードの問題も回避できる)
･ script 内の HTML 記述が皆無なので見通しが良く, 動作も軽快.

ただ, 注意して作ったつもりですが,
見落とした bug が潜んでいる可能性が大きいっす.

666: 忍法帖【Lv=6,xxxP】 2011/10/14(金)19:38 ID:5RDtymiP(1) AAS
そして誰にも相手にされず>>665は1年が経ったのであった
　　　　　　　　　　　　　　　　　　　　　糸冬わり

667: 忍法帖【Lv=40,xxxPT】(1+0：8) 【24.4m】電脳プリオン ◆3YKmpu7JR7Ic 2012/09/30(日)15:48 ID:??? AAS
AA省

668: カタヤマ 2013/12/31(火)01:08 ID:NACGwKVa(1) AAS
宇土成

うまく逃げたな

669: 2017/12/30(土)13:06 ID:YhlYw6jg(1) AAS
誰でも簡単にネットで稼げる方法など
参考までに、
⇒　『半藤のブブイウイウレレ』というサイトで見ることができます。

グーグル検索⇒『半藤のブブイウイウレレ』

8CQR9BVF30

670: 2018/02/20(火)04:34 ID:??? AAS
☆ 日本の、改憲を行いましょう。現在、衆議員と参議院の
両院で、改憲議員が３分の２を超えております。
『憲法改正国民投票法』、でググってみてください。国会の発議は
すでに可能です。平和は勝ち取るものです。お願い致します。☆☆

671: 2018/06/20(水)23:23 ID:UnZq46Ab(1) AAS
プログラミングを誰でも習得できる方法は、「前場アキドルのプログラミングマスター方法」というブログで見られるらしいよ。ネットで調べると見られるらしいです。

OT97Q

672: 2023/09/24(日)04:27 ID:??? AAS
ハイテンションプリーズ！

上下前次 1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.372s*