自作CGIを評価するスレ

**Premature end of script headers : /this/thread** · 03/04/05 12:47

自分の作ったCGIをみんなに評価してもらうスレだよ。言語は問わないよ。
よほどプログラムが短くないかぎりはアプロダにでもアップしてね。

**nobodyさん** · 04/01/18 02:22

ところで、ちゃんと評価してるのって最初のほうだけだね。

**nobodyさん** · 04/01/18 03:41

>>521
・ここは見た目じゃなくコードを評価するスレだ。
・use strict; しろ。
・perlstyle 読め。
・デカいの持ってきても面倒だから読まんぞ。

…のどれかに該当していたら、まともなレスは返ってこない。

**nobodyさん** · 04/01/18 21:22

コードの見た目を評価するスレの間違い。

**>>516** · 04/01/25 15:17

DirectoryIndexの設定をしているtoktokも問題かと思うが。

Forbiddenにしたみたいだけど、
せめてファイル名変えなよ。

**nobodyさん** · 04/03/06 14:54

誰も居ない……ケチつけるなら今のうち。

if-elsifの書き方、
if{
..
}elsif{
..
}
より
if{
..
}
elsif{
..
}
の方が俺にとっては読み易いんだｺﾝﾁｸｼｮｰ。

**nobodyさん** · 04/03/19 18:15

>>522
perlstyleなんて知らなかった…ありがとう、勉強になったよ。

**nobodyさん** · 04/05/03 22:01

>>526
> perlstyle
ﾊｧ?

**nobodyさん** · 04/05/09 20:52

例えば既成の掲示板のCGIとかから

require 'axlog.pl';
AxLog::getlog('ログファイル名','ログ最大記録数');

の用に呼び出して使うアクセス解析。

何となく作ったんですが評価お願いします。

アクセス解析 http://torihamlog.s55.xrea.com/search/axlog.pl.txt
ログビューワー http://torihamlog.s55.xrea.com/search/axlogv.cgi.txt

ここにログビューワを設置して、それにアクセス解析しこんでます。
リモホとかIPとか晒す事になるので困る人は見ないで下さい。
パスワードは　1234　です。
http://torihamlog.s55.xrea.com/search/axlogv.cgi

念のため…コレ呼び出すとログを削除します。
http://torihamlog.s55.xrea.com/search/dellog.cgi

**528** · 04/05/09 21:13

すいません、上の奴.txtで終わってるのに何故か実行しようとしてエラーになるので
ファイル名変更しました。

アクセス解析 http://torihamlog.s55.xrea.com/search/axlog_pl.txt
ログビューワー http://torihamlog.s55.xrea.com/search/axlogv_cgi.txt

**nobodyさん** · 04/05/09 21:49

>>529
とりあえず axlog.pl をザッと見た感じ。

> 39: my $logfile = ($_[0]) ? $_[0] : "log.dat";
my $logfile = $_[0] || "log.dat";
か
my $logfile = defined $_[0] && length $_[0] ? $_[0] : "log.dat";

> 48: $ENV{'TZ'} = "JST-9";
local するか、呼び出し元と条件を揃える (設定しない) 。

> 58 ～ 62
my($path) = $ENV{'SCRIPT_NAME'} =~ m|^(.*/)|;

ログに ASCII 以外の文字を吐くのはあまりお勧めしない。

あと axlog.pl.txt や axlog.cgi.txt でも「.pl」や「.cgi」は含まれて
いるので CGI プログラムとして動く。Apache のマニュアル参照。

**nobodyさん** · 04/05/09 22:26

>>529
axlogv.cgi 。

> 6: use vars qw/$pw $logfile $gzip_send $gzip/;
不要。

> 47 ～ 53:
my $gzip = $^O =~ /Win/
　　? "gzip.exe -1 -c"
　　: "/bin/gzip -1 -c"
;

> 69: if ($mode eq "css") { Style_Sheets(); }
わざわざ CGI で吐かせる理由は?

> 74: else { print "Status: 403 Forbidden\n\n"; exit; }
エラーメッセージを吐いた方が親切。

> 256: Content-type: text/plain; charset=Shift_JIS
text/css

**528** · 04/05/10 19:23

>>530-531
評価ありがとうございます。
色々参考になります。

cssについてはファイルを一つにまとめたかったからです。
やっぱあんまり良くないですか？

>> 74: else { print "Status: 403 Forbidden\n\n"; exit; }
>エラーメッセージを吐いた方が親切。

