自作CGIを評価するスレ (672レス)
1-

168
(6): 03/04/12 23:21 ID:??? AAS
>>163
途中でダレたからかなり適当ですがいぢってみますた。
外部リンク[txt]:boobar.hp.infoseek.co.jp
169
(2): ◆YHmsETNOS2 03/04/13 04:43 ID:??? AAS
>>164-168
さんくすでつ!

> データ量増えていくと、cmpを使う場合処理が遅くなる。
初耳でつ メモメモ 〆(・_・。)

>>168
全面的に書き換えてくださり、ありがとうございまつ!
感謝でつ!
乙でつ!
さっそくテストしてみまつた!
おー、動いているー。。 あれ(?_?)
省2
170
(2): 71 03/04/13 04:47 ID:??? AAS
>>169
初耳じゃなくて、そういうソースを組んでたから
指摘したまでなんだけど・・・
ソースちゃんと理解出来てますか??(o_ _)o
171
(1): ◆YHmsETNOS2 03/04/13 04:54 ID:??? AAS
>>170
> ソースちゃんと理解出来てますか
自分の>>163のソースは理解してまつ。
>>168さまのは、現在格闘中でつ。
苦戦しておりまつ。
172: 71 03/04/13 04:57 ID:??? AAS
>>171では、

foreach(@keys){
if($_->[$n] !~ /^\d*$/){
$num_flug =1;
last;
}
}
lココの部分がどういう処理をしてたか説明してみそ
173
(1): ◆YHmsETNOS2 03/04/13 05:07 ID:??? AAS
foreach(@keys){  # @keysをforeachして

if($_->[$n] !~ /^\d*$/){ # $_の$n番目の値が数字ではなかったら、

$num_flug =1;  # $num_flugに1を入れまつ

last; # foreachのループ抜けまつ

}  #  ifを閉じまつ
}  #  foreachを閉じまつ
省1
174: ◆YHmsETNOS2 03/04/13 05:15 ID:??? AAS
sortの cmp と <=> のどちらでやるかのフラグを立てているところっていったほうが良かったんでつか?
175: ◆YHmsETNOS2 03/04/13 05:30 ID:??? AAS
>>168
修正できましたぁ〜!

$lastpage++ unless @Record % $Pageview;



$lastpage++ if @Record % $Pageview;
176
(1): 03/04/13 05:31 ID:??? AAS
俺敵には

>>169
>> データ量増えていくと、cmpを使う場合処理が遅くなる。
>初耳でつ メモメモ 〆(・_・。)

から、どうして

>>170
>初耳じゃなくて、そういうソースを組んでたから
>指摘したまでなんだけど・・・

のようなレスが付くのか良く分かりません。
cmp使うのが初耳だったんでしょ?なんで「初耳じゃなくて」なんだろう?
177: 03/04/13 05:32 ID:??? AAS
×cmp使うのが初耳だったんでしょ?
○cmp使うと遅くなるっていうのが初耳だったんでしょ?
178
(2): 71 03/04/13 05:32 ID:??? AAS
>>173
つまり、該当データが文字列ばっかりだとループ終わるまで抜けない。
-> 次の処理にいくまで時間がかかるという事で cmp処理のときに時間がかかるという理屈。
179: 71 03/04/13 05:35 ID:??? AAS
>>176そのソース私の奴改造してるから聞いてみたのだけど変ですか?

ところで、ソース組んだんだけどどっかアップしやすい所無いかのぉ
180: ◆YHmsETNOS2 03/04/13 05:53 ID:??? AAS
AA省
181
(1): 71 03/04/13 06:00 ID:??? AAS
んで、件のソースの改造

外部リンク[txt]:kiteline.net

