自作CGIを評価するスレ (672ﾚｽ)
上下前次1-新
550(1): 04/10/09 17:41 ID:??? AAS
>>546
> あと、フィールドの数が少ない時というのはどういうことでしょうか？
これは、今回のケースでは問題なかったです。
でも、変数を再利用する時は気を付けないと、前の値が残っていたり、
意図しない場所の値を書き換えてしまったりするので注意。
例えば、pushの所を \%hash とりファレンスを使うように変更した場合。
my (@ref, %hash);
foreach (@_) {
# @refの中の前の値を上書きすることになる
# {%hash}とした場合は、@refにはいってる値はコピーなので影響ない
省16
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が閉まってなくてフォームの値を処理出来てないんでしょうか…
上下前次1-新書関写板覧索設栞歴
あと 103 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 1.127s*