自作CGIを評価するスレ (672ﾚｽ)
上下前次1-新
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
543(1): 04/10/09 02:43 ID:??? AAS
>>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.
省11
544(1): 04/10/09 03:20 ID:??? AAS
>>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 ループの区別は容易なので、
省1
545(1): 04/10/09 05:06 ID:??? AAS
>>540
%hush(多分hash?)の宣言の位置。
GCのコストを考慮した場合に、変数の再利用をするはあるけど...、
ループないで初期化してないとフィールドの数が少ない時に困るよ。
split/::/の代わりに正規表現を使ってデータを切り出すと、
データのチェックとsplitを同時にできて便利。
chompはデータ格納前に済ませておいた方が良いんじゃないかな。chomp(@tmp)
もしくは、大抵はファイルから読み込むだろうからその時に。
546(2): 540 04/10/09 05:35 ID:??? AAS
>>544
どうもありがとう。foreachは普通に使えるんだろうけど、
大抵forで済ませてしまうのです。言い方悪かったです、スイマセン。
>>545
ありがとうございます。
>ループないで初期化してないとフィールドの数が少ない時に困るよ。
というのは、forのループ内で undef(%hush); (ほんとはhashでしたw)
でいいですか？
あと、フィールドの数が少ない時というのはどういうことでしょうか？
>split/::/の代わりに正規表現を使ってデータを切り出すと
省7
上下前次1-新書関写板覧索設栞歴
あと 126 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 1.260s*