この規模だと分ける意味がないとおもうんだけど・・・
182: 03/04/13 06:09 ID:??? AAS
>>178
ああ、そういう意味か。てっきりcmpと<=>の違いを言ってるのかと思った。スマソ
183
(2): ◆YHmsETNOS2 03/04/13 06:35 ID:??? AAS
>>181
改造さんくすでつ!
でも、穴が多いッスね。
次のページを押し続けれないし、
前のページが表示されないし、
順番が0-9の固定だし。。。
勉強のため漏れが修正したいと重い松が。。。

>>181さんの目から見て、>>168さんのソートは処理が重そうでつか?
>>168さんのソースは今まで漏れが出会ったことのない書き方だからちょっと苦戦しておりまつ。

おっと、>>168さんのソース、逆順ソートが出来ない。。。
省2
184
(1): ◆YHmsETNOS2 03/04/13 06:51 ID:??? AAS
>>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|
省3
185: 71 03/04/13 06:58 ID:??? AAS
>>183
別にいい悪いはないと思いますけどね。
どんな記述も出来るのがperlですし・・・
自分が見やすければいいんじゃないでしょうか?

あと、自分的には不要な変数を極力使わないぐらいですか・・・
186
(1): 03/04/13 07:34 ID:??? AAS
>>184
なんだこりゃ?
$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;
だろ?
187: ◆YHmsETNOS2 03/04/13 07:57 ID:??? AAS
>>186
サンクス!
こういう書き方は初めてなんで、かなり苦戦しておりまつ。
188
(1): 03/04/13 16:20 ID:??? AAS
なんでこのスレでつまつが多いの
聞いてて疲れる
189: 03/04/13 17:03 ID:??? AAS
poster は前田利家なのであろう。
190
(2): 168 03/04/13 20:14 ID:??? AAS
>>183
直した。
外部リンク[txt]:boobar.hp.infoseek.co.jp