if ($mode eq "css") { Style_Sheets(); }
elsif ($pass ne $pw) { Error('パスワードが違います。') }
elsif (($pass eq $pw) && ($mode eq "view") && ($ENV{'REQUEST_METHOD'} eq "POST")) { View(); }
else { Pass_form(); }

こうゆう風にしようと思っています。

**nobodyさん** · 04/05/11 00:31

>>532
・CSS を変更する為にスクリプトを編集する危険を冒す必要がある。
・外部に CSS を持つのに対し、常に二倍の回数実行される。
・CSS を使い回す時に悩む事になる。

これらのデメリットを考慮の上で、なお一つにまとめるメリットの方が
勝ると判断したならいいんじゃないか?

**528** · 04/05/14 20:45

>>532
自己レス
すげー馬鹿なこと書いていた

if ($mode eq "css") { Style_Sheets(); }
elsif (($pass) && ($pass ne $pw)) { Error('パスワードが違います。') }
elsif (($pass eq $pw) && ($mode eq "view") && ($ENV{'REQUEST_METHOD'} eq "POST")) { View(); }
else { Pass_form(); }

たぶんコレでいいかな…

作った動機はなんとなくなんだけど、実用性とかどうでせう？
一応CGIの設置とかできて、ほんのちょっとだけいじれる程度人向けのつもりです。

◆u2YjtUz8MU · 04/07/02 01:32

いろいろわからんことだらけで作りましたが
添削して下しさい。
【スクリプト】http://www.tcn.ne.jp/~majima/dog/quiz.txt
【動作例】http://www.tcn.ne.jp/~majima/dog/quiz/quiz.cgi

**nobodyさん** · 04/07/03 23:32

>>535
むずい

**nobodyさん** · 04/07/04 05:07

>>535
とりあえず画像のファイル名を変えた方が良いよｗ
２０点頂きました

**nobodyさん** · 04/07/04 05:12

>>535
もじゅーるは使えない鯖なんでつか？
使えるんなら使ったほうがいいでつよ。
Image::Magick、CGI、Jcode等々
何に使うのかは自分で調べてね。

EUCで書いたり表示したりしたほうがいいと思うけど、Shift_JISでやりたいのなら反対しないさ。

所々myを付けているが、どうせなら全部に付けちゃいな。
strictしろってこった。
ついでにHTML的にも4.01strict すれば？

**ager** · 04/07/09 18:40

age

**nobodyさん** · 04/10/08 20:39:40

タイトル::時刻::内容\n

というようなデータが数行あるような場合
それらを読んできて切り分けるって処理を
してます。
これの評価お願いします。

sub split_data{

my @ref,@tmp,%hush;
@tmp = @_;

for (@tmp){
chomp;
($hush{title},$hush{time},$hush{contents}) = split /::/;
push (@ref,{%hush});
}

return(@ref);

}

@tmp = ("a::b::c\n","d::e::f\n","g::h::i\n");

@ref = split_data(@tmp)

for(0..$#ref){
print "title:".$ref[$_]->{title};
print " time:".$ref[$_]->{time};
print " contents:".$ref[$_]->{contents}."\n";
}

**nobodyさん** · 04/10/09 00:21:55

>>540
myで複数宣言するときは()がいる
hushじゃなくてたぶんhashね．連想配列っていみなら

ハッシュのスライスを使うとエレガントかも
@hash{qw/title time contents/} = split /::/;

