自作CGIを評価するスレ
■ このスレッドは過去ログ倉庫に格納されています
0001Premature end of script headers : /this/thread
03/04/05 12:47ID:tIET0nhfよほどプログラムが短くないかぎりはアプロダにでもアップしてね。
0166nobodyさん
03/04/12 22:53ID:???0168nobodyさん
03/04/12 23:21ID:???途中でダレたからかなり適当ですがいぢってみますた。
http://boobar.hp.infoseek.co.jp/refactoring/test.txt
さんくすでつ！
> データ量増えていくと、cmpを使う場合処理が遅くなる。
初耳でつ ﾒﾓﾒﾓ 〆（・＿・。）
>>168
全面的に書き換えてくださり、ありがとうございまつ！
感謝でつ！
乙でつ！
さっそくテストしてみまつた！
おー、動いているー。。 あれ（？＿？）
データ件数は88くらいあるはずなのに、80までしか表示されない。。。
でもがんばってスクリプト読み下して自分で修正したいと重い松。
017271
03/04/13 04:57ID:???foreach(@keys){
if($_->[$n] !~ /^\d*$/){
$num_flug =1;
last;
}
}
ｌココの部分がどういう処理をしてたか説明してみそ
if($_->[$n] !~ /^\d*$/){ # $_の$n番目の値が数字ではなかったら、
$num_flug =1; # $num_flugに1を入れまつ
last; # foreachのループ抜けまつ
} # ifを閉じまつ
} # foreachを閉じまつ
これでいいでつか？
修正できましたぁ〜！
$lastpage++ unless @Record % $Pageview;
を
$lastpage++ if @Record % $Pageview;
0176nobodyさん
03/04/13 05:31ID:???>>169
＞> データ量増えていくと、cmpを使う場合処理が遅くなる。
＞初耳でつ ﾒﾓﾒﾓ 〆（・＿・。）
から、どうして
>>170
＞初耳じゃなくて、そういうソースを組んでたから
＞指摘したまでなんだけど・・・
のようなレスが付くのか良く分かりません。
cmp使うのが初耳だったんでしょ？なんで「初耳じゃなくて」なんだろう？
0177nobodyさん
03/04/13 05:32ID:???○cmp使うと遅くなるっていうのが初耳だったんでしょ？
017871
03/04/13 05:32ID:???つまり、該当データが文字列ばっかりだとループ終わるまで抜けない。
-> 次の処理にいくまで時間がかかるという事で cmp処理のときに時間がかかるという理屈。
あっ！
そういう意味だったんでつね。。。. （＾＾ゞ
んじゃ、メモを。。。消し消し. ＿□（． ．。
018171
03/04/13 06:00ID:???ttp://kiteline.net/imgbbs/img/137.txt
この規模だと分ける意味がないとおもうんだけど・・・
改造さんくすでつ！
でも、穴が多いッスね。
次のページを押し続けれないし、
前のページが表示されないし、
順番が0-9の固定だし。。。
勉強のため漏れが修正したいと重い松が。。。
>>181さんの目から見て、>>168さんのソートは処理が重そうでつか？
>>168さんのソースは今まで漏れが出会ったことのない書き方だからちょっと苦戦しておりまつ。
おっと、>>168さんのソース、逆順ソートが出来ない。。。
あう〜
こちらも漏れが修正したいと重い松。
逆順ソートが出来ない件、修正しましたが。。。
$TableHeader .= qq|\t<th><a href="| . make_url(n => $_, action => 1) . qq|">$field{$_}</a></th>\n|
for sort { $a <=> $b } keys %field;
を
if ($Param{'rev'}){
$TableHeader .= qq|\t<th><a href="| . make_url(n => $_, action => 1,rev => 0) . qq|">$field{$_}</a></th>\n|
for sort { $a <=> $b } keys %field;
}else{
$TableHeader .= qq|\t<th><a href="| . make_url(n => $_, action => 1,rev => 1) . qq|">$field{$_}</a></th>\n|
for sort { $a <=> $b } keys %field;
}
っていうのにしましたが、もっと簡単になりまつか？
018571
03/04/13 06:58ID:???別にいい悪いはないと思いますけどね。
どんな記述も出来るのがperlですし・・・
自分が見やすければいいんじゃないでしょうか？
あと、自分的には不要な変数を極力使わないぐらいですか・・・
0186nobodyさん
03/04/13 07:34ID:???なんだこりゃ？
$TableHeader .= qq|\t<th><a href="| . make_url(n => $_, action => 1,rev => ($Param{'rev'} ? 0 : 1)) . qq|">$field{$_}</a></th>\n|
for sort { $a <=> $b } keys %field;
だろ？
サンクス！
こういう書き方は初めてなんで、かなり苦戦しておりまつ。
0188nobodyさん
03/04/13 16:20ID:???聞いてて疲れる
0189nobodyさん
03/04/13 17:03ID:???0190168
03/04/13 20:14ID:???直した。
http://boobar.hp.infoseek.co.jp/refactoring/test.0.0.2.txt
文法的に分からんトコは、駱駝本なり perldoc なり見てね。
「何でこういう処理が必要なのか分からない」ってトコは聞いて。
う〜、感涙！
実際、かなり省略した書き方なので、文法的にわかんないところばっかりでつ。
だからどんな処理をしているのかわかんなかったりして…（＾＾；
でも、がんばって自分で読み下して理解しまつ。
コメント文の多さに助かってまつ。
これからもご指導ご鞭撻のほどよろしくおながいしまつ。
>>188
あいた〜
苦情でつ！
このスレででつまつ使ってるのって漏れだけでつ〜
こういうの使ってみたい年頃なんでつ〜
(ﾞ ｀-´)/ ﾔﾒﾚ! って言う声が多ければ考えまつ。
0192nobodyさん
03/04/14 05:17ID:???漏れの思っている動作は、
各Info ボタンを押すと昇順にも降順にもなる。
この際順番(ここではOrder)昇順なら小さい方から1、降順なら大きい方から1がいいんでつ。
でも>>190様、直さないでくださいね。
漏れがやるんでつ。
あと。。。
my @Field = qw(Info1 Info2 Info3 Info4);
っていう所。
my @Field = qw{Info1 Info2 Info3 Info4};
my @Field = qw|Info1 Info2 Info3 Info4|;
my @Field = qw(Info1 Info2 Info3 Info4(;
my @Field = qw)Info1 Info2 Info3 Info4);
my @Field = qw(Info1 Info2 Info3 Info4);
my @Field = qw\Info1 Info2 Info3 Info4\;
なんでもいいんでつね。
勉強になりまつた｡
でも、
my @Field = qw(Info1 Info2 Info3 Info4);
で良くて、
my @Field = qw)Info1 Info2 Info3 Info4(;
でダメなのは納得いかなかったりして。。。(汗)
0194山崎渉
03/04/17 12:07ID:???0195マリモーマ ◆r6PDGT6Xd2
03/04/18 17:28ID:fPIUuruFhttp://ebrain21.com/~game/me/mai.cgi
0197nobodyさん
03/04/18 17:35ID:BrkP32Ds0198マリモーマ ◆r6PDGT6Xd2
03/04/18 19:34ID:fPIUuruF0199nobodyさん
03/04/18 21:18ID:???0200マリモーマ ◆r6PDGT6Xd2
03/04/19 13:29ID:kAGW5QYqできなくなるかも？
0201nobodyさん
03/04/20 00:47ID:???掲示板、見にく（ｒｙ
0202nobodyさん
03/04/20 04:29ID:???0203山崎渉
03/04/20 05:59ID:???（ ＾＾ ）＜ ぬるぽ（＾＾）
0204マリモーマ ◆r6PDGT6Xd2
03/04/20 10:12ID:xM5Zwmt0∧＿∧
（ ＾＾ ）＜じゃ どうすればいい？（＾＾）
0207マリモーマ ◆r6PDGT6Xd2
03/04/20 15:05ID:xM5Zwmt0（Ｏ＿Ｏ） うう〜〜 わからないよ
0208nobodyさん
03/04/20 16:04ID:???0209nobodyさん
03/04/21 09:41ID:???・・・・とりあえず、他の掲示板とか見て回れ。
他の掲示板とか見たことあるだろ？
無駄なテーブル使いすぎ。
もっと、シンプルでいいと思うが・・・
それと、掲示板CGIの吐いてるHTML見たが・・・
HTML、間違ってないか？？？
改行ナシの、汚いHTMLでちゃんと読めんかったが・・・。
もうひとつ。
ひとつDLさせてもらってソース見たが・・・
謎な関数の名前ばかり。
関数作る悪い例として、そのまま本とかで出てきそうなのばかり。
後から拡張とかする時、関数の名前見ただけで、
どんな処理してくれる物か、判別できなくなる。
・・・と、いろいろつっこむ所多いが・・・
物自体は、結構良い物だと思う。
・・・たぶん。・・・きっと。 ・・・かもしれない。 ・・・だといいな。
0210マリモーマ ◆r6PDGT6Xd2
03/04/21 17:08ID:CNsFsGAeなるほど 参考にするよ ありがとう
0211nobodyさん
03/04/24 04:27ID:???CGIじゃないんだけど、Perlｽｸﾘﾌﾟﾄ内のｺﾒﾝﾄを削除するｽｸﾘﾌﾟﾄを作りました。
使い方は、同封してるﾃｷｽﾄ読んでも分かるけど、D&DでOKな、結構便利な感じです。
http://isweb25.infoseek.co.jp/computer/pcqa-2ch/cgi-bin/img/997.lzh
評価お願いします。
また、改造してくれてアップしてくれる人は、
それ見て勉強したいと思いますのでお願いします。
0212bloom
03/04/24 04:29ID:vV02vP1k0213マリモーマ ◆r6PDGT6Xd2
03/04/24 05:40ID:0xA64jQFコメントが 笑った あと 抜いた行の 下の行を 上げたほうがいいかも
0214マリモーマ ◆r6PDGT6Xd2
03/04/24 05:49ID:0xA64jQFいいかな？
0215nobodyさん
03/04/24 05:53ID:x2ip/9xn0216動画直リン
03/04/24 06:29ID:vV02vP1k0217211
03/04/24 07:25ID:???>>214
ご感想、ありがとうございます。
そういう事で、少し改造してみました。
改行を消すかどうか、質問されるようになりました。
http://isweb25.infoseek.co.jp/computer/pcqa-2ch/cgi-bin/img/998.lzh
もし、どなたでも改造したら、できればアップしてくださいね。
0218211
03/04/24 07:49ID:???HTML出力してて、色指定で#を使ってたら、それ以降が削られてました。。。
http://isweb25.infoseek.co.jp/computer/pcqa-2ch/cgi-bin/img/999.lzh
・・・今度こそ・・・
0219bloom
03/04/24 08:29ID:vV02vP1k0220nobodyさん
03/04/24 10:23ID:???0221マリモーマ ◆r6PDGT6Xd2
03/04/24 16:32ID:0xA64jQF0222nobodyさん
03/04/24 16:38ID:???0223nobodyさん
03/04/24 16:48ID:???実は211のやつ見て無いんだが
書いて見たよ
先頭のタブとかは消さないようにした
一応自分の書いたスクリプトではきれいに
コメント部は消えた模様
0224223
03/04/24 16:52ID:???漏れの書いたスクリプトでは
誤作動しまくりだ
$hoge = '#000000';#hogehoge-
こういうのが
$hoge = '
になってるよ
0225223
03/04/24 16:53ID:???ってことね
0226211
03/04/24 17:06ID:???このｺﾒﾝﾄ削除ｽｸﾘﾌﾟﾄは・・・
PerlでCGIをつくって、ｻｰﾊﾞに上げる時、
ｿｰｽ内のｺﾒﾝﾄ部分のﾌｧｲﾙｻｲｽﾞが無駄なので作りました。
ちなみに、俺のCGIﾌｧｲﾙで、23kあったのが、16kにまで落ちました。
自分のﾊﾟｿｺﾝ内で走らせるｽｸﾘﾌﾟﾄなどについては・・・
ｺﾒﾝﾄ削除するﾒﾘｯﾄはありません。
>>225
どもども。
そう、後から気付いたんです。
ｼﾝｸﾞﾙｸｫｰﾄで囲まれた#まで削ってしまうって・・・
これと言って、手がってもらえないので、自分のだけ修正してｱｯﾌﾟしてませんでした（ﾜﾗ
http://isweb25.infoseek.co.jp/computer/pcqa-2ch/cgi-bin/img/1004.lzh
これでどうです？
また一歩まともに近づいてるはずです。
>>223のｿｰｽ、見せてもらいますね。
0227223
03/04/24 17:11ID:???意味は無いよ
コンパイル速度も変わらんしね
ただimgboard.cgiとかむかつくようなコメントが
たくさん載ってるやつには有効だ(ぷ
210KB→160KBになったよ
まぁ漏れ的には容量はどうでもいいが
うざすぎるコメント消すのが面白そうだったからなｗ
0228223
03/04/24 17:13ID:???それをimgboard.cgiで試したんだが
コンパイルエラーするよ
容量的には漏れより小さくなってるんだが
余計なところまで消しすぎでは？
0229211
03/04/24 17:21ID:???ﾏｼﾞっすか！
なに消してるんだろ・・・
消しちゃいけない所、特定できません？
imgboard.cgiですか・・・
探してDLして、ためしてみます。
ちなみに、>>223の削除ｽｸﾘﾌﾟﾄ試させてもらいました。
先頭にﾀﾌﾞとかがあってのｺﾒﾝﾄは削除されない仕様ですね。
俺のは、とにかくｺﾒﾝﾄだと思われるような所は、すべて排除していく仕様なので・・・
失敗したら、文法ｴﾗｰとかｺﾝﾊﾟｲﾙｴﾗｰとか出ます。
って事で、どこで削除されたらいけない所が削除されてるのか調べてみます。
ありがとうございます。
0230223
03/04/24 17:51ID:???一箇所だけ修正
まぁ 文法一切見て無いので
バグいろいろあるんだが
直す気もないので
終了。
製作時間2分+30秒ですた。
imgboardはimgboard.cgiでぐぐると一番上にでてくるよ
0231223
03/04/24 17:53ID:???先頭にタブがあっても消えるはずだが
\t\t$hoge = 'hoge';#これはほげです
が
\t\t$hoge = 'hoge';
になるだけ 先頭のスペースやタブは削除しないってこと
7行プログラミングするわけでも無いしね
0232nobodyさん
03/04/24 18:00ID:???むかつくところがあるな
0233211
03/04/24 18:03ID:???imgboardは、作者が旅行中（？）らしく、DLできませんでした・・・
違う貼り付け掲示板で、ｺﾒﾝﾄ削除するとｴﾗｰが出たので、
そこからﾊﾞｸﾞを辿ってみました。
ttp://isweb25.infoseek.co.jp/computer/pcqa-2ch/cgi-bin/img/1006.lzh
今度こそ・・・いけるはず。たぶん。
023471
03/04/24 18:03ID:???ヒアドキュメントとか、変数内の#なんかはちゃんと排他処理するようになっとるんだろうか・・・
0235223
03/04/24 18:08ID:???まだ駄目だね
ttp://www.big.or.jp/~talk/t-club/soft/mini_r6/index.cgi
ほれ コメント見ると面白いと思うぞ
>>234
ヒアドキュメント検知したら
そのなかは一切いじらないようにしてるけど
実際にはどうなるかは知らない。
一応漏れのは上記のimgboard.cgiのコメント
あぼーんするのに成功したが（ﾜﾗ
0236223
03/04/24 18:10ID:???あのimgboard.cgiのコメント無くなっただけでも
満足だ
まぁマジレスするのなら
秀丸やEmediterなら
そういうマクロ誰かが作ってるんじゃ無い？
0237223
03/04/24 18:21ID:???頭のむかつくコメント集は消えてるけど
スクリプト内で消えて無いところが
部分部分である
211よがんばってくれ
0238nobodyさん
03/04/24 18:25ID:???「コメントを消す」んじゃなくて「コメント以外を残す」って発想はどうよ？
これならヒアドキュメントや文字列中の＃なども簡単に対応できそうだが。
0239223
03/04/24 18:29ID:???それは難しすぎ
Perlの構文全て判定しないとだめだ
ちなみに漏れの場合は
コメントを消すんじゃなくて
普通の構文らしきものがある場合は
それを残すようにしてる
0240211
03/04/24 18:36ID:???ttp://www.big.or.jp/~talk/t-club/soft/mini_r6/index.cgi
ここへ行くと、403で工事現場にいてるような、
おやっさんがお辞儀してる絵が出るのは俺だけですか？
俺がもってる貼り付け掲示板では、正常に動いてるんだけど・・・
やっぱ、imgboard.cgiのｿｰｽがないと、無理っぽいですよ・・・
ちなみに、ﾋｱﾄﾞｷｭﾒﾝﾄ内は・・・
びしばし、ｺﾒﾝﾄ文（#から始まる文字）を探してます。
でも、HTMLとかの色指定の#は削られません。
・・・が、普通の文章内で#使われてたら削っちゃうかも・・・
ﾋｱﾄﾞｷｭﾒﾝﾄを感知＆ｽｷｯﾌﾟの処理を組んでみます。
0241223
03/04/24 18:43ID:???チミだけ
漏れにはどうするアイフルの広告が見える
変なソフトいれてるのなら切って見るとか
ttp://www.big.or.jp/~talk/t-club/soft/mini_r6/imgboard122r6.zip
一応アーカイブ
ttp://isweb25.infoseek.co.jp/computer/pcqa-2ch/cgi-bin/img/1007.zip
さっきの残しておくのはあまりにも恥ずかしいんで
修正しておいた
上記のimgboard.cgiなら全てのコメントが無くなった模様
正常に動いてるよん
0242211
03/04/24 18:49ID:???ぐあ！
初めて行くｻｲﾄで、ｱｸ禁くらってました！
串さしたら、行けた・・・
なんだー！
俺と同じﾌﾟﾛﾊﾞの人間が悪さしてるのかぁ〜？？？
・・と、とにかく無事にｿｰｽをｹﾞｯﾄできたようなので、
調べてみます。
ｿｰｽも、見せてもらいますね。
ありがとうございました。
0243223
03/04/24 18:52ID:???"<<(.+)" -> <<"(.+)"
'<<(.+)' -> <<'(.+)'
もうだめぽ
ttp://isweb25.infoseek.co.jp/computer/pcqa-2ch/cgi-bin/img/1008.zip
0244223
03/04/24 19:04ID:???print <<HTML;
とかやられた場合に処理がおかしくなる･･･
"HTML" 'HTML'はOK
もういいや 飽きたｗ
0246nobodyさん
03/04/24 20:06ID:???0247&rlo;ﾄｽﾃるみてっ煽と&lro;
03/04/24 20:35ID:???君が作るスクリプトならそれで十分だね
0248211
03/04/24 21:07ID:???ttp://isweb25.infoseek.co.jp/computer/pcqa-2ch/cgi-bin/img/1012.lzh
imgboard.cgiで、ｴﾗｰは出なくなりました。
・・・文法ｴﾗｰはね。
実際に動かしてはないです。
また、所々ｺﾒﾝﾄを排除できてない所があります・・・
この辺は、もーすこし改造してみようかと。
>>223
ｺﾒﾝﾄ削除ﾌｨﾙﾀ処理部分を改造して・・・正規表現、頭痛い。。。
0249nobodyさん
03/04/25 03:18ID:???0250211
03/04/25 06:05ID:???勝手に、>>223のｺﾒﾝﾄ削除ﾙｰﾁﾝを改造して使わせてもらってます（ｗ
ｵﾘｼﾞﾅﾙのままだと、完璧には削除されない場合があったので・・・
一部、改造させてもらいました。
ttp://isweb25.infoseek.co.jp/computer/pcqa-2ch/cgi-bin/img/1013.lzh
>>223
「おいおい、勝手に使わないでくれ」って時は削除しますので、
言ってください。
>>249
PODってなに？
0251動画直リン
03/04/25 06:29ID:pCM0Odok0252nobodyさん
03/04/25 12:15ID:???知らない言葉が出てきたら調べようよ。
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlpod.html
実例はお手元のモジュール群をご覧下さい。;-)
0254nobodyさん
03/04/25 17:43ID:???0255nobodyさん
03/04/27 08:10ID:???0256nobodyさん
03/04/29 06:39ID:???0257nobodyさん
03/04/30 00:13ID:???誰か、有能なｽｸﾘﾌﾟﾄ組んでくれ。
0258nobodyさん
03/04/30 01:33ID:???0259山崎渉
03/05/10 16:15ID:???（ ＾＾ ）＜ ぬるぽ（＾＾）
0260nobodyさん
03/05/10 23:04ID:???ttp://sh.sakura.ne.jp/~obj/vector/toys/#sb
0261nobodyさん
03/05/19 20:36ID:GoudX7FZ0262nobodyさん
03/05/21 19:41ID:???>>211
コメント解除スクリプト、B::Deparse 使っちゃだめなのかな。
$ perl -MO=Deparse foo.pl
0263山崎渉
03/05/22 01:59ID:???0264nobodyさん
03/05/25 01:28ID:wMw6QnJf0265nobodyさん
03/05/25 22:00ID:mSA7mvhe評価して！
http://fine.tok2.com/home/moritomo/cgi/board.cgi?s_admin=defult
http://fine.tok2.com/home/moritomo/board.zip
携帯で見れるようにしたいんだけどどうしても文字化けしちゃうんだよね
0266nobodyさん
03/05/26 10:01ID:???単刀直入に言うとなぜか解凍できない。
俺のアプリケーションに異常が起きたのか、そのファイルが変なのかは知らん。
めんどうなので調べない。
■ このスレッドは過去ログ倉庫に格納されています