文法的に分からんトコは、駱駝本なり perldoc なり見てね。
「何でこういう処理が必要なのか分からない」ってトコは聞いて。
191: ◆YHmsETNOS2 03/04/14 04:43 ID:??? AAS
>>190
う〜、感涙!
実際、かなり省略した書き方なので、文法的にわかんないところばっかりでつ。
だからどんな処理をしているのかわかんなかったりして…(^^;

でも、がんばって自分で読み下して理解しまつ。
コメント文の多さに助かってまつ。
これからもご指導ご鞭撻のほどよろしくおながいしまつ。

>>188
あいた〜
苦情でつ!
省3
192: 03/04/14 05:17 ID:??? AAS
まあほどほどにな。
193: ◆YHmsETNOS2 03/04/16 05:35 ID:??? AAS
>>190
漏れの思っている動作は、
各Info ボタンを押すと昇順にも降順にもなる。
この際順番(ここではOrder)昇順なら小さい方から1、降順なら大きい方から1がいいんでつ。
でも>>190様、直さないでくださいね。
漏れがやるんでつ。

あと。。。
my @Field = qw(Info1 Info2 Info3 Info4);
っていう所。

my @Field = qw{Info1 Info2 Info3 Info4};
省12
194: 山崎渉 [(^^)] 03/04/17 12:07 ID:??? AAS
(^^)
195
(1): マリモーマ ◆r6PDGT6Xd2 03/04/18 17:28 ID:fPIUuruF(1/2) AAS
こんなの作ったけど どうよ?
外部リンク[cgi]:ebrain21.com
196: 03/04/18 17:33 ID:??? AAS
>>195
Internal Server Error が出たぞ
197: 03/04/18 17:35 ID:BrkP32Ds(1) AAS
一度ゴールすると次回からアクセスするたびに(ry
198: マリモーマ ◆r6PDGT6Xd2 03/04/18 19:34 ID:fPIUuruF(2/2) AAS
なんでだろうね 誰か直してよ(藁)
199: 03/04/18 21:18 ID:??? AAS
マリモーマ、、リア厨かと思ってたらもっと年取ってた。爆
200: マリモーマ ◆r6PDGT6Xd2 03/04/19 13:29 ID:kAGW5QYq(1) AAS
若いのは年齢だけだよ もう体がたがた そろそろプログラムも
できなくなるかも?
201
(1): 03/04/20 00:47 ID:??? AAS
もーちょっとデザインなんとかならんのかね・・・
掲示板、見にく(ry
202: 03/04/20 04:29 ID:??? AAS
でも俺より若い
203
(1): 山崎渉 [(^^)sage] 03/04/20 05:59 ID:??? AAS
   ∧_∧
  (  ^^ )< ぬるぽ(^^)
204
(1): マリモーマ ◆r6PDGT6Xd2 03/04/20 10:12 ID:xM5Zwmt0(1/2) AAS
>>201
∧_∧
(  ^^ )<じゃ どうすればいい?(^^)
205
(2): 03/04/20 12:05 ID:??? AAS
>>204
なんとかすればいい
206: 03/04/20 12:21 ID:??? AAS
>>205
ワロタ
207
(1): マリモーマ ◆r6PDGT6Xd2 03/04/20 15:05 ID:xM5Zwmt0(2/2) AAS
>>205
(O_O) うう〜〜 わからないよ
208: 03/04/20 16:04 ID:??? AAS
しねや
209
(1): [201] 03/04/21 09:41 ID:??? AAS
>>207
・・・・とりあえず、他の掲示板とか見て回れ。
他の掲示板とか見たことあるだろ?
無駄なテーブル使いすぎ。
もっと、シンプルでいいと思うが・・・
それと、掲示板CGIの吐いてるHTML見たが・・・
HTML、間違ってないか???
改行ナシの、汚いHTMLでちゃんと読めんかったが・・・。
もうひとつ。
ひとつDLさせてもらってソース見たが・・・
省7
210: マリモーマ ◆r6PDGT6Xd2 03/04/21 17:08 ID:CNsFsGAe(1) AAS
>>209
なるほど 参考にするよ ありがとう
211
(25): [3025] 03/04/24 04:27 ID:??? AAS
ども。ちょっとスレ違いかもしれないけど、お邪魔します。
CGIじゃないんだけど、Perlスクリプト内のコメントを削除するスクリプトを作りました。
使い方は、同封してるテキスト読んでも分かるけど、D&DでOKな、結構便利な感じです。

外部リンク[lzh]:isweb25.infoseek.co.jp

評価お願いします。
また、改造してくれてアップしてくれる人は、
それ見て勉強したいと思いますのでお願いします。
212: bloom 03/04/24 04:29 ID:vV02vP1k(1/3) AAS
外部リンク:homepage.mac.com
213
(1): マリモーマ ◆r6PDGT6Xd2 03/04/24 05:40 ID:0xA64jQF(1/3) AAS
>>211
コメントが 笑った  あと 抜いた行の 下の行を 上げたほうがいいかも
214
(1): マリモーマ ◆r6PDGT6Xd2 03/04/24 05:49 ID:0xA64jQF(2/3) AAS
あ やっぱり 「抜いた行の下を上げますか」と 聞いてきた方が
いいかな?
215: 03/04/24 05:53 ID:x2ip/9xn(1) AAS
外部リンク:homepage3.nifty.com
216: 動画直リン 03/04/24 06:29 ID:vV02vP1k(2/3) AAS
外部リンク:homepage.mac.com
217: 211 [3025] 03/04/24 07:25 ID:??? AAS
>>213
>>214
ご感想、ありがとうございます。
そういう事で、少し改造してみました。
改行を消すかどうか、質問されるようになりました。

外部リンク[lzh]:isweb25.infoseek.co.jp

もし、どなたでも改造したら、できればアップしてくださいね。
218: 211 [3025] 03/04/24 07:49 ID:??? AAS
・・・と、言う訳で、またバグを見つけました・・・
HTML出力してて、色指定で#を使ってたら、それ以降が削られてました。。。

外部リンク[lzh]:isweb25.infoseek.co.jp

・・・今度こそ・・・
219: bloom 03/04/24 08:29 ID:vV02vP1k(3/3) AAS
外部リンク:homepage.mac.com
220: 03/04/24 10:23 ID:??? AAS
分かち書き、変
221: マリモーマ ◆r6PDGT6Xd2 03/04/24 16:32 ID:0xA64jQF(3/3) AAS
$a =~ s/#//g; としたら 消えた まあ これは実行したら エラーが出ると思うけど
222
(2): 03/04/24 16:38 ID:??? AAS
このコメント削除スクリプトはどんな役に立つんだぎゃ?
223
(18): 03/04/24 16:48 ID:??? AAS
外部リンク[zip]:isweb25.infoseek.co.jp
実は211のやつ見て無いんだが
書いて見たよ
先頭のタブとかは消さないようにした
一応自分の書いたスクリプトではきれいに
コメント部は消えた模様
224: 223 03/04/24 16:52 ID:??? AAS
書いてから211の試したんだが
漏れの書いたスクリプトでは
誤作動しまくりだ
$hoge = '#000000';#hogehoge-
こういうのが
$hoge = '
になってるよ
225
(1): 223 03/04/24 16:53 ID:??? AAS
漏れの書いたスクリプトを 211ので処理すると
ってことね
226
(1): 211 [3025] 03/04/24 17:06 ID:??? AAS
>>222
このコメント削除スクリプトは・・・
PerlでCGIをつくって、サーバに上げる時、
ソース内のコメント部分のファイルサイズが無駄なので作りました。
ちなみに、俺のCGIファイルで、23kあったのが、16kにまで落ちました。
自分のパソコン内で走らせるスクリプトなどについては・・・
コメント削除するメリットはありません。

>>225
どもども。
そう、後から気付いたんです。
省6
227: 223 03/04/24 17:11 ID:??? AAS
>>222
意味は無いよ
コンパイル速度も変わらんしね
ただimgboard.cgiとかむかつくようなコメントが
たくさん載ってるやつには有効だ(ぷ
210KB→160KBになったよ
まぁ漏れ的には容量はどうでもいいが
うざすぎるコメント消すのが面白そうだったからなw
228
(1): 223 03/04/24 17:13 ID:??? AAS
>>226
それをimgboard.cgiで試したんだが
コンパイルエラーするよ
容量的には漏れより小さくなってるんだが
余計なところまで消しすぎでは?
229
(1): 211 [3025] 03/04/24 17:21 ID:??? AAS
>>228
マジっすか!
なに消してるんだろ・・・
消しちゃいけない所、特定できません?
imgboard.cgiですか・・・
探してDLして、ためしてみます。

ちなみに、>>223の削除スクリプト試させてもらいました。
先頭にタブとかがあってのコメントは削除されない仕様ですね。
俺のは、とにかくコメントだと思われるような所は、すべて排除していく仕様なので・・・
失敗したら、文法エラーとかコンパイルエラーとか出ます。
省2
230: 223 03/04/24 17:51 ID:??? AAS
外部リンク[zip]:isweb25.infoseek.co.jp
一箇所だけ修正
まぁ 文法一切見て無いので
バグいろいろあるんだが
直す気もないので
終了。
製作時間2分+30秒ですた。

imgboardはimgboard.cgiでぐぐると一番上にでてくるよ
231: 223 03/04/24 17:53 ID:??? AAS
>>229
先頭にタブがあっても消えるはずだが
\t\t$hoge = 'hoge';#これはほげです

\t\t$hoge = 'hoge';
になるだけ 先頭のスペースやタブは削除しないってこと
7行プログラミングするわけでも無いしね
232: 03/04/24 18:00 ID:??? AAS
確かにimgboardのコメントはなんか
むかつくところがあるな
233
(1): 211 [3025] 03/04/24 18:03 ID:??? AAS
と、一応バグを見つけました。
imgboardは、作者が旅行中(?)らしく、DLできませんでした・・・
違う貼り付け掲示板で、コメント削除するとエラーが出たので、
そこからバグを辿ってみました。

外部リンク[lzh]:isweb25.infoseek.co.jp

今度こそ・・・いけるはず。たぶん。
234
(1): 71 03/04/24 18:03 ID:??? AAS
ちーと気になったんだが・・・
ヒアドキュメントとか、変数内の#なんかはちゃんと排他処理するようになっとるんだろうか・・・
235
(1): 223 03/04/24 18:08 ID:??? AAS
>>233
まだ駄目だね
外部リンク[cgi]:www.big.or.jp
ほれ コメント見ると面白いと思うぞ

>>234
ヒアドキュメント検知したら
そのなかは一切いじらないようにしてるけど
実際にはどうなるかは知らない。

一応漏れのは上記のimgboard.cgiのコメント
あぼーんするのに成功したが(ワラ
236: 223 03/04/24 18:10 ID:??? AAS
まぁ 3分スクリプトなんで
あのimgboard.cgiのコメント無くなっただけでも
満足だ

まぁマジレスするのなら
秀丸やEmediterなら
そういうマクロ誰かが作ってるんじゃ無い?
237: 223 03/04/24 18:21 ID:??? AAS
(;´Д`)あ 漏れのだめじゃん
頭のむかつくコメント集は消えてるけど
スクリプト内で消えて無いところが
部分部分である
211よがんばってくれ
238
(1): 03/04/24 18:25 ID:??? AAS
俺、思うんだけどよ。
「コメントを消す」んじゃなくて「コメント以外を残す」って発想はどうよ?
これならヒアドキュメントや文字列中の#なども簡単に対応できそうだが。
239: 223 03/04/24 18:29 ID:??? AAS
>>238
それは難しすぎ
Perlの構文全て判定しないとだめだ

ちなみに漏れの場合は
コメントを消すんじゃなくて
普通の構文らしきものがある場合は
それを残すようにしてる
240
(1): 211 [3025] 03/04/24 18:36 ID:??? AAS
>>235
外部リンク[cgi]:www.big.or.jp

ここへ行くと、403で工事現場にいてるような、
おやっさんがお辞儀してる絵が出るのは俺だけですか?

俺がもってる貼り付け掲示板では、正常に動いてるんだけど・・・
やっぱ、imgboard.cgiのソースがないと、無理っぽいですよ・・・

ちなみに、ヒアドキュメント内は・・・
びしばし、コメント文(#から始まる文字)を探してます。
でも、HTMLとかの色指定の#は削られません。
・・・が、普通の文章内で#使われてたら削っちゃうかも・・・
省1
241
(1): 223 03/04/24 18:43 ID:??? AAS
>>240
チミだけ
漏れにはどうするアイフルの広告が見える
変なソフトいれてるのなら切って見るとか
外部リンク[zip]:www.big.or.jp
一応アーカイブ

外部リンク[zip]:isweb25.infoseek.co.jp
さっきの残しておくのはあまりにも恥ずかしいんで
修正しておいた
上記のimgboard.cgiなら全てのコメントが無くなった模様
省1
242: 211 [3025] 03/04/24 18:49 ID:??? AAS
>>241
ぐあ!
初めて行くサイトで、アク禁くらってました!
串さしたら、行けた・・・

なんだー!
俺と同じプロバの人間が悪さしてるのかぁ〜???
・・と、とにかく無事にソースをゲットできたようなので、
調べてみます。

ソースも、見せてもらいますね。
ありがとうございました。
243: 223 03/04/24 18:52 ID:??? AAS
スマソ さらに修正
"<<(.+)" -> <<"(.+)"
'<<(.+)' -> <<'(.+)'
もうだめぽ
外部リンク[zip]:isweb25.infoseek.co.jp
244
(1): 223 03/04/24 19:04 ID:??? AAS
バグとしては
print <<HTML;
とかやられた場合に処理がおかしくなる・・・
"HTML" 'HTML'はOK
もういいや 飽きたw
245: 03/04/24 19:11 ID:??? AAS
>>244
飽きるのは速っ
246
(1): 03/04/24 20:06 ID:??? AAS
こんな状態なら、手作業でコメント文を削った方が速いし確実だといってみるテスト
247: &rlo;トステるみてっ煽と&lro; 03/04/24 20:35 ID:??? AAS
>>246
君が作るスクリプトならそれで十分だね
248: 211 [3025] 03/04/24 21:07 ID:??? AAS
ちょっと改造してみました・・・

外部リンク[lzh]:isweb25.infoseek.co.jp

imgboard.cgiで、エラーは出なくなりました。
・・・文法エラーはね。
実際に動かしてはないです。
また、所々コメントを排除できてない所があります・・・
この辺は、もーすこし改造してみようかと。

>>223
コメント削除フィルタ処理部分を改造して・・・正規表現、頭痛い。。。
249
(1): 03/04/25 03:18 ID:??? AAS
POD (Plain Old Document) には対応しないの?
250
(2): 211 [3025] 03/04/25 06:05 ID:??? AAS
たぶん、これで完璧にコメントが削除されると思う・・・
勝手に、>>223のコメント削除ルーチンを改造して使わせてもらってます(w
オリジナルのままだと、完璧には削除されない場合があったので・・・
一部、改造させてもらいました。

外部リンク[lzh]:isweb25.infoseek.co.jp

>>223
「おいおい、勝手に使わないでくれ」って時は削除しますので、
言ってください。

>>249
PODってなに?
251: 動画直リン 03/04/25 06:29 ID:pCM0Odok(1) AAS
外部リンク:homepage.mac.com
252: 03/04/25 12:15 ID:??? AAS
>>250
知らない言葉が出てきたら調べようよ。
外部リンク[html]:www.kt.rim.or.jp
実例はお手元のモジュール群をご覧下さい。;-)
253: 03/04/25 15:21 ID:??? AAS
>>250
思い付きで書いただけだから
別にどうでもいいよw
254: 03/04/25 17:43 ID:??? AAS
DQN降臨?
255: 03/04/27 08:10 ID:??? AAS
保守
256: 03/04/29 06:39 ID:??? AAS
ほっしゅ
257: 03/04/30 00:13 ID:??? AAS
保守!
誰か、有能なスクリプト組んでくれ。
258: 03/04/30 01:33 ID:??? AAS
いいスクリプトは評価してもらう必要が無かったりする
259
(1): 山崎渉 [(^^)] 03/05/10 16:15 ID:??? AAS
   ∧_∧
  (  ^^ )< ぬるぽ(^^)
260: 03/05/10 23:04 ID:??? AAS
このスクリプトすごい。感動した。
外部リンク:sh.sakura.ne.jp
261: 03/05/19 20:36 ID:GoudX7FZ(1) AAS
age
262: 03/05/21 19:41 ID:??? AAS
亀レスだけれども。
>>211
コメント解除スクリプト、B::Deparse 使っちゃだめなのかな。
$ perl -MO=Deparse foo.pl
263: 山崎渉 [(^^)] 03/05/22 01:59 ID:??? AAS
━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━―
264: 03/05/25 01:28 ID:wMw6QnJf(1) AAS
age
265
(4): 03/05/25 22:00 ID:mSA7mvhe(1) AAS
自作新着情報cgiを作ったんだけど
評価して!
外部リンク[cgi]:fine.tok2.com
外部リンク[zip]:fine.tok2.com

携帯で見れるようにしたいんだけどどうしても文字化けしちゃうんだよね
266: 03/05/26 10:01 ID:??? AAS
えー。
単刀直入に言うとなぜか解凍できない。
俺のアプリケーションに異常が起きたのか、そのファイルが変なのかは知らん。
めんどうなので調べない。
267: 03/05/26 10:35 ID:??? AAS
>>265
通報したぞ
解凍するとGBになるファイル1個入りの(ry
1-
あと 405 レスあります
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル

ぬこの手 ぬこTOP 0.029s