foreachつかえよ
for(...$#ref)

**540** · 04/10/09 02:08:52

541>

>ハッシュのスライスを使うとエレガントかも
>@hash{qw/title time contents/} = split /::/;

ありがと、参考になりました。

my は複数でも()いりませんよ。バージョンによるだろうけど
最後に、今更foreach使ってる人いるんですか？w

**nobodyさん** · 04/10/09 02:43:14

>>542
#--- test.p ---
use strict;
my $foo, $bar, $baz;
__END__

> /usr/local/bin/perl -v
This is perl, v5.8.5 built for i386-freebsd-64int
<snip>
> /usr/local/bin/perl -wc test.p
Parentheses missing around "my" list at test.p line 2.
Global symbol "$bar" requires explicit package name at test.p line 2.
Global symbol "$baz" requires explicit package name at test.p line 2.
test.p had compilation errors.

> /usr/bin/perl -v
This is perl, version 5.005_03 built for i386-freebsd
<snip>
> /usr/bin/perl -wc test.p
Parens missing around "my" list at test.p line 2.
Global symbol "$bar" requires explicit package name at test.p line 2.
Global symbol "$baz" requires explicit package name at test.p line 2.
test.p had compilation errors.

**nobodyさん** · 04/10/09 03:20:52

>>541 >foreachつかえよ
>>542 >今更foreach使ってる人いるんですか？w

for と foreach は単なるシノニムなので、その表現は正しくないな。
foreach (LIST) BLOCK を for (LIST) BLOCK と略せるのと同様に、
for (EXPR; EXPR; EXPR) BLOCK を foreach (EXPR; EXPR; EXPR)
BLOCK と書いてもエラーにならない。

foreach ループを意味するところで foreach と「書け」という >>541 の
アドヴァイスは論拠の確かな正しいものだ。しかし Perl では C 風の
for ループを使う機会が foreach ループに比べて圧倒的に少ない上、
人間の目からも for ループと foreach ループの区別は容易なので、
砕けた流暢な Perl を目指すならこだわる必要のない部分だと思うな。

**nobodyさん** · 04/10/09 05:06:54

>>540
%hush(多分hash?)の宣言の位置。
GCのコストを考慮した場合に、変数の再利用をするはあるけど...、
ループないで初期化してないとフィールドの数が少ない時に困るよ。

split/::/の代わりに正規表現を使ってデータを切り出すと、
データのチェックとsplitを同時にできて便利。

chompはデータ格納前に済ませておいた方が良いんじゃないかな。chomp(@tmp)
もしくは、大抵はファイルから読み込むだろうからその時に。

**540** · 04/10/09 05:35:12

>>544
どうもありがとう。foreachは普通に使えるんだろうけど、
大抵forで済ませてしまうのです。言い方悪かったです、スイマセン。

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

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

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

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

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

**541** · 04/10/09 11:14:32

言いたかったのはforeach (@ref)にしろよってことね
別にfor (@ref)でもいいかもしれんが
あと>>543読んだか？ myは複数宣言するときは()いる

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

**540** · 04/10/09 12:28:12

my () つけなくてもエラー出てないです。　という事は
省略も可って事ではないでしょうか？

**nobodyさん** · 04/10/09 14:26:51

>>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.

**nobodyさん** · 04/10/09 17:41:00

>>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は教えてくれない。

**nobodyさん** · 04/10/09 18:04:19

ここってものすごいでかいスクリプトでも細かい所まで見てくれるの？

**nobodyさん** · 04/10/09 18:09:49

>>550 何かおかしな日本語だった。訂正
s/他の方に/他の方からも/

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

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

**nobodyさん** · 04/10/09 19:39:15

>>551
読むに耐えうる書き方＆内容ならな。
KENTレベルなら却下

**nobodyさん** · 04/10/09 22:16:04

>>553
オブジェクト指向とか頑張ってやってみたけど中途半端になったようなのでも大丈夫ですか？

**nobodyさん** · 04/10/09 22:37:35

何書いたって叩かれるんだから、結城出していいと思う

**540** · 04/10/09 23:53:30

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

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

**nobodyさん** · 04/10/10 20:44:07

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

**540** · 04/10/11 01:40:27

ごめんね

**nobodyさん** · 04/10/11 09:04:30

>>558
とっとと消えろ

**nobodyさん** · 04/10/18 16:42:05

>>557
同意。

かぼ · 04/10/22 19:30:44

評価お願いします。
http://members14.tsukaeru.net/skycat/quan/quan.cgi

**nobodyさん** · 04/10/22 20:13:06

>>561
コード晒せって馬鹿

**nobodyさん** · 05/01/23 00:46:42

誘導されてきました。
評価というか不具合の問題です

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

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

ソース
http://tool-ya.ddo.jp/2ch/trash-box/contents.jsp?file=20050123003423509.txt

URL
http://sr-cafe.chu.jp/kok/calc.html

**nobodyさん** · 05/01/23 03:00:10

>>563
ｿｰｽはﾏﾝﾄﾞｸｻｲのでちゃんと読んでないけど、
文字コードと改行コードの問題の様な希ｶﾞｽ。

**nobodyさん** · 05/01/23 13:10:26

>>563
calc.html

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

**nobodyさん** · 05/01/23 20:04:18

>>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;　←　最後に追加

**nobodyさん** · 05/01/24 11:42:30

>>566
改行コード２つとダブルクォーテーション必要無くね？

**nobodyさん** · 05/01/24 12:10:13

\n\nはいらんね。
ヒアドキュメントのダブルクォートはどちらかというとあったほうが・・・

**563** · 05/01/25 02:27:15

ありがとうございます。
>>566サンの通りにしたり、色々試してるんですがまだ動かないです…
printが閉まってなくてフォームの値を処理出来てないんでしょうか…

**nobodyさん** · 05/01/25 04:00:44

>>569
うちのサーバでスクリプト試したんだけどちゃんと動くぜ。
おまい、サーバに嫌われてるんだ。きっと。

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

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

**566** · 05/01/25 04:01:58

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

**nobodyさん** · 05/01/25 04:03:19

→まさかとは思ってない法則

**566** · 05/01/25 04:07:06

つーか563のソースのままでも、ちゃんと結果出るじゃん。
問題はコードではない予感。

**nobodyさん** · 05/01/25 04:14:49

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

**nobodyさん** · 05/01/25 04:27:07

>>574
コンピュータに機嫌も何もねーだろ。

**nobodyさん** · 05/01/25 04:34:21

いや、あるんだって。コード書く時も、こうした方が処理が楽だろ、とか
ムリしなくっていいから、とか気を使ってやると機嫌よくなる。ほんとだぜ。

**nobodyさん** · 05/01/25 06:20:53

>>576
お前が何も分かって無いだけ

**nobodyさん** · 05/01/25 06:47:43

577はコード丸写しで自作CGIと称してるだろｗ。
多かれ少なかれ576のような感じはあるな。

**nobodyさん** · 05/01/25 17:47:54

>>578
お前が何も分かって無いだけ

**nobodyさん** · 05/01/27 18:28:04

皆さん本当スイマセンでした！
パーミッションの所為だった…
元のままでも566のコードでもどちらでも動きました。

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

**nobodyさん** · 2005/06/06(月) 19:56:57

ねるねるねるねは　Ψ(｀∀´)Ψｲｯﾋｯﾋｯﾋｯﾋ

　　　　　　　　　　　　　＿▲＿
ねればねるほど　　((φ(．．。)　　色が変わって

　　　　　　　　　　　　＿▲＿
こうやってつけて　　р(ﾟДﾟ　)

　　　　　　　　　　*＿▲＿*
　ｳﾏｲ━━━*━ﾍ(ﾟ∀ﾟ)ﾍ━*━━━━!!!!　　ﾃ-ﾚｯﾃﾚ-♪

**nobodyさん** · 2005/06/06(月) 23:03:05

>>581
お前の親父ﾀﾞｻｲな

**nobodyさん** · 2005/09/21(水) 17:05:52

age

**nobodyさん** · 2006/05/18(木) 17:31:45

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

**nobodyさん** · 2006/05/18(木) 22:33:53

他のスレから来ました。
Perlで他のサイトを取得して表示したいと思っています。
（著作権侵害とかそういうことをしたいのではないです）

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

print "Content-Type: text/html\n";
print "\n";
use LWP::Simple;
print get( 'http://www.nifty.com/' );

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

**nobodyさん** · 2006/05/18(木) 22:56:52

>585
マルチポストすんな

◆AOxf8.Tmck · 2006/05/18(木) 23:03:18

>>585は私じゃないです。スルーしてください。

**nobodyさん** · 2006/06/06(火) 15:21:29

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

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

6月1日

6月2日

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

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

**nobodyさん** · 2006/06/06(火) 15:22:42

# 保存するファイル名
$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";
}

後半 · 2006/06/06(火) 15:23:17

# 該当する月のファイルがなければ作成
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);

**nobodyさん** · 2006/06/06(火) 15:45:22

>>589
まだちゃんと読んでないが…。

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

**nobodyさん** · 2006/06/06(火) 15:51:41

>$a = sprintf("%04d%02d",$YEAR,$MON)
セミコロンは？
動作するヤツうｐ

**nobodyさん** · 2006/06/06(火) 15:52:34

ビット演算子を使っているんだ。
高度だな。

**nobodyさん** · 2006/06/06(火) 16:09:34

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 "そんな月知らん" }
}

