自作CGIを評価するスレ

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

523: 04/01/18 21:22 ID:??? AAS
コードの見た目を評価するスレの間違い。

524: >>516 04/01/25 15:17 ID:yPaa9elS(1) AAS
DirectoryIndexの設定をしているtoktokも問題かと思うが。

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

525: 04/03/06 14:54 ID:??? AAS
誰も居ない……ケチつけるなら今のうち。

if-elsifの書き方、
if{
..
}elsif{
..
}
より
if{
..
省5

526(1): 04/03/19 18:15 ID:??? AAS
>>522
perlstyleなんて知らなかった…ありがとう、勉強になったよ。

527: [ ] 04/05/03 22:01 ID:??? AAS
>>526
> perlstyle
ﾊｧ?

528(3): 04/05/09 20:52 ID:??? AAS
例えば既成の掲示板のCGIとかから

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

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

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

アクセス解析外部ﾘﾝｸ[txt]:torihamlog.s55.xrea.com
ログビューワー外部ﾘﾝｸ[txt]:torihamlog.s55.xrea.com
省6

529(2): 528 04/05/09 21:13 ID:??? AAS
すいません、上の奴.txtで終わってるのに何故か実行しようとしてエラーになるので
ファイル名変更しました。

アクセス解析外部ﾘﾝｸ[txt]:torihamlog.s55.xrea.com
ログビューワー外部ﾘﾝｸ[txt]:torihamlog.s55.xrea.com

530(1): 04/05/09 21:49 ID:??? AAS
>>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|^(.*/)|;
省3

531(1): 04/05/09 22:26 ID:??? AAS
>>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(); }
省5

532(2): 528 04/05/10 19:23 ID:??? AAS
>>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(); }
省2

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

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

534: 528 04/05/14 20:45 ID:1r/FkAS3(1) AAS
>>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の設置とかできて、ほんのちょっとだけいじれる程度人向けのつもりです。

535(3): ◆u2YjtUz8MU [age] 04/07/02 01:32 ID:??? AAS
いろいろわからんことだらけで作りましたが
添削して下しさい。
【スクリプト】外部ﾘﾝｸ[txt]:www.tcn.ne.jp
【動作例】外部ﾘﾝｸ[cgi]:www.tcn.ne.jp

536: 04/07/03 23:32 ID:??? AAS
>>535
むずい

537: 04/07/04 05:07 ID:??? AAS
>>535
とりあえず画像のファイル名を変えた方が良いよｗ
２０点頂きました

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

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

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

539: ager [age] 04/07/09 18:40 ID:??? AAS
age

540(8): 04/10/08 20:39 ID:HUGW4EIR(1) AAS
タイトル::時刻::内容\n

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

sub split_data{

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

for (@tmp){
chomp;
省12

541(2): 04/10/09 00:21 ID:??? AAS
>>540
myで複数宣言するときは()がいる
hushじゃなくてたぶんhashね．連想配列っていみなら

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

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

542(3): 540 04/10/09 02:08 ID:??? AAS
541>

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

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

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

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

あと 130 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.012s