**589** · 2006/06/06(火) 16:39:31

レス遅くなりました。すみません。
該当部分を切り出して動作するコードをUPしてきます。

**589** · 2006/06/06(火) 17:02:59

ttp://up.isp.2ch.net/up/b2611f9a934e.zip
UPしました。パスは「589」です。
日付のところは594さんのアドバイスにしたがって書き換えました。
アドバイスの方よろしくお願いします。

**589** · 2006/06/06(火) 17:11:06

>>591 >>592
コードの一部分だけ抜き出してできるだけ短く書こうとしたので
分かりにくかった&書き損じがありました。すみませんでした。

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

**nobodyさん** · 2006/06/06(火) 17:20:53

いやperlではswitchは使えない。

**nobodyさん** · 2006/06/06(火) 17:24:17

Switch なんてモジュールがあるのか知らんかった。

**nobodyさん** · 2006/06/06(火) 18:59:27

cgi-lib.pl ｋｔｋｒ

**nobodyさん** · 2006/06/07(水) 00:26:35

PerlはPHPとは違ってCPANを探せば考えられる大体の車輪は既にある。

**nobodyさん** · 2006/06/20(火) 01:54:40

>>596
見れない・・

**nobodyさん** · 2006/07/08(土) 12:44:17

switchがあったとは・・・

**nobodyさん** · 2006/07/21(金) 16:23:10

http://cgi37.plala.or.jp/bleach_w/bl2/btlryl.cgi

**nobodyさん** · 2006/10/07(土) 10:40:01

＠＠＠

**nobodyさん** · 2006/10/11(水) 22:51:05

特定の板のスレタイ検索をして、選んだスレから画像とかのサムネイルを表示するスクリプトを書いてみまｽた(・ω・｀)
恐ろしく見づらいと重いまｽが・・
http://vip.ty.land.to/image/

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

**nobodyさん** · 2006/10/11(水) 23:36:54

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

**nobodyさん** · 2006/10/11(水) 23:42:15

>>607
おぉぉぉﾚｽもらえたｽ(；ω；｀)ｱﾘｶﾞﾀｲ
感謝しまｽ！

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

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

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

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

**nobodyさん** · 2006/10/12(木) 04:41:48

>>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|ここに"文章"|;
こーすりゃいちいちｴｽｹｰﾌﾟしなくておｋ

**606** · 2006/10/12(木) 09:44:51

>>609
ｻﾝｸｽ

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

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

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

**nobodyさん** · 2006/10/12(木) 13:46:42

useするかどうか切り替えたいなら
BEGIN{}で囲ったほうがいいな。

**nobodyさん** · 2006/10/12(木) 22:51:01

>>609
>うる覚えなんだが
http://www.tt.rim.or.jp/~rudyard/hirago014.html

> これって意味ないんじゃなかったっけ？
http://perldoc.jp/docs/perl/5.6.1/perlfunc.pod#item_use_Module_VERSION_LIST

> ﾌｧｲﾙﾊﾝﾄﾞﾙは大文字で
bareword で扱わず変数で取り回す方が今風。
http://www.kt.rim.or.jp/~kbk/perl-5.8/perlfaq5.html#how_can_i_make_a_filehandle_local_to_a_subroutine_how_do_i_pass_filehandles_between_subroutines_how_do_i_make_an_array_of_filehandles

>>610
> どちらも同じ意味だったはず
http://www.kt.rim.or.jp/~kbk/perl-5.8/perlfaq4.html#what_is_the_difference_between__array_1__and__array_1_

◆.PT9876/4U · 2006/11/06(月) 17:44:37

あちこちから routin をかき集めて自作しました :
alter.s225.xrea.com/cgi/bbs/read.cgi?log=0

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

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

**nobodyさん** · 2006/11/06(月) 18:17:34

>>612
URLが長すぎて横スクロールでた。
ふざけんな改行しろこのボンクラっ！

**nobodyさん** · 2006/11/07(火) 08:23:24

IDなんだしもっと短く付けろよなｗ
文章そのままって酷すぎるｗ

**nobodyさん** · 2006/11/08(水) 01:06:36

>>613
ちょっとエキサイト翻訳チックだな

◆.PT9876/4U · 2006/11/08(水) 06:15:24

>>613
お返事ありがと～.
でも, どういう意味かしら ?

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

**nobodyさん** · 2006/11/08(水) 10:54:37

>>617
「とても読めたもんじゃない」
ということではないでしょうか。
613は釣りとしか思えない。
CGI以前の問題ね。

◆.PT9876/4U · 2006/11/08(水) 18:47:29

>>618
>CGI以前の問題ね
確かに... JavaScrit の bug がぁ～～～
(絶対に書き込めない)
おまけに... WaMCom (Mozilla1.31) では問題とならなかった error が
IE5.17(Mac版) では発生して処理が止まる～～～.

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

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

**nobodyさん** · 2006/11/08(水) 20:37:07

つっこみどころが多すぎるなぁ…。

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

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

**nobodyさん** · 2006/11/08(水) 20:38:25

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

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