自作CGIを評価するスレ
■ このスレッドは過去ログ倉庫に格納されています
0001Premature end of script headers : /this/thread
03/04/05 12:47ID:tIET0nhfよほどプログラムが短くないかぎりはアプロダにでもアップしてね。
0002nobodyさん
03/04/05 12:58ID:???0003nobodyさん
03/04/05 14:40ID:???http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/lounge/index.html
あぷろだはどこ使うよ？
0004nobodyさん
03/04/05 15:00ID:???0007nobodyさん
03/04/05 15:51ID:???0008nobodyさん
03/04/05 17:41ID:???0011マリモーマ ◆r6PDGT6Xd2
03/04/05 18:33ID:4Hc1kYlW0012nobodyさん
03/04/05 18:43ID:???0013nobodyさん
03/04/05 18:57ID:???殆どグローバル変数・・・
0014nobodyさん
03/04/05 18:59ID:???・関数名から内容が想像できない(re,fot,ur,re2,wr2lok,co.gc等 sub ge {} は結構引いた）
・スタイルに一貫性がない
・$FORMの扱いがｷﾓｲ
・symlinkロックしてるが解除はどこでやってんだ？
0015nobodyさん
03/04/05 19:05ID:???5番目訂正しとく。
・symlinkロックしてないから解除はやらなくてもいいんだけどロックしないってことか。
sub lok{
if($lock == 0){return;}
local($wait) = 4;
while (!symlink(".", $lock)) {
if ($wait-- <= 0) {
&error("$(B%m%C%/%U%!%$%k$,B8:_$7$F$^$9!#(B");
}
sleep 1;
}
}
$ grep '$lock' ch/*
ch/sub.cgi: if($lock == 0){return;}
ch/sub.cgi: while (!symlink(".", $lock)) {
これじゃあ$lockは常に0だよ・・・
まあ$lockに値を入れたところで解除できんから1回しか書き込めんのだけどね。
0016マリモーマ ◆r6PDGT6Xd2
03/04/05 21:18ID:4Hc1kYlW0017これ自信作だぜ
03/04/05 22:52ID:qMi3a/lA0018これ自信作だぜ
03/04/05 23:35ID:qMi3a/lA見たけど誰もアクセスして来ないや。
皆臆病者だね。
0019nobodyさん
03/04/05 23:45ID:???00204
03/04/06 00:23ID:t3fZoblFもうちょいコード直してから、URL晒します。
0021nobodyさん
03/04/06 00:26ID:???00224
03/04/06 00:28ID:t3fZoblFほめてもらったら何も意味がないっす。
0024nobodyさん
03/04/06 00:39ID:???ソース見たらDOCTYPEがXHTMLだったけどぱっと見ても明らかに間違えまくってたのでチェックしてみた。
チェックの結果は以下のとおりです。
http://oasis.minidns.net/ を XHTML1.0 Transitional としてチェックしました。
19個のエラーがありました。このHTMLは 4点です。タグが 9種類 14組使われています。文字コードは Shift JIS のようです。
先頭の数字はエラーのおおまかな重要度を 0〜9 で示しています(減点数ではありません)。少ない数字は軽く、9 になるほど致命的です。0 は減点対象外のごく軽度のエラーで (グレイのかっこつき) でメッセージされています。
9: line 1: このXML宣言は正しくありません。 → 解説 23
6: line 5: <html> には xmlns 属性が必要です。 → 解説 86
2: line 5: <html> には lang 属性を指定するようにしましょう。 → 解説 116
2: line 5: <html> には xml:lang 属性を指定するようにしましょう。 → 解説 116
0025nobodyさん
03/04/06 00:39ID:???0: line 6: (<head>〜</head> 内に <link rel="next" href="〜" /> などのナヴィゲーション用のリンクが含まれていません。) → 解説 122
1: line 6: <p> と </p> の間が空です。 → 解説 51
1: line 6: <body> での色指定が不完全です。text 属性も含めるようにしましょう。 → 解説 149
0: line 7: (<input type="text"> には tabindex 属性を指定するようにしましょう。) → 解説 166
0: line 7: (<input type="file"> には tabindex 属性を指定するようにしましょう。) → 解説 166
1: line 7: <input type="text"> には value 属性で初期値となるテキストを指定しておきましょう。 → 解説 160
0: line 7: (<input type="text"> には tabindex 属性を指定するようにしましょう。) → 解説 166
0: line 7: (<input type="submit"> には tabindex 属性を指定するようにしましょう。) → 解説 166
1: line 7: <input type="text"> には value 属性で初期値となるテキストを指定しておきましょう。 → 解説 160
0: line 7: (<input> には accesskey 属性を指定するようにしましょう。) → 解説 167
0: line 7: (<input> には accesskey 属性を指定するようにしましょう。) → 解説 167
0: line 7: (<input> には accesskey 属性を指定するようにしましょう。) → 解説 167
0: line 7: (<input> には accesskey 属性を指定するようにしましょう。) → 解説 167
9: line 7: </html> の後にまだ何かテキストがあります。 → 解説 231
00264
03/04/06 00:40ID:t3fZoblF00274
03/04/06 00:41ID:t3fZoblFのはNGですか？
0028nobodyさん
03/04/06 00:45ID:???本来のドキュメント（最初の</html>まで）でチェックしてみた。
XHTML1.0 Transitional としてチェックしました。
19個のエラーがありました。このHTMLは 8点です。タグが 9種類 14組使われています。
先頭の数字はエラーのおおまかな重要度を 0〜9 で示しています(減点数ではありません)。少ない数字は軽く、9 になるほど致命的です。0 は減点対象外のごく軽度のエラーで (グレイのかっこつき) でメッセージされています。
9: line 1: このXML宣言は正しくありません。 → 解説 23
6: line 5: <html> には xmlns 属性が必要です。 → 解説 86
2: line 5: <html> には lang 属性を指定するようにしましょう。 → 解説 116
（以下略）
00304
03/04/06 00:53ID:t3fZoblFもう少し。
00314
03/04/06 00:58ID:t3fZoblF0032nobodyさん
03/04/06 00:59ID:???00344 ◆R.zOhOehsw
03/04/06 01:29ID:t3fZoblF0035nobodyさん
03/04/06 01:34ID:???0036あぼーん
03/04/06 01:41ID:???／:＼.＿＿＿_＼
|:￣＼(∩´∀｀) ＼ ＜先生！こんなのがありました！
|:在 |:￣￣ U￣:|
http://saitama.gasuki.com/aomori/
00374 ◆R.zOhOehsw
03/04/06 01:56ID:t3fZoblFSRC: http://hex51.darktech.org/the.txt
言語: PERL
ネタ元: http://thebbs.jp/
糞ほど批判いただければ幸いです。
書き込みまくっても糞スレたてまくっても結構。
0038nobodyさん
03/04/06 02:04ID:???Perlの文法的な間違いはないみたいだけど、処理がいまいちな部分が
散見される。
効率を考えればもうちょい工夫したほうがいいだろう。
00394 ◆R.zOhOehsw
03/04/06 02:08ID:t3fZoblFもっとアルゴリズムを勉強しれってことですね？
0040nobodyさん
03/04/06 02:22ID:???・一行書き出すのにヒアドキュメント使うのは何故？
・かと思えばqq連発で使ってたり…
・１．入力 ２．処理 ３．出力 という風に処理を分けよう
・自作自演防止はハッシュとかじゃ駄目なのかい？
・FORMの処理が2回書いてあったりして無駄
・HEADリクエストは面白いね。
0041nobodyさん
03/04/06 02:32ID:???http://kabocha.org/jelfe/
↑のサイトの
http://kabocha.org/jelfe/cgi/ybbs.html
↑のページに
山口_BBS2.00b1
↑って言う私のCGIがあるのですが、いかがな物でしょうか。
ただし「携帯のEZ専用」なので皆様の中には意味を理解しかねる出力があるかもしれません。
ああ、ついに２ちゃんねるに晒してしまったよ…
冷静に考えると恥ずかしいけど…、プロの方（？）に見てもらいたい気持ちが上のようだ…。
変なところあったらけなしてくれてもけっこうです、むしろけなして下さい。
0042nobodyさん
03/04/06 02:35ID:???処理毎に｛ ｝で囲んで使わなきゃ意味ないだろ。
00434 ◆R.zOhOehsw
03/04/06 02:47ID:t3fZoblF>・一行書き出すのにヒアドキュメント使うのは何故？
エディタで折り返すのが気になるので..
>・かと思えばqq連発で使ってたり…
Emacsなので、ヒアドキュメントだと表示する特殊によって
自動のタブがおかしくなるのです..
全部個人的なことですね..修正します。
myに関しては、ちょっと調べてみます。
その他の意見に関しても、もう一度よく考え直してみます。
00444 ◆R.zOhOehsw
03/04/06 02:49ID:t3fZoblF特殊文字、記号です。
0045nobodyさん
03/04/06 02:50ID:???cperl-mode使ってる？
myは変数のスコープを局所範囲に閉じ込めるためのもので、
mainパッケージでmy使ってもmainパッケージ全体から読み書きできてしまうので
いやーんな感じ
0046nobodyさん
03/04/06 02:53ID:???2193行目 $error_name = @_[0]; → $error_name = $_[0];でいいだろ
あちこちの変数、もうちょっとスコープを考えてレキシカルに
するとかしたほうがいい。
問題ないけど、読み取りopenに < をつけたりつけなかったりなどしてるのを
書き方統一したら？
他の部分なんかでも統一させる書き方をくせにしたほうが可読性良くなるし。
吐いてるhdmlはすぐにテストできないから見ていない。
00474 ◆R.zOhOehsw
03/04/06 03:00ID:t3fZoblFEmacsは、普通にそのまま.plとして読んだ感じで使ってます..
mainで、my使うと、別の関数から書きかえれないのでは？
それは意味ないのでしょうか？
00484 ◆R.zOhOehsw
03/04/06 03:03ID:t3fZoblF勝手に、関数を覗いた部分がmail{}となるのかと思ってました。
0049nobodyさん
03/04/06 03:04ID:???＞mainで、my使うと、別の関数から書きかえれないのでは？
「別の関数」が良く分からんが、mainパッケージに属している関数では
my $a = 1;
print $a,"\n";
&routine;
print $a,"\n";
sub routine {$a = 3;}
$ perl hoge.pl
1
3
となる。
0050nobodyさん
03/04/06 03:05ID:???require "hage.pl";
my $a = 1;
print $a,"\n";
&hage::routine;
print $a,"\n";
＃ ↓はhage.pl
#!/usr/bin/perl
package hage;
sub routine {$a = 3;}
1;
では、
$ perl hoge.pl
1
1
となる（安全
00524 ◆R.zOhOehsw
03/04/06 03:08ID:t3fZoblFありがとうございます。
0053４１
03/04/06 03:11ID:???御意見ありがとう御座います。
こんなに早く返って来るなんて…。感激です。
…と言うより、私の記述が雑なので簡単に変な所が見つかってるだけなのだろうか。複雑な気分…汗
もし、ヒマな方がいらっしゃいましたらまだまだ御意見をたくさんお聞かせ下さい。
0054nobodyさん
03/04/06 03:13ID:???0055nobodyさん
03/04/06 03:16ID:???Name "main::get_time_yday_2" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2336.
Name "main::get_time_isdst_3" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2339.
Name "main::get_time_isdst_2" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2336.
Name "main::get_time_wday_3" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2339.
Name "main::mail_jcph" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2071.
Name "main::get_time_yday" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2333.
Name "main::get_time_sec_3" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2338.
Name "main::get_time_wday_2" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2336.
Name "main::get_time_sec" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2332.
Name "main::get_time_wday" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2333.
Name "main::get_time_isdst" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2333.
Name "main::get_time_sec_2" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2335.
Name "main::main_user_agent" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 434.
Name "main::get_time_yday_3" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2339.
0057nobodyさん
03/04/06 03:31ID:???0058nobodyさん
03/04/06 03:31ID:???10KB超えるCGIなんて作ったこと無い・・・。
0059nobodyさん
03/04/06 03:32ID:???・localの意味が分からないならmyを使おう
・クラックを気にするならcryptを使おう
・684行目はどういう意味？
・=はエスケープしなくていいよ
・PCと携帯を同時に扱うなら、途中までは両者に依存しない処理にしておいて
最後の最後いざ出力するという時に振り分けると綺麗になるよ
0061nobodyさん
03/04/06 03:38ID:???まぁあとは4氏にも共通するけど、インデントがおかしいのと
記述に一貫性がないのが気になるね。
サブルーチンがそこそこ見られるのは良いと思う（ただ、もう少しstrictに書こう）
これは個人的な趣味だけど、俺はグローバルなオプションはハッシュにする。
%option =(board_name => "hoge", max_mes => 50 ); みたいに。
00624 ◆R.zOhOehsw
03/04/06 03:45ID:t3fZoblFなるほど。
今までファイルから読んだ設定なんかはハッシュにしてましたが、
CGIだと初心者設置者が混乱するかと思って、できるだけ
見た目で分かりそうにしたつもりでしたが、ハッシュのがｲｶｽ。
0063nobodyさん
03/04/06 03:49ID:???sub ayaya{
my $num = shift;
$num++;
return($num);
}
みたいな形でやっとくほうが誤動作しにくい。
0064４１
03/04/06 03:52ID:???もう早こんなに…！ありがとう御座います。
最初はなんか晒すの恥ずかしいと思ってたけど、晒して良かったなぁ…（嬉
>>55-56
はい、タイムの所めちゃくちゃです。自分でもここは直さねば！と思ってました。
ありがたく直させてもらいます。
>>57
そうですか。私のレベルだと他人の記述は自分と進めかたが違うので見てると疲れてしまいます。
そんな私はperlしかできず、初めて１年くらいになります。面白いと言って頂けて幸いです。
>>58
＞・receive_error ifはいるのか？
はい、これは利用者のかたが「0」と設定した場合、
バイト数無制限にするため、判定にかけません。
＞・localの意味が分からないならmyを使おう
ごもっともです。言われてみると私もlocalの意味が分かりません。汗
＞・クラックを気にするならcryptを使おう
cryptって分からないので調べてみますね。今は取り敢えず返事を急いでます。
＞・684行目はどういう意味？
これは、携帯用なのでパケ代の節約です。
＆ｎｂｓｐ；だと半角20文字で改行と同じになります。（多くの携帯は横が半角20文字）
で、携帯はパケ代（受信料）が深刻なので、
＆ｎｂｓｐ；２０コ。つまり120バイトを＜ＢＲ＞とし、４バイトに抑えます。
これで受信料は1/30になります。相手が携帯ならではの記述です。
＞・=はエスケープしなくていいよ
はい。
＞・PCと携帯を同時に扱うなら、途中までは両者に依存しない処理にしておいて
＞ 最後の最後いざ出力するという時に振り分けると綺麗になるよ
ついつい手抜きでガーッとコピーしてしまいました。汗
00654 ◆R.zOhOehsw
03/04/06 04:01ID:t3fZoblF$cry = crypt('passwd', 'sl');
で、DESというので暗号化します。slはsaltで2byteとります。
暗号化されてた文字列(13byte)の先頭2byteに入りますから、
パスワードを検査するときに、同じsaltでもう一度暗号化して、
暗号済みのものと同じになれば同じパスワードです。
ん、いい説明探したほうが早いか..
0066nobodyさん
03/04/06 04:18ID:???0068nobodyさん
03/04/06 04:23ID:???$def_log_file = q[./log.txt];
これは納得できるが
#○一度に表示されるレスの件数。
#[3〜6]推奨。多く設定すると端末側で読み込めない場合があります。
$def_mess_page = qq[5];
こっちをダブルクオートで囲むのはなぜ？
数値をクオートで囲まれると変な気がする…
0070nobodyさん
03/04/06 04:32ID:???どうしてもその前後で値が必要になったりすることが多いので
サブルーチンなら先頭に全部まとめて書いてる・・・
0072４１
03/04/06 04:37ID:???＞・最初（〜300行目）のqqはなんだ？
qq自体の意味でしょうか…？qならシングルクウォートでqqならダブルです。
入力は、ご使用していただく方に任意で入力してもらいます。量が多くてめんどうな気がしますけど…。
＞インデントがおかしいのと
＞記述に一貫性がないのが気になるね。
つまり見にくいと…。私の中では今までで１番気をつけた記述だったりしますが…
頑張ります。
サブルーチンがそこそこ見られるのは良いと思う（ただ、もう少しstrictに書こう）
strictってなんだろう、汗。調べてみます。
＞これは個人的な趣味だけど、俺はグローバルなオプションはハッシュにする。
＞%option =(board_name => "hoge", max_mes => 50 ); みたいに。
そうですか、私はこの記述で
「グローバルな変数の先頭にmain」をつけ、
「ルーチンのみの変数の先頭にルーチン名」を付けたのですが、
名前が長くなりすぎて失敗してしまいました。
>>65
どうもです。
もしかしたら、返事を飛ばしてしまった方が居るかもしれませんがすみません。
明日からでも記述の整理をしたいと思います。
まだまだなにかありましたら、お願いします。ヒマな方は眺めてやって下さい。
当たり前ですが、全部読んで参項にさせてもらってます。
0073４１ ◆hht1jkpw9E
03/04/06 04:43ID:???はい、これで行きます、トリップ。
>>68
もし、
#○一度に表示されるレスの件数。
#[3〜6]推奨。多く設定すると端末側で読み込めない場合があります。
$def_mess_page = 5;
とした場合、どこに入力したら良いか目で確認しにくいかと思いまして…。
数字なのでシングルではなく、ダブルで囲んでます。
なんて言うのか、入力する場所を
[ここ];
にしたら始めて設置する人でも分かりやすいと考えた結果こうなりました。
0074nobodyさん
03/04/06 04:47ID:???んー基本的なことを言わせてもらうと・・・
コメントでちゃんと書いとけば理解してもらえる範囲じゃないかと思うけどね・・・
それでわからないっていうのは相手する必要が無いような・・・（ぉ
0075nobodyさん
03/04/06 04:48ID:???激しく意味不明なやつになっちまったけど
sub saitama{
my ($value,$saitama,$hoge);
foreach $value (@_){
($saitama,$hoge) = split(/,/,$value);
if($saitama == $hoge){ return 1; }
}
return 0;
}
こんなやつもだめ？ってこと
0076nobodyさん
03/04/06 04:53ID:???普通に紛らわしい。なんとかしてほしい。
0077nobodyさん
03/04/06 04:55ID:???× 自作CGIを評価するスレ
○ 自作CGIを評価してもらえるスレ
○ 自作CGIを評価していただくスレ
じゃない？
007871
03/04/06 04:55ID:???sub saitama{
my $ret = 0;
foreach my $value (@_){
my ($saitama,$hoge) = split(/,/,$value);
if($saitama == $hoge){
$ret = 1;
last;
}
}
return $ret;
}
私ならこう書くかな
007975
03/04/06 05:00ID:???漏れならこう書くんだけど
sub saitama{
foreach my $value (@_){
my ($saitama,$hoge) = split(/,/,$value);
if($saitama == $hoge){ return 1; }
}
return 0;
}
78のコードと比べるとどっちのほうが
好まれるのかい？まぁ下らんと言えば下らないのだが・・・
>>73
use strict 使ってみたら？
008071
03/04/06 05:03ID:???008237 ◆0wPZQfeVoI
03/04/06 05:07ID:t3fZoblF非常にすみません。
Perlの極意スレの4番です。
もう沈んでどこかに行ったスレです。
なんとなくそのまま４でした、改名します、37です。
0083nobodyさん
03/04/06 05:09ID:???漏れは 何回も使う関数的なやつは結構まともに書いてるけど
本体が長くなるからただ分けただけのサブルーチン的なものだと
かなりだらしないわ。
一応strictなコードでmod_perlで動いてる
0084nobodyさん
03/04/06 05:10ID:???エラー処理でも
if (真) {
if (真) {
if (真) {
# 何か処理
} else {
$ret = 0;
}
} else {
$ret = 0;
}
} else {
$ret = 0;
}
より
if (偽) {return 0;}
if (偽) {return 0;}
if (偽) {return 0;}
# 何か処理
の方が圧倒的に見やすいだろう。だから俺は>>79だな。
0085nobodyさん
03/04/06 05:12ID:???それ以上続けるのが無意味と分かっている場合に
だらだらと引きずるのは良くない。すぱっとreturnすべき。
008671
03/04/06 05:13ID:???まぁ、別に好きなように書けばいいんだけど、
グローバル変数の値をサブルーチンから出力することもあるし・・・
それ以前に、どのレベルで言ってるかつーのが気になる所かもなぁ
ちなみにgotoは使わないよ。必要ないから(w
008737 ◆0wPZQfeVoI
03/04/06 05:15ID:t3fZoblFなるほど、私は上のほうの書き方しますね..
やはり、コードが見やすいというのもプログラムの重要な要素に
はいるのでしょうか？
008879
03/04/06 05:16ID:???それ書くなら
if(真 && 真 && 真){何か}else{return 0;}
だろうなぁ…
まぁ趣味でやってるプログラミングなんで
動いたら嬉しいって程度なんだが（ｗ
>>83
関数だと割ときれいに書くな 漏れも
009137 ◆0wPZQfeVoI
03/04/06 05:26ID:t3fZoblFそのためには1度しか使わない処理でも無駄にサブルーチン作って、
見やすくすることも必要でしょうか？
趣味で作るので、自分以外がソース読むことが無かったため
とりあえず、自分が読めれば気にしなかったのですが。
009237 ◆0wPZQfeVoI
03/04/06 05:29ID:t3fZoblFエラー処理ですが、
if () { えらー1}
if () { えらー2}
if () { error }
としたほうがいいですかね？
009371
03/04/06 05:31ID:???慣れてない時は単純な処理にでもサブルーチンは作ってたけど、
今は、機能ごとにサブルーチンを作ってるって感じですね
同じ処理でも規模がおっきくないとそのまま書きなぐりすることがおおいです
009479
03/04/06 05:32ID:???エラーで止める優先度あるの？
unless ($a < 100){&error("$aが100以下じゃありません");}
unless ($b eq 'GET'){&error("$bがgetじゃありません");}
〜〜
でいいと思うが・・・
0096nobodyさん
03/04/06 05:38ID:???あっと、>>84の例ではエラー処理が同一に書いてしまったのでおっしゃるとおりなんですが、
エラー処理が失敗した段階によって異なると考えてくださいませ
0097nobodyさん
03/04/06 05:40ID:???○エラー処理の部分に同一の処理を
プログラム言語の前に日本語勉強してきます。。。
009837 ◆0wPZQfeVoI
03/04/06 05:40ID:t3fZoblFなるほどー。
私は2度以上行う処理で引数と返り値が必要なものをサブルーチンに
するようにしていますが、今回少し考え直そうかと。
010079
03/04/06 05:43ID:???第一引数は数値だよ第二引数になんかメモ
sub error内でエラーログに記録する内容とかを振り分けることができる
perlだけじゃないが でかいやつになると
エラーメッセージ一覧表だけで数KBになる・・
010137 ◆0wPZQfeVoI
03/04/06 05:43ID:t3fZoblF確かにその通りです。
優先順位などありません..
010271
03/04/06 05:48ID:???規定外の値だとデフォルト値になるようにしてるなぁ
010379
03/04/06 05:49ID:???かなり違うことがわかったんで 今日は寝るサラバ
起きたら局所変数を意識したプログラムを書いてみよう。
010437 ◆0wPZQfeVoI
03/04/06 06:08ID:t3fZoblFまだすべて修正できていませんが、一応アド載せときます。
BBS: http://hex51.darktech.org/cgi-bin/the/bbs.pl
SRC: http://hex51.darktech.org/the.txt
余談ですが、部屋がめちゃめちゃ寒いです..
010571
03/04/06 06:17ID:???my $cntfile = './count.dat';
my $log_dir = './logs';
our $lock_name = 'lock';
<中略>
my $t_h_width = 0;
my $t_f_width = 70;
my $name_size = $name_max - 4;
my $title_size = $text_cols;
この部分って全部グローバルだからourになっちゃうよん
my $hoge #グローバルと同意で無意味
{
my $hoge; #○
{
my $hoge; ＃○
}
}
みたいにブラケットで括られた中（サブルーチンでもなんでもいいけど・・・）で宣言した部分じゃないと無意味
010637 ◆0wPZQfeVoI
03/04/06 06:29ID:t3fZoblFさっさとourにしておきます。
010737 ◆0wPZQfeVoI
03/04/06 06:33ID:t3fZoblF0108nobodyさん
03/04/06 06:34ID:???010937 ◆0wPZQfeVoI
03/04/06 06:52ID:???取り合えず今日は寝てません。
0110nobodyさん
03/04/06 08:06ID:???our にはならない。
別のパッケージから読みこんだりしてるのでなければ、
わざわざ our にする方が意味ないと思うけど？
0111これ自信作だぜ
03/04/06 08:51ID:dTzeXpbT0112あぼーん
03/04/06 08:52ID:???―――┴┴┴┴┴―――――、
. . / ￣￣￣//.￣￣| ||￣￣￣|||￣ |｜ ＿＿＿＿＿＿＿＿＿＿
./ ∧// ∧ ∧| || ||| |｜ ／
[/＿＿__(ﾟ_//[ ].ﾟДﾟ,,) ||＿＿＿||| |｜ ＜ こんなのが有りますた
. ||_. * ＿|_|￣￣ ∪|.|. |ヽ.__|｜ ＼＿＿＿＿＿＿＿＿＿＿
. lO|o―o|O゜.|二二 |.| 救済病院 ||
.| ∈口∋￣_l＿＿ｌ⌒ｌ_|＿＿＿|_ｌ⌒ｌ._||
￣￣`ー'￣ `ー' `ー' `ー'
http://saitama.gasuki.com/koumuin/
0113これ自信作だぜ
03/04/06 08:52ID:dTzeXpbThttp://oasis.mininddns.net/
0114これ自信作だぜ
03/04/06 08:53ID:dTzeXpbThttp://oasis.minidns.net/
0115あぼーん
03/04/06 09:17ID:???川o・-・）ノ ＜先生！こんなのがありました！
＿_/ / /
＼(_ﾉ￣￣￣＼
||ヽ||￣￣￣￣||
...||￣￣￣￣||
http://saitama.gasuki.com/shinagawa/
0116これ自信作だぜ
03/04/06 10:29ID:dTzeXpbT蜜柑性だけどな
0117nobodyさん
03/04/06 10:35ID:???ってでてるよ＞116
0118nobodyさん
03/04/06 10:45ID:???>>71はブロックの外で宣言すると、例えばサブルーチンの中からでも参照できてしまうので
変数宣言する時は、スコープを絞って適切なブロック内で宣言しよう…と言っているのだと思う。
修正というか、むしろ改悪されえてるような・・・。
our にしてしまうと、他のファイルからも値を参照出来る様になってしまうので、
# つっこみたかったのは、
# > この部分って全部グローバルだからourになっちゃうよん
# my で宣言してるのに勝手に our にはならないよー。ってこと。
よくある方法だと、main関数（サブルーチン）を作るか、
単にブロックで囲む。（ラベルは別にいらないけど便宜上）
MAIN:{
my $foo = 'bar';
;
}
ちなみに、定数宣言なら変数にはせずに、
use constant LOG_DIR => './logs';
という風にしておくと、代入できないから
グローバルとか関係なく中の値は保証されるよ。
011937 ◆0wPZQfeVoI
03/04/06 14:26ID:???囲ってみます。
012071
03/04/06 15:01ID:???＞変数宣言する時は、スコープを絞って適切なブロック内で宣言しよう…と言っているのだと思う。
そいう意味.、言い方まずかったですな・・・
0121nobodyさん
03/04/06 15:42ID:???while{} foreach{} for{} sub{} {}
が？有効なの
if{}はどうなるの？
0122nobodyさん
03/04/06 15:46ID:???012371
03/04/06 15:49ID:???基本的に {}で囲ってる部分は全部スコープになりますよん
if{}でも eval{}でも 一緒
ファイルの重複を避ける処理
{
my %count;
@array = grep(!$count{$_}++, @array);
}
これみたいに、スコープを作るために括る事もありますし
0124nobodyさん
03/04/06 15:57ID:???なんで局所変数とかみんなつかうの？？？？
012771
03/04/06 16:12ID:???グローバルがいいっていうなら、そうすればいいのじゃない？
自分だけでやっとればいいってのなら一向にかまわないけど、
複数の人がからんでくるとなるとそうもいかない
012837 ◆0wPZQfeVoI
03/04/06 16:44ID:???今日はPHPで学校の掲示板を作るので
あまり変更はないかもしれません。
>>71さん
気をつけないと
if ($hoge eq 'hoge') {
my $foo = 'hoge!';
}
print $foo;
この場合ﾏｽﾞｲですよね？
ﾁｮｯﾄmyについていろいろと試してみます。
012971
03/04/06 16:49ID:???それはスコープの外に print $fooがあるので動作しない
if ($hoge eq 'hoge') {
my $foo = 'hoge!';
print $foo;
}
コレが正解
0131nobodyさん
03/04/06 20:10ID:???使った方が良いってだけで。
0132nobodyさん
03/04/07 00:03ID:???安全だし速度的にも有利だからね。
0133nobodyさん
03/04/07 15:58ID:???0134nobodyさん
03/04/07 16:14ID:???じゃなきゃそんなモジュール作らんよ。
0136nobodyさん
03/04/07 22:42ID:???ソートの練習なんです。
いちおう漏れの思っている動作しているのですが，突っ込むところがあれば，後学のために色々教えてください。
ソースはこちら，
ttp://members.tripod.co.jp/angeldayan/
使ったデータはこちら
ttp://members.tripod.co.jp/angeldayan/data.txt
要 cgi-lib.pl です。
たいしたものじゃなくてごめんなさい。
初心者なんで，これでも１週間かかっちゃったんです。
よろしくお願いします。
0138nobodyさん
03/04/08 18:57ID:???myとかの使い方覚えたほうがいいかも
まだはじめたばかりなのならPHPもいいかもよ
でスクリプトに関しては
ファイルをアップロードするわけでもないんだし
自前でデコードしよう。
漏れも挑戦してみていいかい？
http://iwh11.hp.infoseek.co.jp/p/e/r/perldev/cgi-bin/upload/source/039.txt
PerlスクリプトなんでDOSから動かしてね
0141nobodyさん
03/04/08 20:25ID:???varsプラグマ（v5.6以降だと our）を使うのは、
use strict 'vars'プラグマを有効にした時に、
複数のパッケージである変数を別のパッケージから使いたい場合、等。
no strict は、場合によっては反則 ...
0142nobodyさん
03/04/08 23:45ID:???myの方が３，４倍遅かったのだけど…。メモリ消費は解らない。
014371
03/04/09 03:32ID:???cgi-lib使ったことないからあてずっぽうだけど、かなりソース書きなおす事になったねぇ
ttp://iwh15.hp.infoseek.co.jp/p/e/r/perldev/cgi-bin/upload/source/041.txt
014471
03/04/09 03:33ID:???if ($in{'rev'}){
my $script = 'http://' . $ENV{'SERVER_NAME'} . $ENV{'SCRIPT_NAME'};
ココ逆だな・・・
my $script = 'http://' . $ENV{'SERVER_NAME'} . $ENV{'SCRIPT_NAME'};
if ($in{'rev'}){
> myとかの使い方覚えたほうがいいかも
わかりました。勉強します。
> PHPもいいかもよ
perlと心中しまつ。
> ファイルをアップロードするわけでもないんだし
いやいや、今後画像をあぷすて貼り付けるつもりなので。。。
いつになるかわかりませんが。。。。。
>>144
うわぁ、ソースが綺麗でつ。
でも、動きません。。。。。
ローカルでは「ページを表示できません」で動きませんし、
サーバにあげてみた所、最初の画面は表示するものの、
情報のリンクのところが
http://サーバー名/$script?action=1&rev=1&n=0
って、$script そのままでつ。
結果は404でつ。
自分でも調べてみまつ。
0147nobodyさん
03/04/09 09:53ID:???> myの方が３，４倍遅かったのだけど…。メモリ消費は解らない。
根拠を示さずに結果だけ取り出して言われても…。誤解されないかな？
my の何のベンチマークを行なったの？
ループ・ブロック内で変数を宣言して、そのオーバーヘッドを測っていた
なんて事はないよね？それとも、ホントに変数の参照・代入が３〜４倍もかかったりした？
0148nobodyさん
03/04/09 10:12ID:???myのほうが遅いというのはちょっと信じがたいな。
ブロック外から参照される必要がないからシンボルテーブルにも
登録されないし、むしろ速くなるはずだが・・・
$html =<<'EOT'; を $html =<<"EOT"; でOKでした。
なお、ローカルで動かない件は、cgi-lib.pl へのパスが違っていたというｱﾌｫが原因。
0151nobodyさん
03/04/10 06:38ID:???確か、CGI.pmがサポートしてたはず・・・
標準モジュールだよ。
use CGI qw(:cgi-bin);
0153nobodyさん
03/04/10 10:43ID:ljl/7aqx-w と use strict 外して my も何も付けない場合とか、
our も試して見たけど。速度的には my < our < local って順番だったよ。
#! perl -w
use strict;
use Benchmark qw(:all);
my $count = 100;
my $code1="my \$code=1;"; map{$code1 .= "\$code++;\n"}(1..$count);
my $code2="local \$code=1;"; map {$code2 .= "\$code++;\n"}(1..$count);
timethese(1000,{
'Lexical' => sub {eval $code1},
'Dinamic' => sub {eval $code2}
});
----
Benchmark: timing 1000 iterations of Dinamic, Lexical...
Dinamic: 11 wallclock secs (10.60 usr + 0.00 sys = 10.60 CPU) @ 94.34/s (n=1000)
Lexical: 2 wallclock secs ( 2.14 usr + 0.00 sys = 2.14 CPU) @ 467.29/s (n=1000)
0154nobodyさん
03/04/10 13:31ID:???追試。
--- bench ---
use strict; use Benchmark;
my $loop = 5000;
my $code1 = 'my $code = 1;' . '$code++;' x 100;
my $code2 = 'local $code = 1;' . '$code++;' x 100;
timethese($loop, { '1_my' => sub { eval $code1 }, '2_local' => sub { eval $code2 } });
---
● ActivePerl Build 522 on Win98SE
Benchmark: timing 5000 iterations of 1_my, 2_local...
1_my: 4 wallclock secs ( 4.45 usr + 0.00 sys = 4.45 CPU)
Global symbol "$code" requires explicit package name at (eval 5005) line 1.
2_local: 8 wallclock secs ( 7.75 usr + 0.00 sys = 7.75 CPU)
● Perl 5.005_03 on FreeBSD 4.8R
Benchmark: timing 10000 iterations of 1_my, 2_local...
1_my: 6 wallclock secs ( 5.62 usr + 0.01 sys = 5.62 CPU)
Global symbol "$code" requires explicit package name at (eval 10005) line 1.
2_local: 11 wallclock secs (10.92 usr + 0.02 sys = 10.94 CPU)
● Perl 5.8.0 on FreeBSD 4.8R
Benchmark: timing 10000 iterations of 1_my, 2_local...
1_my: 4 wallclock secs ( 4.74 usr + 0.00 sys = 4.74 CPU) @ 2108.73/s (n=10000)
2_local: 18 wallclock secs (17.20 usr + 0.00 sys = 17.20 CPU) @ 581.55/s (n=10000)
0155nobodyさん
03/04/10 18:05ID:???if ( ( my $aho = $query->param('hogehoge') ) eq 'hoge') {
$a =~ s/a/b/;
$nazoflag .= $a;
} else {
# $ahoは見える。
}
# $ahoは見えない。
while ( defined ( my $line = <IN> ) ) {
# $lineは見える
} continue {
# 見える
}
# 見えない
こういう場合のスコープについては、その制御構文の最後までに限定される。←あいまいだな…
0156nobodyさん
03/04/10 18:08ID:???これは、、sort用にこっそり、エラーにしないようになってるのかな。
追加、これはなかなか使える
foreach my $hoge (@list) {
}
0157nobodyさん
03/04/10 18:36ID:ljl/7aqx質問。continue って何？
0158nobodyさん
03/04/10 18:58ID:???0159nobodyさん
03/04/10 20:47ID:???こんな制御構文あったんだ。知らなかった。Thx >> 158
0160nobodyさん
03/04/10 20:58ID:???0162nobodyさん
03/04/11 00:36ID:???すみませんがちょっと漏れのスクリプトを見てください。
前回のソートの練習に加え、ページの分割もしてみますた。
いちおう漏れの思っている動作しているのですが，突っ込むところがあれば，後学のために色々教えてください。
なお、前回指摘された “myとかの使い方” は。。。。。(＾＾A
ソースはこちら，
ttp://members.tripod.co.jp/angeldayan/test.txt
使ったデータはこちら
ttp://members.tripod.co.jp/angeldayan/data.txt
要 cgi-lib.pl です。
たいしたものじゃなくてごめんなさい。
016471
03/04/12 22:26ID:???登録データの件数が増えるのならば
sortの cmp と <=>のルーチンを考えたほうがいいかも
foreach(@keys){
if($_->[$n] !~ /^\d*$/){
$num_flug =1;
last;
}
}
データ量増えていくと、cmpを使う場合処理が遅くなる。
if($n= 4){
if($rev){
@keys = @keys[ sort {$keys[$b]->[$n] <=> $keys[$a]->[$n]} 0 .. $#keys ];
}else{
@keys = @keys[ sort {$keys[$a]->[$n] <=> $keys[$b]->[$n]} 0 .. $#keys ];
}
}else{
if($rev){
@keys = @keys[ sort {$keys[$b]->[$n] cmp $keys[$a]->[$n]} 0 .. $#keys ];
}else{
@keys = @keys[ sort {$keys[$a]->[$n] cmp $keys[$b]->[$n]} 0 .. $#keys ];
}
}
みたいな感じかになろうか・・・
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:???単刀直入に言うとなぜか解凍できない。
俺のアプリケーションに異常が起きたのか、そのファイルが変なのかは知らん。
めんどうなので調べない。
0268nobodyさん
03/05/26 21:20ID:ksmYkwRm今度は正常にダウンロードできます。
ソースは汚いです。
0269nobodyさん
03/05/27 00:10ID:???0273山崎渉
03/05/28 17:05ID:???ﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎――◎ 山崎渉
0274nobodyさん
03/05/28 18:04ID:???0276nobodyさん
03/05/28 23:02ID:AHryRdpHhttp://test.thebbs.jp/kappa.html
0277bloom
03/05/28 23:10ID:52+C0e9R0278nobodyさん
03/05/29 00:59ID:???割とさくさく動くね。
HTMLはもうちょっとなんとかしてほしい。
0279nobodyさん
03/06/01 18:08ID:k+3UFbse評価して！
http://fine.tok2.com/home/moritomo/cgi/board.cgi?s_admin=defult
http://fine.tok2.com/home/moritomo/board.zip
http://fine.tok2.com/home/moritomo/cgi/chat/chat.cgi
0280nobodyさん
03/06/01 19:34ID:???あなたはまずこれを読んでコードを修正。
http://www.harukaze.net/~mishima/perl/man/perlstyle.1.html
次に #!/usr/bin/perl の次の行に use strict; を追加し、
perl -wc board.cgi 等としてエラーが出なくなるまで修正。
評価するのはその後だ。
0281nobodyさん
03/06/01 20:36ID:???文法を正確にするのは最低限のラインだ。
iframeの表示が「他のブラウザ」じゃ全く駄目。
0285ここの4ではない4
03/06/02 17:48ID:ltjk47zK(得に使いやすさについて)
http://d7359.hp.infoseek.co.jp/cgi-bin/the/bbs.cgi
(ソース)
http://hex51.darktech.org/scripts/the.cgi.txt
http://hex51.darktech.org/scripts/DHIN.pm.txt
http://hex51.darktech.org/scripts/mini.cgi.txt
0286ここの4ではない4 ◆T98LkrO.aM
03/06/02 17:48ID:ltjk47zK0287ここの4ではない4 ◆T98LkrO.aM
03/06/02 17:51ID:???0288nobodyさん
03/06/02 18:26ID:???全然読んでないけど、インデントで空白とTABを使い分けられると
結構困る。
漏れはいつも4TABだから、8TAB & 4インデントだとずれる。
インデントを全部TABにしとくと、TAB幅に依存しなくていいよ。
0289ここの4ではない4 ◆T98LkrO.aM
03/06/02 19:09ID:???これはエディタの仕様だと思うので勘弁してください。
一応、設定で変えれるかもしれないので調べてみます。
0290ここの4ではない4 ◆T98LkrO.aM
03/06/02 19:22ID:???#!/usr/bin/perl
while (<STDIN>) {
s/\x09/"\x20" x 8/eg;
print;
}
----------------------
$ chmod 755 filter.pl
$ cat the.cgi.txt |./filter.pl > sp_the.txt
一時凌ぎで..
0291nobodyさん
03/06/02 20:36ID:xwllfUbLhttp://cgi.tripod.co.jp/RedBee/cgi-bin/ShapeShift.cgi
(ソース)
http://members.tripod.co.jp/RedBee/ShapeShift.txt
0292288
03/06/02 20:37ID:???いや、変換方法はどうでも良くて。
8 TAB 依存のコードを見せられた時に「('A｀)ﾏﾝﾄﾞｸｾ」と
思ってそこで読むの止めちゃうから、大袈裟に言えば
「機会損失」になってるよ、と。
スクリプトができるだけ多くのプラットフォームで正常に
動くよう、環境依存の部分を減らしていくのと同様に、
スクリプトを読む人の「環境」にも配慮してくれていると
好印象になるって事で。
0293_
03/06/02 20:48ID:???0294ここの4ではない4 ◆T98LkrO.aM
03/06/02 20:48ID:???そうですね。
自分も、いきなりスペースやTABが消えたコードを掲示板に書かれて
どこがおかしいですか ?
と、言われるともっと見やすく示せ! と内心思ってしまいます。
TAB、気をつけてみます。
0295nobodyさん
03/06/02 20:54ID:7BfzX4MIhttp://www1.free-city.net/home/s-rf9/page006.html
0296ここの4ではない4 ◆T98LkrO.aM
03/06/02 21:15ID:???元々、サブルーチンの少ない読みにくいものだったのに申し訳ありません。
0300291=299=300
03/06/02 22:26ID:???自己レス。
291=299=300です。
0301nobodyさん
03/06/03 10:20ID:???とりあえずソース、見せてもらった。
極悪に汚い・・・。
全部、もう少し見やすいように手入れた。
とりあえず、手入れて思った事。
１、goto文なんか使うな！
２、スペース２個じゃなく、タブ使っとけ。
３、引数などのコンマの後は、スペース一つ入れる事。
４、なんでもかんでも、ケツにif文を置かない！
５、ソース汚いから、自分でも気付いてないんだろうが・・・
ファイルロックの掛け忘れがある。
６、同じく、ソース汚いから気付いてないんだろうが・・・
ちゃんと明示的にファイルハンドルを閉じてない所がある。
とくに、「４」のケツにif文は、うんざり。
処理内容自体は、読んでない。
人に評価してほしいなら、
自分だけが読めるソースを書くんじゃなく、
もう少し読みやすいように書く工夫をしよう。
ttp://isweb25.infoseek.co.jp/computer/pcqa-2ch/cgi-bin/img/1141.zip
↑ここに、手入れたソース置いてるから。
まだ、俺が手入れたソースの方が読みやすいと思う。
0302nobodyさん
03/06/03 12:55ID:???＞２、スペース２個じゃなく、タブ使っとけ。
だけおかしい。
タブを使うと4TAB<->8TABの違いでずれるから空白（個数は問わないが普通4個）で。
0304nobodyさん
03/06/03 13:17ID:???「TABだけ」ならいいんだがな。空白と混じってるとおかしくなる。
いちいちTABだけなのを確認するより最初から空白だけの方がいいだろ。
TABなんて今時ディスクの節約にもならん。
どっちにしろ（例えば）SUNもMOZDEVもタブ不使用規約になってんだから
合わせた方がいいんでないかい？
0305nobodyさん
03/06/03 13:20ID:???＞インデントの単位として，4個分の半角スペースを推奨する．
＞そのインデントが実際に半角スペースによって行われるかタブによって行われるかについては，これを規定しない．
＞タブはすべて（4個ではなく）8個分の半角スペースでなければならない．
eclipseだったかな。曖昧記憶でｽﾏｿ
0306298
03/06/03 14:58ID:???「CGIスクリプトしか書いたことない人にありがちなソースだな。」
ってこと。
リファクタリングとか色々なことを勉強してみては？
0308291
03/06/03 19:31ID:???>>301さん
わざわざ直してくださって、本当にありがとうございます！
指摘されたのに気をつけて書き直してから、また評価をお願いしに来ます。
でも、もう…直せるところが無いかもしれませんが(汗)
>>306さん
そのとうりです。自分でCGIを作ってみたくなったので、perlを勉強しだしました。
色々なことを勉強するのもいいですけど、虻蜂取らずにはなりたくないので…。
0309nobodyさん
03/06/04 00:00ID:???ソース、今見てるけど・・・
えらくコメントの少ない・・・って言うか、コメントの無いソースだな・・・
わざと、コメント消したの？
それとも、素でこれ？
素でコメント無いなら、コメント入れていった方が良いと思う。
0312385 ◆T98LkrO.aM
03/06/04 12:48ID:???基本的にコメントを一切書かないのです。
ただ、配布とか考えると書いた方がいいかなと思って、今回はちょっと書いてみました。
やっぱ少ないですかね..
0313385 ◆T98LkrO.aM
03/06/04 12:52ID:???ただ、自分はコメントなくてもすぐ分かるので人に見せる予定がないものに
コメント書かなくてもいいかなと..今は勉強中ということですし。
ただ、今回は見てもらおうとここに載せたわけなので、
モジュールの方にもコメントを書くべきだったと思いました..すみません。
0314285 ◆T98LkrO.aM
03/06/04 12:54ID:???0315nobodyさん
03/06/04 13:20ID:???0316298
03/06/04 14:07ID:???わかりやすいクラス名、変数名、関数名をつけるのが基本です。
コメントが無いとわからないってのは
それだけ汚いソースだということです。
0317285 ◆T98LkrO.aM
03/06/04 14:59ID:???自分は今、就職希望の会社からCのソース(50-500行,10枚くらい)を渡されて、
この説明を書いてこいとか言われているのですが、コメントなくても
関数名, 変数名が分かりやすいし、うまい具合にサブルーチンに分けてあるので
コメント少ないですが、かなり読みやすいと思いました。
まあ、漏れのはコメントないと読みにくいかもしれませんが..
自分で見ても読みにくいな、と思ったらコメントでカバーするようにしてみます。
0318301
03/06/04 19:23ID:???# ■■■ 俺の意見 ■■■
俺は、とにかくコメント入れるのに賛成派。
ルーチンの名前とか、変数の名前に意味を持たすのは当たり前だけど、
コメントあれば、コメントだけ読めば、何の処理してるのかわかるし。
# ■■■ ブロック毎にコメントを入れる ■■■
ブレスで囲って無くても、処理の単体が生まれる。
それ毎に、コメントを入れておけば、一行のコメント読めば数行理解できる。
# ■■■ ルーチンの使い方のコメントは重要！ ■■■
とくに、ルーチンの使い方のコメント。
絶対後から見て助かる。
いくつ、どんな引数を取って、どんな処理してくれて、どんな値をどんな形で返してくれる。
そんなコメントがあれば、一発でそのルーチンの内容がわかるでしょ。
# ■■■ 最後に・・・ ■■■
↑どう？
こんな感じでコメント入れる訳よ。
全部の行読まなくても、#で始る一行読めば、
俺が、なにについて書き込みしてるか分かるでしょ。
これを、プログラムでも実践してる。
それと、空行無しに書き込みしてると読む気失せるでしょ。
0319301
03/06/04 19:40ID:???結構その人のセンスが出る。
変な所で改行してる人や、
長文なのに空白行入れず、
だらだらとメリハリの無い書き込みする人とか。
そういう人って、プログラムも汚いんだよね・・・
0320285 ◆T98LkrO.aM
03/06/04 20:33ID:???コメントは書いたほうがいいですね。
読む側と見るとありがたいものなので、自分でも書くようにします。
コメントが無いために間違った認識を受けたり、
重要な処理を 「これいらねぇんじゃね？」
とか思われて消されること減るはずだし。
0321316
03/06/04 21:21ID:???自分が言いたいのは
「コメントを書くな」
ではなく
「コメントが無くてもわかるようなキレイな設計を心がけよう」
ってことです。
コメント関係ならプログラム技術板のこっちのスレのほうがいいかも。
http://pc2.2ch.net/test/read.cgi/tech/1038414493/
0322301
03/06/04 22:35ID:???スレタイにﾜﾗﾀ
いや、もう終わってるっぽいスレなので、
もういいかな〜っと。
とにかく、コメントは思うように入れまくってみたら良いと思う。
そうしてる内に、どういう風にコメント書いたら分かりやすいとか、
こういうコメントは無駄だとか、分かってくるだろうし。
前に、冗談だろうけど・・・
$hoge++; #1を増加
・・・こんなコメントを見た事がある。
こんなの、明らかに無駄。（ｗ
ただ、なぜ１を増やすかって事についてのコメントなら・・・
それは、意味を成すかもしれない。
実は、俺も無駄なコメントが多いんだよね・・・
ぜんぜんプログラムとは関係ないようなコメントとかある。
そういうのって、俺的に後から見たら面白かったり。
もちろん、人に見せる時は、そんなコメントは消すけどね。
0323nobodyさん
03/06/05 04:44ID:???普通のコメントがかなり減った。スクリプトとドキュメント
同時に作るのは効率いいしオススメ。
0324nobodyさん
03/06/05 06:18ID:t1krGQgT掲示板のCGIです。
言語はPerl
0326nobodyさん
03/06/09 21:44ID:JSBfbdyKむかしいじってたやつ、もう要らないから使えると思った香具師
勝手に使ってくれ。コメント皆無だけどね。
でも最後に軽く評価を聞きたいけどな。
0327nobodyさん
03/06/09 21:59ID:???あぁ。今見直したら俺が書いたやつじゃないものが入っていた・・・
Text::WordIteratorとか。。。
あーあ。まぁ、いいや。
0328大塚裕司
03/06/09 23:17ID:4isQpEIX0329211
03/06/12 02:44ID:???いつぞやのコメント削除スクリプト作った俺です。
今作ってるスクリプトが行き詰まりました。
ちょっとイライラしたので、
息抜きにコメント削除スクリプトのバージョンアップとかしてみました。
このバージョンで、サブディレクトリ内も検索可能になりました。
深さは、どんなに深いサブディレクトリでも処理可能です。
http://isweb25.infoseek.co.jp/computer/pcqa-2ch/cgi-bin/img/1160.zip
・・・リファクタリングが必要かもしれん・・・
0330_
03/06/12 03:03ID:???0332211
03/06/12 06:59ID:???う〜ん。
スタックを溢れさせる準備があるって意味がわからんです・・・。
とにかく、かなり深いディレクトリでもOKなはず。
だって、Cのルートディレクトリから検索とか掛けてみたから。
とりあえず、試してみそ〜。
0333nobodyさん
03/06/12 07:54ID:s13jgVVf平成15年度 自作板 PC環境調査
◆5月分の結果が出ました。現在は6月分に移行しています。
(参考）
平均年齢 25.4歳
ネット(2ch含) 78.7%
ゲーム 59.0%
Windows XP Family 46.9%
Windows 2000 Family 34.4%
Athlon 45.3%
Pentium 4 29.7%
nVIDIA 49.2%
ATI 28.9%
DVD-R/RW/ﾏﾙﾁ 20.4%
CD-R/RW 75.9%
光ファイバー 8.3%
ADSL/xDSL 64.5%
CRT 74.6%
LCD 25.4%
0335nobodyさん
03/06/12 12:02ID:I623aSMv0336211
03/06/12 14:17ID:???再帰？
自分の中で自分を呼ぶアレ？
・・・いや、普通にwhile文とかでブン回してるだけだが・・・
ディレクトリ検索のアルゴリズム考えるの、
実はちょっと大変だったんだよね・・・
ひさびさに、フローチャートとか書いたもん。（ｗ
ちなみに、見てもらったら分かるけど、
メモリの使用も最小限に抑えてるし。
>>335
そうみたいね・・・書けちゃったから・・・。
0337nobodyさん
03/06/12 18:19ID:???0339nobodyさん
03/06/12 22:33ID:???キモの部分 (Library_223.pm) 以外を書き換えてみた。
http://boobar.hp.infoseek.co.jp/refactoring/commentoff.pl.txt
…まぁ、なんつか、もっと色々な人の話に耳を傾けて
もっと上を目指して下され。今のレベルで固まられたら
正直痛すぎる。
漏れも人の事言えんけどなー。
0340211
03/06/13 01:55ID:???簡単な話。
while文で、ブン回しながら、必要なデータか調べる。
必要なデータなら、ファイルへスワップ。
必要じゃなかったら、次のループで上書き。
つまり、メモリにデータを蓄えないようにしてる。
一通り調べ終わったら、次のステップでスワップしたファイルから
データ読み出しって感じ。
>>338
そのスタックってのがよく分かてないんで・・・
どんなデータ構造なのか分からないけど・・・
再帰処理は、一切使ってない、ただループさせてる処理をしてるよ。
DirTree.pmってファイルがディレクトリを走り回る処理部分だから。
一度、覗いてみてくださいませ。
0341211
03/06/13 01:55ID:???ソース見せてもらいました。
再帰処理使ってるね。
こんな事言っても仕方ないし、
プログラム打つ人間としては失格かもしれないけど、
再帰処理って嫌いなんだよね。
逐次処理＆反復処理だけで、すべてをこなせると思ってる。
いままでで、再帰処理を行わないといけない場面ってなかったし。
まぁ、ヘッポコな俺だから、
まだそんな場面に出くわしてないだけかもしれないけど。
それに、再帰処理に出くわすと、ソース読むのが大変。
俺的にね。
と、まぁこれは俺の哲学。
それと、これはD&Dに対応してないね。
それと、処理中＆処理後のログが少ない。
この辺でも、俺と嗜好が違うね。
俺のは、そういうログがないと固まってるようでイヤだから。
結構うるさいソースになってる。
と、「正直痛すぎる」とかって言われたので、
ちょっと反抗してみました。（ｗ
正直な感想は、無駄のないスッキリ仕上げなソースだと思います。
それと、俺の知らない組み込み関数とか使ってる。
もうちょっと、俺も勉強しないとね。
改造とかしてくれる人少なくってさ・・・
ソースみて勉強させてもらいます。
ありがとうございました。
0342223
03/06/13 03:29ID:???実はあと風呂に入ってたらフィルターバグまだいくつかあるのを
気づいちゃったんだよね…
漏れ的ソースの書き方ならアレで問題ないんだけど
世の中には漏れの想像もできない書き方する人がいるんで
0343nobodyさん
03/06/13 14:25ID:???ネタと言ってくれよ！痛すぎるよ！
0344nobodyさん
03/06/13 21:35ID:???DirTree.pm直してやるから待っててな。
0345nobodyさん
03/06/13 21:56ID:???今のやり方で、明らかにおかしい所は、ループ内で$tmpPathListを開いて閉じてる所。
ファイルハンドルが勿体無い。
それから、少し変な所で、メモリ使用量にこだわっている割には、readdirを
リストコンテキストで呼んでる点。一つずつ調べればいいのに。
それから、趣味の問題だけど、変なインデントが気持ち悪い。スコープを分けたい(?)なら
ブロックを作ればいいし。
あと、無駄な括弧。
if ( ($_ eq '.') || ($_ eq '..') ) { next; }
こことか強烈なんだけど…このままでも条件の中身の括弧は無くてもいいんだけど、
十分に優先度が低いorを使えば、心配しなくてもいい。それに大括弧のインデントも変。
@filelistのスコープも変。とにかく変数は使用直前に宣言した方が楽。
それから、$countはハッシュのリファレンスにする価値は無い。普通のハッシュで十分。
0347211
03/06/14 08:19ID:???うーん、忘れた頃に、またやってます（ｗ
そうそう、コメント削除のバグ。
俺も、２つほど気付いてました。
しかし、俺的に今の所実害がないので放置中。。。
今度、直してみます。
0348211
03/06/14 08:19ID:???スクリプト自体は、すごくスッキリしてて、
本当、無駄がないと思います。
大半の人は、俺のスクリプトより>>339のスクリプトを好むかと・・・
俺の言ってる事は、ヘッポコの戯言だと聞き流してください。
指摘された部分。
ループ内でファイルを開いたり閉じたりしてる部分。
メモリ使用量最小限とか言ってるのに、
ディレクトリ内のファイル名を一発で取得してる部分。
この２つは・・・
言い返す言葉がないです（ｗ
ファイルは、ループ前に開いて、ループが終わったら閉じるように変更。
ファイル名取得も、一つづつに変更してみました。
$countのハッシュリファレンスを使ってる。
これについては・・・
戻り値は、今後の改良などで値が大きくなるかもしれない・・・
という理由から、俺が作るルーチンのほとんどはリファレンスが返ってきます。
しかし、ルーチン内でリファレンス使ってるのは意味ないですね。
と、言うことでルーチン内は普通にハッシュを使うように変更。
戻り値はリファレンスだけど・・・
インデントが変。
orを使わず、||を使って括弧の多様。
変数宣言は、使用直前に宣言した方が楽。
これらについては・・・
好みってことで、許してください。
http://isweb25.infoseek.co.jp/computer/pcqa-2ch/cgi-bin/img/1166.zip
0349nobodyさん
03/06/14 15:46ID:???0350nobodyさん
03/06/14 21:12ID:jhwtfsoYよろしくお願いします。
0353nobodyさん
03/06/15 11:13ID:???なら351はJavaを理解していないに430スイカ
0354nobodyさん
03/06/15 12:09ID:???0355nobodyさん
03/06/15 14:10ID:???0356nobodyさん
03/06/16 18:02ID:???記述が馴れないような感じになって良いなら、gotoでルーチン使うと（ルーチンね）スタックがたまらなくて良いよ。
ただし、それは履歴自体プログラムが管理しないって事だから時には諸刃の剣。
スタックはほとんど何やってもたまるよ。
スタックがたまると言うか、スタックの中にいろんなもんがたまる。
もちろんループもしっかりスタックに残り管理されてる（当たり前）。
だから「再起じゃないから」、「サブルーチンじゃないから」スタックには全く関係ないてのはでっかい間違い。
どんな経過をたどって現在まで辿り着いたのかとか、捨てたと思った変数が実は残っているとか。
スタックにも色んな種類あるから調べて味噌。
0357211
03/06/17 06:07ID:???うーん、無理にスタックを意識して、
goto文を使用しようとは思わないです・・・。
あまり、ソースがトリッキーすぎると、
未来の俺から苦情がきます。
それでなくても、結構トリッキーっぽいから・・・
スタックとは、何なのかはっきり分かってなかったのですが、
いろいろ調べ回って、何なのか、何となく分かりました。
スタックについて、勉強させてもらう機会をいただいた皆さんに感謝です。
さて、また一つヘンテコなスクリプトを組みました。
複数のファイルから、文字列を検索するスクリプト。
My_Grep。
http://isweb25.infoseek.co.jp/computer/pcqa-2ch/cgi-bin/img/1181.zip
使い方などは、同封してるテキストファイルを読んでください。
改造してくれる人は、できればアップして、ソース見せてください。
勉強させてもらいます。
また、今回も「DirTree.pm」を同封してますが、
>>349の指摘された所は、直してます。
では、評価お願いします。
0358211
03/06/17 06:17ID:???http://isweb25.infoseek.co.jp/computer/pcqa-2ch/cgi-bin/img/1182.zip
修正しました。
0359211
03/06/18 07:21ID:???http://isweb25.infoseek.co.jp/computer/pcqa-2ch/cgi-bin/img/1184.zip
このバージョンで、
複数の拡張子のファイル検索が可能。
ログで、先頭のインデントなどのスペースを削るようにした。
・・・誰か、評価お願いします・・・
誰も手がってくれない。寂しいね。
0360nobodyさん
03/06/18 15:16ID:???乙。
俺よりはるかにレヴェルの高いことやってらっしゃるので、
研究させてもらいます。
# 自作スクリプトを公開できるのはいつになることやら、、、
0361211
03/06/19 02:58ID:???ども。 一応覗いてくれてた人がいてたんだね。
よかった。
まったく手がってもらえないから、かなり寂しかった（ｗ
やってる処理自体は、そんなにレベルの高い物じゃなかったりします。
俺も研究させてもらうので、何かスクリプト作ったらアップしてくれたら嬉しいです。
0362211
03/06/19 02:59ID:???http://isweb25.infoseek.co.jp/computer/pcqa-2ch/cgi-bin/img/1189.zip
このバージョンで、
結果ログファイルがHTMLファイルになって、
ヒットしたキーワードが強調表示されるようになった。
ファイルがバイナリファイルか調べるようにした。
拡張子指定で、ファイル名に拡張子と同じ文字列があったら、
そのファイルも検索対象になっていたバグを修正。
指定した拡張子のファイルが無かった時でも、
つづけて検索フェイズに移行してたバグを修正
Html.pmってファイルを書き換えると、
出力するログの見た目が変えられるかもしれません。
それと、今回のバージョンで謎なバグが一つ・・・
tmpファイルが、今までスクリプト終了と同時に、
削除されるようにしてたんだけど・・・
今回のバージョンは、なぜかtmpファイルが残ります・・・。
何度も見直したんだけど、まったく原因がわかりませんでした。
どなたか、ご指摘いただけたら嬉しいです。
0364211
03/06/19 14:12ID:???あら。
何か主旨が変わってきたね。
評価貰えるよう、スレを上げるために、
何もなくスレ上げてたら荒らしだから、
何か無いかと、がんばってバージョンアップしてたんだけど・・・。
でも、いくつか勉強させてもらったし・・・
この辺が潮時かな。
じゃ、俺のスクリプト公開は終了します。
0365nobodyさん
03/06/19 14:28ID:???もう少し実用性のあるもので再チャレンジしてみたら？
今回のは正直言って使いたいと思えるものでなかったから
評価しなかった
あれば便利とか使ってみたいと思えるものなら協力者も増えるのでは
03661
03/06/21 10:11ID:???このスレは終了いたしました。
みなさん書き込みありがとうございました。
投稿件数 : 365
最終投稿者: nobodyさん
最終投稿日: 03/06/19
0367nobodyさん
03/06/21 17:05ID:???∧__∧ ／￣￣￣￣￣￣
（ ＾ｕ＾） ＜ 乙彼様でした☆
と つ ＼＿＿＿＿＿＿
（__つ 丿
し'
0368nobodyさん
03/06/22 07:46ID:???下記のロック、アンロックはどうでしょうか？
# lock routine
sub lock {
$retry = 5;
if (-e $lockex_file) {
$mtime = (stat($lockex_file))[9];
if ($mtime + 600 < time) {
rename($lockex_file, $lock_file) || &error("lock error");
}
}
while (1) {
last if rename($lock_file, $lockex_file);
if (--$retry < 0) {
&error("lock error");
}
}
}
# unlock routine
sub unlock {
if (-e $lockex_file) {
rename($lockex_file, $lock_file) || &error("lock error");
}
}
評価お願いします。
0369nobodyさん
03/06/22 09:04ID:???いいんじゃないかな。
while文の所は・・・
while ($retry--) {
return 0 if rename($lock_file, $lockex_file);
}
&error( 'Lock error' );
こうの方が良いかな。
0370368
03/06/22 10:02ID:???どうもありがとうございます。
他のスレでこういう書き方をみかけました。
while (!rename($lock_file, $lockex_file) {
if (--$retry <= 0) {
&error("lock error");
}
}
>>369さんが書いてくれたものとどちらがいいんですかね？
0371nobodyさん
03/06/24 13:54ID:01cZwzPjこのルーチンだと穴がある。経験則だけど、アクセスが殺到すると簡単に壊れる。
説明するのめんどいので、
http://www.din.or.jp/~ohzaki/perl.htm#File_Lock
この辺りでも読んでみて。
>>370
好みだと思う。
個人的には>>368も>>369も>>370もループの最中にreturnやら&errorで関数の
外に飛んでるので気持ち悪い(これも好みの問題)。
あと、>>368はテストが最大6回行われるのに大して、>>369と>>370は
5回なので等価なコードじゃなくなってる。
というわけで、個人的にはこう書くかな↓
my $retry = 5;
for($retry++; $retry; $retry--){
last if rename($lock_file, $lockex_file);
}
error("lock error") if not $retry;
0372368
03/06/24 14:57ID:???ありがとうございます。
ロックが甘いということは分かりましたが、アンロックはどうでしょうか？
まだ371さんがおっしゃったサイトは見てないのでなんとも言えませんが…。
もう少し勉強してみることにします。
指摘されたリトライですが、
if (--$retry <= 0) {
こうですね。
0373nobodyさん
03/06/24 15:24ID:???> このルーチンだと穴がある。経験則だけど、アクセスが殺到すると簡単に壊れる。
> 説明するのめんどいので、
> http://www.din.or.jp/~ohzaki/perl.htm#File_Lock
> この辺りでも読んでみて。
その辺り読んで、載ってるルーチンそのまま使ってテストした所、
ファイル壊れました。
俺は、>>368くらいの簡単なロックで良いと思うけど。
このロックで壊れるようなアクセス受けてるって事は、
その説明に載ってるようなルーチンでも、ほぼ壊れる。
どんなロックしててもファイルは壊れるんだから、
小細工いれた重いロック処理するより、
簡単にロックする処理入れた方が良いような。
0374nobodyさん
03/06/24 15:33ID:???そんなことはないよ。ただ言えることは、この板ではまだまともにロックできて
いるルーチンが１つも書かれてないな。
0375nobodyさん
03/06/24 15:35ID:???＞そんなことはないよ。ただ言えることは、この板ではまだまともにロックできて
＞いるルーチンが１つも書かれてないな。
flock使っちゃだめ？
0378nobodyさん
03/06/24 15:40ID:???use strict;
use Fcntl qw(:flock);
$tmpfile = "$datafile".".$$.". time() .".csv"; #万が一リネーム失敗したときのために、
#ユニークなファイル名にしておく
open (LOCKF, ">$datafile"."_lockf") or die("cannot open:$!"); #ロックファイルを作成する
#（★注：ロックファイルは、各CSVごとにユニークに）
flock (LOCKF, LOCK_EX); #ロックファイルをflockする
open(IN, "< $datafile") or die("cannot open:$!"); # 読みのみモードで開く
open(TMP,"> $tmpfile"); #テンポラリファイルを作成
while ($line = <IN>){
$line .= <IN> while ($line =~ tr/"// % 2 and !eof(IN));
$line =~ s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;
@values = map {/^"(.*)"$/s ? scalar($_ = $1, s/""/"/g, $_) : $_}
($line =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g);
#必要なものだけをEUCにして、出力時にSJISにする
foreach $value (@values){
&jcode::convert(\$value, "euc");
};
#CSV形式に変換
$newline = join ',', map {(s/"/""/g or /[\r\n,]/) ? qq("$_") : $_} @values;
print TMP "$newline\n" ;#テンポラリファイルに１レコード書き込み
}
close TMP;
close IN;
unlink $datafile;
rename ($tmpfile, $datafile) or die ("cannot rename : $!");
close LOCKF;
0379３７４
03/06/24 15:41ID:???この根拠がどこからくるのかわからないが、
少なくともとてつもないアクセス集中に対応できるように非ブロックモードで
タイムアウトを備えてないとまず無理だということは教えておこう。
0380378
03/06/24 15:41ID:???0381371
03/06/24 15:46ID:01cZwzPjそんなことはない。
というか、上(大崎氏の)のルーチンでファイル壊れたんならファイルシステムに
不備があるか、打ち間違いがあるかパーミッションやらの設定を誤ってるかどれか。
ファイルシステム上でrenameが衝突しないという条件の元でならうまく行くはず。
アクセス集中でファイルが壊れるのはロックの機構に不備がある
だけで、正しい状況下で行われたUNIX系OSでのflockでは、ファイルシステム
にバグがあるか、ファイルシステム自体のクラッシュでもない限り壊れない。
>>375
flockはNFS越しの場合に失敗するから、ファイスシステムを予め
調べておく必要がある。
NFS越しだとPOSIXモジュール使うかfcntl使う必要があった気がする。
>>376
> どんなに集中アクセスを受けても、
> 絶対壊れないファイルロックってある訳ない。
> あったら、ぜひ見て見たい。
非ネットワークファイルシステム＋UNIX系OSでのflock。stableなバージョン上で
これで壊れたって話は逆にあったら見てみたい。
0382371
03/06/24 15:48ID:01cZwzPjネットワークファイルシステムを使ってる場合はね。
それ以外で壊れるという話は(ファイルシステム開発中のバグ以外は)
聞いたことない。再現できたら結構すごいと思うが。
0383371
03/06/24 15:54ID:01cZwzPjhttp://elib.cs.berkeley.edu/~loretta/perl/nmanual/pod/perlfaq5/How_can_I_lock_a_file_.html
0384nobodyさん
03/06/24 18:50ID:???0385371
03/06/24 19:10ID:01cZwzPj2つのプロセスが同時に追加書込しようとしたら、
その部分は壊れるよ。
0390371
03/06/24 20:45ID:???symlinkにしろ、rewriteにしろ、mkdirにしろ、OSがファイルシステム上で衝突しないように
設計されているという大前提で作られてるし、実際衝突するかどうかはOS次第なので、
OSに非依存で汎用可能なアルゴリズムっていうのは原理的に不可能じゃないかと。
0392nobodyさん
03/06/24 20:48ID:???OS側でAtomicでもプログラム側がそうでなけりゃ・・・。
0394nobodyさん
03/06/25 00:00ID:???while (1) {
while ( not defined ($lock = &my_flock()) ) {};
open (IN, "./count.txt");
$data = <IN>;
close (IN);
&my_funlock($lock);
print ++$data. "\n";
while ( not defined ($lock = &my_flock()) ) {};
open (OUT, ">./count.txt");
print OUT $data. "\n";
close (OUT);
&my_funlock($lock);
if ($data >= 10000) {
last;
}
}
>>371のその辺のファイルロックを別ファイルに取って呼び出してる。
これを、二つのプロセスで実行してみろ。
無事に10000までカウントなんぞできんぞ。
0396nobodyさん
03/06/25 00:39ID:???はぁ？
全体に一度だけかけろとか言うのか？
それでも壊れる。
何がまともに使えないだよ・・・
ルーチン呼び出すのに使えるも使えないもないだろヴォケ。
文句言う前に試せやハゲ。
試して、壊れなかったら文句言いにこいや。
0397３７４
03/06/25 00:47ID:???0398nobodyさん
03/06/25 00:57ID:???だから。
試せってよ・・・。
試しもしないで、使えてねーとか、使い方悪いとか。
そんな事言われても、説得力ねーっちゅーの。
こういう使い方したらファイル壊れないとか、
このタイミングでルーチン呼び出したら大丈夫だとか、
まー試しもしないで語ってるヤツに、
ロクな答えなんて返ってきそうにないけどな。
0399371
03/06/25 00:59ID:Q5i43+wA> 全体に一度だけかけろとか言うのか？
だってそうしないとカウントが飛んじゃうでしょ。
> 試して、壊れなかったら文句言いにこいや。
一度に5プロセス動かして1000までやってみたけど壊れないね。
FreeBSD2.2.2 + Perl5.6.0だけど。
OS何使ってて壊れるの？ > 396
0400371
03/06/25 01:03ID:Q5i43+wA時々ロックファイルが消えるな・・・。renameしかしてないはずなので、
ファイルシステムのバグか？
でもデータが壊れるということは今のところない模様。テスト続行中。
0401371
03/06/25 01:13ID:Q5i43+wAFreeBSD2.2.2の方も、10000件行ってエラーなし。
合計30000件実験してみたけど衝突は起こってない模様(プロセスの譲り合いで片方のプロセスが
ブロックする現象は見られたが)。
単にrenameシステムコールが衝突するようなファイルシステムを持つOSを使ってるだけ
とか、そういうオチじゃなくて？>>398
0402371
03/06/25 01:22ID:???# mkdir lockdir/lockfile
で、20プロセス同時起動で、30000件やってみたけど、全く問題なし。
さすがに30000回連続で20プロセスが同時に1つのファイルにアクセス
する状況はありえないだろうから、少なくともウチの環境上では
きちんとロック機構が機能してると思われる。
で、たった2プロセス同時起動で10000件持たないファイルシステムを
持つ環境がどんな環境なのかとても気になるので早く教えてください>>398
あなたの言う条件↓は満たしましたよ。
> 文句言う前に試せやハゲ。
> 試して、壊れなかったら文句言いにこいや。
0403nobodyさん
03/06/25 01:30ID:???マジで？
ファイル壊れない？
こっちの環境は、Win2kだけど。
> 単にrenameシステムコールが衝突するようなファイルシステムを持つOSを使ってるだけ
んな訳ない。
2kで、そんなバグ聞いた事ない。
ずっとテスト環境は2kだったからなぁ〜。
とりあえず、こっちもVineの環境があるから、そっちでも試す。
>で、たった2プロセス同時起動で10000件持たないファイルシステムを
>持つ環境がどんな環境なのかとても気になるので早く教えてください>>398
煽りですか。
あんた、一言多いね。
0404371
03/06/25 01:49ID:???多分そのせいじゃないかなぁ。ファイルシステム何になってます？
こっちは今のところ30プロセス同時起動で30万件ノンストップで突破してるので、
スクリプト自体に問題があるとは思えない。
まぁ、このルーチンはrenameの堅牢性に頼ってるので、その点において汎用性は
薄いということを証明する形にはなったかも。
> 2kで、そんなバグ聞いた事ない。
1秒間に同じファイルを数十回renameする必要性ってあまりないからなぁ。
renameのファイルの取り合いって普通の状況だとまず起こりえないし。
ソース読んだら分かると思うけど、renameの空振り以外に原因は考えにくい
ので、再現性あるなら追試してレポート出してみたら？
0405nobodyさん
03/06/25 02:14ID:???ファイルシステムは、もちろんNTFS
Vineで試してみた。
たしかに、2kの時は途中ファイルが壊れてカウントが１に戻ったりしたけど、
Vineはそんな事なかった。
・・・が、おかしい。
３つのプロセスで動かしたが、ログがおかしい。
同じ数字のカウントをする場面がある。
３つのプロセスでカウントしていったら、
同じ数字がカウントのログとして出るのはおかしいでしょ？
そっちでは、ちゃんとカウントしていってる？
0406371
03/06/25 02:28ID:???>>394のソース直した？部分的でなく、全体をロックで囲まないと誤動作するよ。
print文の直上直下にあるunlockとlockの2行を外せばうまく行くと思う。
0407nobodyさん
03/06/25 02:44ID:???あ・・・悪い。
修正してなかった。
ちゃんと動いてる。
もっと沢山のプロセスと、もっと沢山のループで試したかったけど、
Vineが入ってるPCのCPUが弱いんでやめた。
なんだ・・・今回の実験で、2kがいかに糞なのかが証明されたのか・・・？
結果は、壊れないファイルロックが存在したって事か？
・・・俺が、間違ってますた。 ｽﾏｿ
0408371
03/06/25 11:01ID:???> 結果は、壊れないファイルロックが存在したって事か？
昨日、あのまま30プロセス同時起動のまま寝て、今朝見たら400万件を
突破してました。もちろんノンストップで。
30プロセスが400万回連続で殺到しても平気だということなんで、
少なくともウチの環境では、ほぼ「絶対に壊れないロック機構」と言い切って
差し支えないと思う。
どうでもいいけど、このテストスクリプトだと、count.txtを書き込みオープンした
瞬間にプロセスが落ちるとカウンタリセットされるよね。堅牢なスクリプトを作ろうと
思ったらそこまで気を遣う必要があるかも。
>>377
flockに書き換えて同じ事やってみたけど、20プロセス10万件で壊れずに
行ってます。やっぱりOSの問題か、flock over networkが原因ではないかと。
スレ違いなようなので、この辺で。
0409nobodyさん
03/06/25 14:12ID:???0410368
03/06/25 18:02ID:???とても興味深い話題をありがとうございます。
>>402さんがおっしゃってることを試す価値はありそうなので、
とりあえずファイルを使うロックから、
ディレクトリを使うロックに変えてみたいと思います。
0413nobodyさん
03/06/26 06:18ID:EBHZ+AEW0414nobodyさん
03/06/26 09:03ID:???0416nobodyさん
03/06/26 11:36ID:???0420nobodyさん
03/07/06 16:49ID:orJjX/H+そんなにrename失敗することあるんですか？
0421nobodyさん
03/07/06 16:50ID:???0422nobodyさん
03/07/06 17:08ID:GI5yk6yl0423nobodyさん
03/07/06 17:34ID:???0425nobodyさん
03/07/06 21:38ID:???0426nobodyさん
03/07/06 21:48ID:???0428nobodyさん
03/07/06 23:40ID:???0429nobodyさん
03/07/07 11:59ID:???0430山崎 渉
03/07/15 11:08ID:???__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
0431nobodyさん
03/07/25 23:38ID:???0432_
03/07/25 23:47ID:???0433山崎 渉
03/08/02 02:24ID:???（ ＾＾ ）＜ ぬるぽ（＾＾）
0434ぼるじょあ ◆ySd1dMH5Gk
03/08/02 04:52ID:???ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎――――――◎ 山崎渉&ぼるじょあ
0435nobodyさん
03/08/06 01:58ID:u4hkzo1r0436nobodyさん
03/08/06 02:05ID:???0437435
03/08/06 02:10ID:u4hkzo1rttp://www.42ch.net/UploaderSmall/source/1060103401.zip
昔作った掲示板です。今ではもうこんなにかけません。
0438nobodyさん
03/08/06 02:44ID:???ぱっとみですが、スコープや、名前空間を理解していらっしゃるのでよく勉強されてると思われます。
私の趣味的にはグロブを使わないようにするともっとよさげかと・・・
0439nobodyさん
03/08/06 03:48ID:???良かったらお願いします。
使い方はcgi呼び出して?ってリンク見ると大体書いてあります。
典型的な我流でCGIしか書いたことの無い人のソースだとは思います。
非常識な部分があればご指摘頂きたいです。
#普段タブ使っているのですが、環境に依存しそうなので
#アップの際に、全てスペースに変換しました。
#個人的な情報も消してあります。ご理解ください。
0440向こうの472=475
03/08/06 10:05ID:???コーディングスレの469さんか。(w
名前空間の扱いに振り回されてる感じがする。
基本的にパッケージ名や定数のハードコーディングは避けた方がいいし、
依存し合うものを別ファイルに分けると見通しが悪くなるだけだよ。
どうしても分けたいのなら各パーツはもっと役割分担を
はっきりさせて汎用性を上げ、OO なスタイルで組むが吉。
0441nobodyさん
03/08/06 10:38ID:???ここ過疎なので人すくなくてばれるだろうとは思ってました。。。
分けるのは、基本的に改造向けではじめました。
（HTML部分を分ける、とか。）
あと、機能追加のたびに追加したりとかって感じです。
最初はあまり深く考えないで分けていたんですが
最近えらい悩むようになってしまって
つきつめるとOOPにするしかないような気もしてきてしまします。
次になにか0から書くことがあったら、OOで書きたいとは思います。
これは今ある程度完成してしまってますし
身内で使ってくださる方がいるのであまりスタイルを変えるつもりはないです。
総書き直しでOOにしようとか毎晩のように思ったりするのですが
なかなか手出しする気力も時間も・・・
やっぱOOかー
0442441
03/08/06 10:58ID:???直す前のうｐしてた ｳﾜｰﾝ
0443nobodyさん
03/08/12 15:36ID:QPay4kE6age
0444山崎 渉
03/08/15 22:37ID:???│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
0445nobodyさん
03/08/30 22:39ID:???>>50
自作CGIを評価するスレ
http://pc2.2ch.net/test/read.cgi/php/1049514428/
0446nobodyさん
03/08/31 01:55ID:6GeG39LLhttp://ex.1000gex.net/blog.zip
common.phpで初期設定。
排他制御も何も入れてないがとりあえず動いた。
これからトラックバックを盛り込むけど難儀するだろうなぁ
0447nobodyさん
03/08/31 02:19ID:???ただの宣伝？
0448nobodyさん
03/08/31 02:27ID:6GeG39LLSAFE_MODEでさっそく引っかかったが
0449nobodyさん
03/08/31 02:54ID:???0450ガイキチ厨房
03/08/31 06:44ID:???PHPでカウンタを作ってみたのですが、どなたかご意見下さい。
http://popup3.tok2.com/home/program/cgi-bin/uploader/source/File:0011.txt
0451nobodyさん
03/08/31 11:38ID:???script書き始めなら上々の滑り出しだと思う。
■L38の $ip のダブルクウォートは意図不明。
■” と ’ が混在してるけど、このスクリプトで使われてる ” は上記をのぞいて ’ に統一可能。
■L41は、$newdata = $newcont . '<>' . $_SERVER['REMOTE_ADDR'] ; と書けば十分なのでは。
■関数名とレフトブラケットの間に半角スペースがあったり無かったりする。これは趣味だから
どう書いてもいいと思うが、普通は入れない。制御語（ifとかforとか）の後には入れる。そうすることで
関数と制御構造を見分けやすくする。カラーリング機能のないエディタではこの方が見やすい気もする。
いずれにせよ、どっちかに統一したほうがよいと思われ。
■切り詰めを忘れている。ので、現データが 13<>127.127.127.127 で上書きデータが、14<>25.25.25.25 だった
場合、14<>25.25.25.257.127 に。書き込んだ後で、ftruncate(); を使ってファイルを切り詰める必要あり。
0452nobodyさん
03/08/31 11:40ID:???ログファイルが壊れる（例えば 8424<>127.0.0.1420<>127.0.0.8420<>127.0.0.842の ように）から
入れたのなら、アイディアとしては◎だが、スマートな処理とはいえないかと。
■あと、排他制御にバグがあるのでは。
ロックがかかっていても、fopen(); も flock(); も、 warning や fatal error （noticeも） を吐かないため、
処理が続行する。排他制御になってもならなくてもこのスクリプトは処理を最後まで実行するので、flock(); は
ちゃんと働いてない。
実際には起こらないかも知れないが、論理上、ロックがかかっているために L32 の fgets(); が失敗して
$buf に false が入ってカウンターが0に戻る可能性がある。L26でロックが取れなかった場合、
つまり前のリクエストを処理中の可能性がある場合、書き込みをスキップするかスクリプトを終了
するかブロックモードで待機させる必要があると思う。http://jp.php.net/flockにあるとおり、flock(); は
失敗すると false を返す。
■同じ理由で、前のロックが邪魔してロックがかかっていないのに書き込みに進行してしまうことがある。
書き込みがいくつも重なると、dat の内容がが妙なことになる予感。ここらあたりを rewind(); が力技で
解消しているように見える。
0453nobodyさん
03/08/31 21:50ID:???0454nobodyさん
03/08/31 21:56ID:6GeG39LLhttp://s2.arigato3.net/~hon7/blog/
ハイブリッドP2Pによるトラックバックを考えてます
0455nobodyさん
03/09/01 00:56ID:???話はそれからだ
0456nobodyさん
03/09/01 01:41ID:???0457ガイキチ厨房
03/09/01 16:10ID:???詳しく指摘していただきありがとうございます。
とりあえず''に統一し、関数名とレフトブラケットの間のスペースを
制御構造のみ入れるようにしました。
また、書き込み処理を行った後に、
// ファイルを切り詰める
ftruncate($fp, ftell($fp));
という処理を加えました。
ロックのバグについてなのですが、Googleで調べたところ、
flockはデフォルトでブロックモードになっているらしいのですが、
http://itbtech.itboost.co.jp/perl/perl_06.php
よろしくお願いします。
0458ガイキチ厨房
03/09/01 18:57ID:???すいませんURL間違えました。正しくはこちらです。
http://itbtech.itboost.co.jp/php/php_04.php
0459nobodyさん
03/09/01 23:17ID:???0461nobodyさん
03/09/02 16:15ID:???ああごめん。Manualみたらおもっくそそう書いてあった、、。
flockでとまるから一般の環境なら多分大丈夫だね。
こっちの検証スクリプトの間違いなのでflockとrewindの話しはなかったことに。
秒間50リクエストくらいでは問題なかったです（php4.3.0 apache1.3.27 RHLinux）。
ftruncate ( $fp , ftell ( $fp ) ) ; は ( $fp , strlen ( $newdata ) ) ; なんちゅう書き方もある。
0462ガイキチ厨房
03/09/02 19:51ID:???なるほど、参考になりました。ありがとうございます。
0463nobodyさん
03/09/03 02:03ID:6rADPhxnWeb上で部の共有資産の貸し出し申し込み等の管理を行えるといいなぁ、と思いいろいろとCGIを探してはいるのですがなかなか見つかりません。
探しているのは、次のようなCGIです。
１．画面で借りたい物を選択・自分の名前・貸出期間等の入力、申し込み
２．画面上では「貸し出し中」等に表記が変化（それか削除されるなど、申し込みが行えない状態に変化）
３．sendmailが使えないサーバなので、申し込みがあったことをログに吐き出し、管理人が定期的にそれをチェックし貸し出す
こういうものです。
サーバはinfoseekのiswebでPerl、Python、Ruby、PHPが使えます。
ショッピングカートCGIを活用してもいいなと思ったのですが、sendmailを利用する物がほとんどで、上記のようにログにのみはき出す物はあったことはあったのですがシェアウェア（\15K！）でした。
それほど資産の数が多いわけでもなく、貸し出し回数もそんなに多くないので、15000円もかけるわけにはいきません。
出来れば無料、もしくは１〜２千円程度で利用できるCGIがありましたら、教えてください。
よろしくおねがいします。
0465sage
03/09/03 12:28ID:Udj8Y4pI463です
え〜と。
スレ違いだ、ということですか…？
…すいませんでした。
0466nobodyさん
03/09/03 13:26ID:???どっかに「こんなCGI探してます」的なスレあったハズだよ。
0467nobodyさん
03/09/03 13:44ID:???＞スレ違いだ、ということですか…？
スレ違いじゃないと思うんだったら自作CGIへのリンク貼れよ。
自作CGIを評価するスレなんだからさ。
0468nobodyさん
03/09/03 18:02ID:???http://pc2.2ch.net/test/read.cgi/hp/1059878840/l50
Web製作板でつ。
0470nobodyさん
03/10/02 12:00ID:???0471nobodyさん
03/10/02 22:11ID:???複数プロセスでの10,000件書き込み耐久試験もクリアしたっぽいです。
ただ、ちょっと遅いように感じるのですがどでしょ？
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/lounge/index.html
0472nobodyさん
03/10/02 22:50ID:???0473nobodyさん
03/10/07 02:23ID:86/MwT3yスタイルシートだけでWebデザインが可能です。
PHP4+MySQL
http://arigato3.s36.xrea.com/x/bbs.php
0475nobodyさん
03/10/07 04:42ID:???http://pc2.2ch.net/test/read.cgi/hosting/1065223105/
以後放置で。
0477手裏剣
03/10/07 06:29ID:???http://www.muzie.co.jp/cgi-bin/artist.cgi?id=a016219
0478nobodyさん
03/10/07 09:34ID:86/MwT3y0479nobodyさん
03/10/07 09:34ID:86/MwT3y片手間で１週間ぐらい
0480nobodyさん
03/10/07 18:52ID:???＿＿＿Λ＿＿＿＿
｜知識ゼロのまま｜
0481nobodyさん
03/10/07 21:30ID:???0482nobodyさん
03/10/08 10:35ID:???0483nobodyさん
03/10/19 04:34ID:faEGA12Q62 名前： 文責：名無しさん 投稿日： 2001/07/10(火) 12:21
小型盗聴器、電話盗聴、web(電子メール)盗聴、郵便物の開封、
集合住宅の隣に引っ越してきて壁に聴診器、または集音マイクを向ける。
関係者からの聞き込み、ごみあさり、ストーキングにより行動パーターンの把握、
行動パターンを調べた上での待ち伏せ。全部、人海戦術を使えば十分可能です。
323 名前： 文責：名無しさん 投稿日： 2001/07/30(月) 20:48
集団で盗聴なり、付きまといなり、身辺調査なりした後で、集めた個人情報を利用して、
メディアを通じて本人にしかわからないように「監視してる」とほのめかしたり。
待ち伏せや尾行などしておいて、本人の前で「監視してるぞお〜」と、嫌がらせをしてみたりする。
これを一定期間継続して繰り返す。
一定期間、上記の嫌がらせを繰り返すと、加害者がすでに嫌がらせをしていなくても、
被害者は、ずう〜っと嫌がらせが続けられてると思い込んでしまう。
（痴漢の被害者が、外であった人が全員痴漢だと思い込むのと同じ）
それと同じように、ここのスレッドに書かれている、盗聴した情報を二次利用する嫌がらせを
やっていないときでも、被害者は自分から自分と関わりがある
情報をメディアから探し出して自分に関係があるのではないかとこじつけてしまう（関係妄想）。
関係妄想を引き起こすように嫌がらせを行うそれ自体がマインドコントロールの一過程である。
被害者が関係妄想を引き起こした時点で今度は精神病にかかったと噂を流して、さらにからかう真似をする。
ノイローゼになるように追い込んで、更に自殺するように持っていこうとする。
被害者がこういった心理状態になるのを嫌がらせの関係者は経験的に知っているのだろう。
0484nobodyさん
03/12/07 15:31ID:ohQC6Gecここ
http://www.google.com/search?q=%E3%83%89%E3%83%A9%E3%82%A4%E3%83%9E%E3%83%86%E3%82%A3%E3%83%BC%E3%83%8B&ie=UTF-8&btnI=I%27m+Feeling+Lucky
0485nobodyさん
03/12/09 13:27ID:Dust1o+dパソコンと携帯３社兼用の掲示板で、スレッドまたはツリー表示でかつ
パスワードで入る人の管理が出来るＣＧＩご存じありませんか？
スレッド、パスワードどちらかだけだとあったんですが・・・。
0486nobodyさん
03/12/10 13:25ID:/scbZ0TM0487ＳＥＲＡ
03/12/10 21:19ID:cJpFW25/0488nobodyさん
03/12/12 00:32ID:???0489nobodyさん
03/12/19 17:18ID:s0hPhfIyこれはどうでしょうか？
デザイン以外は自分で作りました。
0491nobodyさん
03/12/20 01:11ID:A80S/toCCGIです。
サーバーサイドで動いているのでCGIです。
もっと勉強してください。
0493nobodyさん
03/12/20 01:26ID:m9BC3a2H0494nobodyさん
03/12/20 01:27ID:A80S/toCいま検索して調べたら
metaタグの後にtitleタグを書いてました。
0496nobodyさん
03/12/20 02:58ID:???CGIは動いたりしない。
0497nobodyさん
03/12/20 03:19ID:???悪代官が黄門様に無礼者と言ってるのを思い出しちゃったｗ
0498nobodyさん
03/12/20 10:48ID:rKU28so3CGIとはWEBサーバーがWEBブラウザからの要求に応じてプログラム
を起動するための仕組みです。
”CGIは動いたりしない。”
馬鹿か？
0499nobodyさん
03/12/20 10:49ID:rKU28so3俺は悪代官だよ~Ｗ~
0500nobodyさん
03/12/20 13:51ID:???0501nobodyさん
03/12/20 13:55ID:???0502nobodyさん
03/12/20 14:07ID:???インターフィエスの一仕様。
モジュールからプロセス作ることもできるが、
あれもCGI？
0503nobodyさん
03/12/20 18:53ID:FBPjlTLiどうせperl=cgiとか
まだ思ってるアフォだろ？
0504HTTP/1.1 200 OK
03/12/20 21:23ID:???とか書いてある本があった気がする
ほかの言語を使わなければいいだけの話なのに・・・
0505nobodyさん
03/12/21 00:57ID:???ﾏｼﾞ？
それって、if ははほかの言語と混同するからやめれというのと同じことだよね
0506nobodyさん
03/12/21 15:53ID:???同じような理由でperlの$_（暗黙の代入）はなるべく使うなとか書いてる本もあったよ。
0508nobodyさん
03/12/22 15:58ID:???0510nobodyさん
03/12/26 20:54ID:???ﾊｧ？
あたまのよわいのがなんにんか・・ って書いてあるが、どう読んだら何国の人になるんだ？
502,504,506,508が(ry
0511nobodyさん
03/12/26 21:46ID:???0513nobodyさん
03/12/31 15:09ID:OIDb7RDThttp://ssr.xrea.jp
けっこういい出来に仕上がったと思うけど、初めての人は操作にとまどうかも
0514nobodyさん
04/01/05 13:20ID:8h9t8BrG落としたYo
とりあえず使えそう・面白そうな物だったら、朴らせてもらうわ（ｗ
0515nobodyさん
04/01/12 07:57ID:fR13iSUk0516nobodyさん
04/01/17 13:56ID:kOvCn6Hohttp://fine.tok2.com/home/moritomo/cgi/career/career_bbs.cgi
です。
0518nobodyさん
04/01/17 18:12ID:???0519nobodyさん
04/01/17 19:01ID:???http://fine.tok2.com/home/moritomo/cgi/accesstakelog.txt
http://fine.tok2.com/home/moritomo/cgi/admin_remote_log.txt
http://fine.tok2.com/home/moritomo/cgi/akusesu.txt
http://fine.tok2.com/home/moritomo/cgi/countlog.txt
http://fine.tok2.com/home/moritomo/cgi/hatugen.txt
http://fine.tok2.com/home/moritomo/cgi/newaccesslog.txt
http://fine.tok2.com/home/moritomo/cgi/newcount.txt
http://fine.tok2.com/home/moritomo/cgi/newdomain.txt
以下略
ヴァカですか？
0521nobodyさん
04/01/18 02:22ID:???0522nobodyさん
04/01/18 03:41ID:???・ここは見た目じゃなくコードを評価するスレだ。
・use strict; しろ。
・perlstyle 読め。
・デカいの持ってきても面倒だから読まんぞ。
…のどれかに該当していたら、まともなレスは返ってこない。
0523nobodyさん
04/01/18 21:22ID:???0524>>516
04/01/25 15:17ID:yPaa9elSForbiddenにしたみたいだけど、
せめてファイル名変えなよ。
0525nobodyさん
04/03/06 14:54ID:???if-elsifの書き方、
if{
..
}elsif{
..
}
より
if{
..
}
elsif{
..
}
の方が俺にとっては読み易いんだｺﾝﾁｸｼｮｰ。
0528nobodyさん
04/05/09 20:52ID:???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
0529528
04/05/09 21:13ID:???ファイル名変更しました。
アクセス解析 http://torihamlog.s55.xrea.com/search/axlog_pl.txt
ログビューワー http://torihamlog.s55.xrea.com/search/axlogv_cgi.txt
0530nobodyさん
04/05/09 21:49ID:???とりあえず 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 のマニュアル参照。
0531nobodyさん
04/05/09 22:26ID:???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
0532528
04/05/10 19:23ID:???評価ありがとうございます。
色々参考になります。
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(); }
こうゆう風にしようと思っています。
0533nobodyさん
04/05/11 00:31ID:???・CSS を変更する為にスクリプトを編集する危険を冒す必要がある。
・外部に CSS を持つのに対し、常に二倍の回数実行される。
・CSS を使い回す時に悩む事になる。
これらのデメリットを考慮の上で、なお一つにまとめるメリットの方が
勝ると判断したならいいんじゃないか?
0534528
04/05/14 20:45ID:1r/FkAS3自己レス
すげー馬鹿なこと書いていた
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の設置とかできて、ほんのちょっとだけいじれる程度人向けのつもりです。
添削して下しさい。
【スクリプト】http://www.tcn.ne.jp/~majima/dog/quiz.txt
【動作例】http://www.tcn.ne.jp/~majima/dog/quiz/quiz.cgi
0538nobodyさん
04/07/04 05:12ID:???もじゅーるは使えない鯖なんでつか？
使えるんなら使ったほうがいいでつよ。
Image::Magick、CGI、Jcode等々
何に使うのかは自分で調べてね。
EUCで書いたり表示したりしたほうがいいと思うけど、Shift_JISでやりたいのなら反対しないさ。
所々myを付けているが、どうせなら全部に付けちゃいな。
strictしろってこった。
ついでにHTML的にも4.01strict すれば？
0539ager
04/07/09 18:40ID:???0540nobodyさん
04/10/08 20:39:40ID:HUGW4EIRというようなデータが数行あるような場合
それらを読んできて切り分けるって処理を
してます。
これの評価お願いします。
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";
}
0541nobodyさん
04/10/09 00:21:55ID:???myで複数宣言するときは()がいる
hushじゃなくてたぶんhashね． 連想配列っていみなら
ハッシュのスライスを使うとエレガントかも
@hash{qw/title time contents/} = split /::/;
foreachつかえよ
for(...$#ref)
0542540
04/10/09 02:08:52ID:???>ハッシュのスライスを使うとエレガントかも
>@hash{qw/title time contents/} = split /::/;
ありがと、参考になりました。
my は複数でも()いりませんよ。バージョンによるだろうけど
最後に、今更foreach使ってる人いるんですか？w
0543nobodyさん
04/10/09 02:43:14ID:???#--- 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.
0544nobodyさん
04/10/09 03:20:52ID:???>>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 を目指すならこだわる必要のない部分だと思うな。
0545nobodyさん
04/10/09 05:06:54ID:???%hush(多分hash?)の宣言の位置。
GCのコストを考慮した場合に、変数の再利用をするはあるけど...、
ループないで初期化してないとフィールドの数が少ない時に困るよ。
split/::/の代わりに正規表現を使ってデータを切り出すと、
データのチェックとsplitを同時にできて便利。
chompはデータ格納前に済ませておいた方が良いんじゃないかな。chomp(@tmp)
もしくは、大抵はファイルから読み込むだろうからその時に。
0546540
04/10/09 05:35:12ID:???どうもありがとう。foreachは普通に使えるんだろうけど、
大抵forで済ませてしまうのです。言い方悪かったです、スイマセン。
>>545
ありがとうございます。
>ループないで初期化してないとフィールドの数が少ない時に困るよ。
というのは、forのループ内で undef(%hush); (ほんとはhashでしたw)
でいいですか？
あと、フィールドの数が少ない時というのはどういうことでしょうか？
>split/::/の代わりに正規表現を使ってデータを切り出すと
どう書いたらいいのか思いつきません。宜しかったらご教授下さい。
>chompはデータ格納前に済ませておいた方が良いんじゃないかな。
そうですね。
open(FH,"file_name");
@tmp = <FH>;
chomp(@tmp);
close(FH);
0547541
04/10/09 11:14:32ID:???別にfor (@ref)でもいいかもしれんが
あと>>543読んだか？ myは複数宣言するときは()いる
>>546
>ループ内で初期化
for(hoge){
my %hash;
statement;
}
こういう事だと思う
0548540
04/10/09 12:28:12ID:???省略も可って事ではないでしょうか？
0549nobodyさん
04/10/09 14:26:51ID:???エラーにならないのは 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.
0550nobodyさん
04/10/09 17:41:00ID:???> あと、フィールドの数が少ない時というのはどういうことでしょうか？
これは、今回のケースでは問題なかったです。
でも、変数を再利用する時は気を付けないと、前の値が残っていたり、
意図しない場所の値を書き換えてしまったりするので注意。
例えば、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は教えてくれない。
0551nobodyさん
04/10/09 18:04:19ID:???0552nobodyさん
04/10/09 18:09:49ID:???s/他の方に/他の方からも/
あと、正規表現を使った方法を書き忘れてたのでついでに、、
例えば time が整数の場合の例
if (/^(.+)::(\d+)::(.+)$/) {
@hash{qw/title time contents/} = ($1, $2, $3)
}
0555nobodyさん
04/10/09 22:37:35ID:???0556540
04/10/09 23:53:30ID:???どうもありがとうございます。
特にエレガントな方法を教えてくださった５４２氏
ハイレベルな（少なくとも今の私には）指摘をしてくれた
５４５＝５５０＝５５２氏には感謝します。
その他あのようなケチなコードに意見を下さった方々ありがとう。
またお世話になるかもしれません。m(_ _)m
0557nobodyさん
04/10/10 20:44:07ID:???> 最後に、今更foreach使ってる人いるんですか？w
こんなこと言うやつはもう来なくていい
0558540
04/10/11 01:40:27ID:21NinhME0561かぼ
04/10/22 19:30:44ID:EM8OHCfbhttp://members14.tsukaeru.net/skycat/quan/quan.cgi
0563nobodyさん
05/01/23 00:46:42ID:vqv+/2ig評価というか不具合の問題です
初めてperl書いてみました。
簡易的な計算のプログラムを作ってみたんですがうまく動作しません。
ちょっと見て頂き、不具合等御指摘下さい
特定の計算式で、入力（1項目だけセレクトボックスにより選択）した数値を計算するものです。
ソース
http://tool-ya.ddo.jp/2ch/trash-box/contents.jsp?file=20050123003423509.txt
URL
http://sr-cafe.chu.jp/kok/calc.html
0564nobodyさん
05/01/23 03:00:10ID:3FhDUp9Jｿｰｽはﾏﾝﾄﾞｸｻｲのでちゃんと読んでないけど、
文字コードと改行コードの問題の様な希ｶﾞｽ。
0565nobodyさん
05/01/23 13:10:26ID:???calc.html
× <SELECT name="set" name="s1">
○ <SELECT name="s1">
0566nobodyさん
05/01/23 20:04:18ID:???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; ← 最後に追加
0567nobodyさん
05/01/24 11:42:30ID:YsLCruPH改行コード２つとダブルクォーテーション必要無くね？
0568nobodyさん
05/01/24 12:10:13ID:???ヒアドキュメントのダブルクォートはどちらかというとあったほうが・・・
0569563
05/01/25 02:27:15ID:???>>566サンの通りにしたり、色々試してるんですがまだ動かないです…
printが閉まってなくてフォームの値を処理出来てないんでしょうか…
0570nobodyさん
05/01/25 04:00:44ID:???うちのサーバでスクリプト試したんだけどちゃんと動くぜ。
おまい、サーバに嫌われてるんだ。きっと。
問題は print <<END_OF_DATA 〜 END_OF_DATA までか、
まさかと思うがパーミッションか、perlの指定。
一度 print <<END_OF_DATA 〜 END_OF_DATA を
たいした行数じゃないんだし、print "〜\n"; に置き換えてみ。
それからコメント行やめろ。余計見づらくなる。
0571566
05/01/25 04:01:58ID:???今試したら566の変更だけで動いたわけだが。
Content-typeの行はそのままでも良いみたい。
動かないとしたらCGIの設置方法の問題。
まさかとは思うがローカルでテストしてるよね？
0572nobodyさん
05/01/25 04:03:19ID:???0573566
05/01/25 04:07:06ID:???問題はコードではない予感。
0574nobodyさん
05/01/25 04:14:49ID:???経験で言うとさ、ヒアドキュメントはサーバの機嫌で、最初はうまく動作して
くれないことがある。Cookieなんか入れるとどうも変なんだよな。
そういうとき俺はメンドーでも print "〜\n" に置換えてやる。すると、あとは
「ヒアドキュメントでも読込んでやるかぁ」ってことでサーバは折り合ってくれる。
0576nobodyさん
05/01/25 04:34:21ID:???ムリしなくっていいから、とか気を使ってやると機嫌よくなる。ほんとだぜ。
0578nobodyさん
05/01/25 06:47:43ID:???多かれ少なかれ576のような感じはあるな。
0580nobodyさん
05/01/27 18:28:04ID:???パーミッションの所為だった…
元のままでも566のコードでもどちらでも動きました。
>>571-572
そのとおりです。
ローカルでテスト出来るという事すら知りませんでした。
勉強します。
0581nobodyさん
2005/06/06(月) 19:56:57ID:???＿▲＿
ねればねるほど ((φ(．．。) 色が変わって
＿▲＿
こうやってつけて р(ﾟДﾟ )
*＿▲＿*
ｳﾏｲ━━━*━ﾍ(ﾟ∀ﾟ)ﾍ━*━━━━!!!! ﾃ-ﾚｯﾃﾚ-♪
0583nobodyさん
2005/09/21(水) 17:05:52ID:54UaWl8q0584nobodyさん
2006/05/18(木) 17:31:45ID:Ip4qBE+Bどなたか評価(清書？)お願いします_ _
指定されたスレの中から前日から当日までの既定の時間にあるレスを抽出して、
そのレスから株価コードを抜き出し株価の前日比、前日比率でソートしランキングを作成した後スレに書き込むツールです。
2chへの書き込み時のCookiee処理に曖昧な点があるのと、処理の最適化をして貰えると嬉しいです。
宜しくお願いします_ _
0585nobodyさん
2006/05/18(木) 22:33:53ID:???Perlで他のサイトを取得して表示したいと思っています。
（著作権侵害とかそういうことをしたいのではないです）
お時間のある方にお願いしますが、次のコードで@niftyのトップページを取得してみたら
どうなるか教えていただけませんでしょうか？
print "Content-Type: text/html\n";
print "\n";
use LWP::Simple;
print get( 'http://www.nifty.com/' );
私のところだと、ブラウザ上での表示がぐちゃぐちゃになるんですが…。
0586nobodyさん
2006/05/18(木) 22:56:52ID:???マルチポストすんな
0588nobodyさん
2006/06/06(火) 15:21:29ID:Re1RmuFGもっと簡潔に書けるような気がするんですが自分ではこれが限界でした。
あと、ファイルロックのやり方が合っているのか自信がありません。
一応動いていることは動いているんですが、問題はないでしょうか。
改良すべき点、根本的にこういう書き方に直した方が良い、とかあればアドバイスお願いします。
大まかな内容は以下のようなものです。
予定として保存する内容は「予定日（月と日）」と
「予定内容（長くても200バイト程度）」の２つでフォームから渡します。
予定を保存するファイルは月単位で作成します。
例えば2006年6月の予定の場合なら「200606.txt」というファイル名です。
保存するファイルがないときはその都度作成し、
6月1日
6月2日
6月3日
.
.
.
という風に日付だけを先に入れておきます。
保存するファイルがあるときは、
フォームから渡された「予定日」とマッチした日付の次の行に「予定内容」を書き込みます。
内容は以上です。次レスにコードを晒します。
0589nobodyさん
2006/06/06(火) 15:22:42ID:???$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";
}
0590後半
2006/06/06(火) 15:23:17ID:???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);
0591nobodyさん
2006/06/06(火) 15:45:22ID:???まだちゃんと読んでないが…。
>if($MON == 1|3|5|7|8|10|12){
>}elsif($MON == 4|6|9|11){
これって比べてるのは、両方とも $MON == 15 だよね。
どっちの条件にも入らないと思うけど…正しく動作してるの？
0592nobodyさん
2006/06/06(火) 15:51:41ID:???セミコロンは？
動作するヤツうｐ
0593nobodyさん
2006/06/06(火) 15:52:34ID:???高度だな。
0594nobodyさん
2006/06/06(火) 16:09:34ID:???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 "そんな月知らん" }
}
0595589
2006/06/06(火) 16:39:31ID:???該当部分を切り出して動作するコードをUPしてきます。
0596589
2006/06/06(火) 17:02:59ID:???UPしました。パスは「589」です。
日付のところは594さんのアドバイスにしたがって書き換えました。
アドバイスの方よろしくお願いします。
0597589
2006/06/06(火) 17:11:06ID:???コードの一部分だけ抜き出してできるだけ短く書こうとしたので
分かりにくかった&書き損じがありました。すみませんでした。
>>594
perlでもswitchが使えるとは知りませんでした。
0598nobodyさん
2006/06/06(火) 17:20:53ID:???0599nobodyさん
2006/06/06(火) 17:24:17ID:???0600nobodyさん
2006/06/06(火) 18:59:27ID:???0601nobodyさん
2006/06/07(水) 00:26:35ID:???0602nobodyさん
2006/06/20(火) 01:54:40ID:jChy1x4Z見れない・・
0603nobodyさん
2006/07/08(土) 12:44:17ID:hGiPCYN90604nobodyさん
2006/07/21(金) 16:23:10ID:BWWkPiVe0605nobodyさん
2006/10/07(土) 10:40:01ID:L17fbc1O恐ろしく見づらいと重いまｽが・・
http://vip.ty.land.to/image/
http://pc8.2ch.net/test/read.cgi/php/1160569533/
でﾎﾞﾁﾎﾞﾁいじくったり、新しいことやったりしていきたいと思ってまｽが、評価して欲しいｽ(・ω・｀)
勉強かねてるので、車輪の再開発なのは承知でｽ
0607nobodyさん
2006/10/11(水) 23:36:54ID:???言葉遣い荒いけど、ばーっと書いた弊害なので許して。
取りあえずぱっとみてこんなもん。
・一部のうｐろだは、リファラが不味いと弾かれる。
・画像がない場合の画像を一々作るのは無駄。
・CGIモジュール使え。
・グローバル変数も宣言しろ。
・これは好みだけど、設定の変数はハッシュに纏めた方が分かりやすいこともある。
・メインの流れはブロック作ってラベル付けた方が分かりやすいかも。
・正規表現の|は案外コストがかかる。配列にしてマッチング。
・先頭にrequire バージョン名;
・use warningsは〜？
・汚染チェックもきれい好きな方にはオススメ。
・サブルーチンを先頭で宣言して欲しい。
・変数名に日本語はいやん。
・データーベースつかってほすぃ。
おぉぉぉﾚｽもらえたｽ(；ω；｀)ｱﾘｶﾞﾀｲ
感謝しまｽ！
>・正規表現の|は案外コストがかかる。配列にしてマッチング。
>・先頭にrequire バージョン名;
>・use warningsは〜？
>・サブルーチンを先頭で宣言して欲しい。
良くわからないｽ(・ω・｀)
>・変数名に日本語はいやん。
英語苦手ｽ・・・毎度翻訳ｽかね・・頑張るｽ
>・データーベースつかってほすぃ。
現在勉強中でｽ！
生暖かい目で見守ってやってくださいｽ・・(・ω・｀)
やっぱレベル高い人の意見は参考になるｽ！
文句なし！って言われるようなものをいつか作りたいｽ(・ω・｀)thnkｽ
0609nobodyさん
2006/10/12(木) 04:41:48ID:???うる覚えなんだが
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|ここに"文章"|;
こーすりゃいちいちｴｽｹｰﾌﾟしなくておｋ
ｻﾝｸｽ
>最後から10行目くらい@cache[$i]は$cache[$i]じゃないの？
どちらも同じ意味だったはず
(若干の差はあるかもだが、使い方に大差なしでは？)
>print文中の"をｴｽｹｰﾌﾟするんならprint qq|ここに"文章"|;
>こーすりゃいちいちｴｽｹｰﾌﾟしなくておｋ
ｍｊｄｓｋ！？
次から挑戦してみる
色々アドバイスやら素敵な解決策をありがとう
0611nobodyさん
2006/10/12(木) 13:46:42ID:???BEGIN{}で囲ったほうがいいな。
0612nobodyさん
2006/10/12(木) 22:51:01ID:???>うる覚えなんだが
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_
alter.s225.xrea.com/cgi/bbs/read.cgi?log=0
1. 評価と言うよりも bug の あぶり出しを希望します.
2. 操作がわかりづらいとの意見があります.
率直な ご意見をお願いいたします
3. 自信がないのが security 関連
･ 念のため, 全ファイルを upload しておきます:
alter.s225.xrea.com/bbs.zip
0615nobodyさん
2006/11/07(火) 08:23:24ID:???文章そのままって酷すぎるｗ
お返事ありがと〜.
でも, どういう意味かしら ?
誘導されて来たのに いまだに誰も...
どうなってるの ?
0618nobodyさん
2006/11/08(水) 10:54:37ID:???「とても読めたもんじゃない」
ということではないでしょうか。
613は釣りとしか思えない。
CGI以前の問題ね。
>CGI以前の問題ね
確かに... JavaScrit の bug がぁ〜〜〜
(絶対に書き込めない)
おまけに... WaMCom (Mozilla1.31) では問題とならなかった error が
IE5.17(Mac版) では発生して処理が止まる〜〜〜.
>613は釣りとしか思えない
釣りでは ありませぬ.
僕の環境で確認できる bug は退治しました.
引き続き あら探しをお願いいたしまする〜.
0620nobodyさん
2006/11/08(水) 20:37:07ID:???まず、「何を作ったのか」という概要や大まかな処理の流れすら書いてない。
>評価と言うよりも bug の あぶり出しを希望します.
評価するスレ。デバッグする所ではない。てか、デバッグなめすぎ。
>操作がわかりづらいとの...
具体的にはどういう操作？
>自信がないのが security 関連
どのファイルの何行目のどういう処理？
>JavaScrit の bug がぁ
JavaScritのスレへどうぞ。
>WaMCom (Mozilla1.31) では問題とならなかった error が
>IE5.17(Mac版) では発生して処理が止まる
と書いていながら
>僕の環境で確認できる bug は退治しました
ってどうよ。
何より、CGIについて無学なのがバレバレです。
背伸びせずPerlからでもきちんとお勉強しましょう。
0621nobodyさん
2006/11/08(水) 20:38:25ID:???最低でも変なファイル作られないようにするとか異常にでかい投稿は
書き込まないようにするとかしないと。
叩き専門の人にとっては叩く必要もないほどへなちょこだけど
プログラムに日本語を含めないつくりはいいと思う。
プロでもソースのいたるところに日本語を埋め込む人はいるからね。
ぶっちゃけそれくらいしか褒めようがないんだけどｗ
nullぽっぽはもしかしてOperaメインなの？
0622nobodyさん
2006/11/08(水) 21:25:25ID:???まずはuse strict及びuse warnings、
また-Tオプションを付けてエラーが出なくなってから来てください。
0623nobodyさん
2006/11/09(木) 02:37:09ID:???0624nobodyさん
2006/11/09(木) 05:11:43ID:Rlngnc6wありがとう ごぜ〜ますだ.
>>620
一応, 掲示板 CGI script (のつもり)
>デバッグする所ではない
言葉を間違えたかも ?
debug を他人に依頼するようでは問題外だと思っております.
動作はするけれど server 利用者に迷惑を書けるような
security hole に気づいていないかも知れない.
そんな問題があったら指摘して欲しかったですだ.
>>621
>変数の検査とか書き込む条件とかまったくないじゃん
おおせの通りです.
ようするに書きこみの部分を改良しなければならないのね ?
で, read.cgi の方は どうでしょう ?
人に迷惑を書けるような security hole が あったなら ご指摘くださいませ.
>CGIについて無学なのがバレバレです
弁解の余地もありません.
でも, 半端者の僕が言うのもアレですが
拾って来れるものには満足できなかったのら.
そもそも perl って できの悪い土台に無理な建て増しをした印象が...
>プログラムに日本語を含めないつくりはいいと思う
日本語を書きこむと文字化けするのでwww (僕の環境は一般的でない)
僕なりに いろいろ拾って来て解読を試みました.
その時, "皮肉にも comment が見通しを悪くしている" と思ったの.
徹底的に簡素化するのが先決だと...
> nullぽっぽはもしかしてOperaメインなの？
MacOS9.22 上で まともに動く Opera はなさそうです.
現在は WaMCom(Mozilla1.31+) がメインですだ.
動作確認に iCab, IE も立ち上げることがありますが,
あくまでも参考程度です.
>>622
メモメモ...
>>623
今では動作確認の参考程度ですだ.
改良されたかと思うと別の不具合が発生するのが許せません.
(これこそが最も知りたいところ)
量の制限は早急に対処したいと思いますが...
0627nobodyさん
2006/11/09(木) 16:01:13ID:???0629nobodyさん
2006/11/09(木) 19:51:53ID:???0630nobodyさん
2006/11/09(木) 22:54:18ID:???0631nobodyさん
2006/11/09(木) 23:12:35ID:???なにその英語はカッコイイ、日本語はダサいっていう中学生ｗｗｗｗｗ
それに、日本人なんだから直感的にわかりやすい日本語で注釈をつけておくのが、
あとを引き続く人へのマナーだと思うんだが。
0632nobodyさん
2006/11/09(木) 23:15:19ID:???まあ, 他人様に使ってもらおうとするのなら それなりの配慮が必要だろう.
しかし, 僕は自分のために作ったんだ.
最低限, 同じ server 利用者に迷惑を書けない配慮をすれば済む話なんだ.
僕が知りたかったのはその部分に問題があるかどうか なんだけど,
話は あらぬ方向に...
0634nobodyさん
2006/11/09(木) 23:45:04ID:???というかまずは普通の学校の勉強を頑張った方がいい．
0635nobodyさん
2006/11/09(木) 23:46:24ID:???> read(STDIN,$u,$ENV{'CONTENT_LENGTH'});
たとえ寝ぼけて他としてもこの一行を書いてしまうようでは CGI 書くのは辞め
た方がいい．
0636nobodyさん
2006/11/10(金) 03:57:46ID:???ただ、それは日本語に限った事じゃないな。
んじゃ〜ゴミでない script を書いてくらはい.
あっしは それを使わせていただきますだ. (イヒヒ)
>>635
>この一行を書いてしまうようでは CGI 書くのは辞めた方がいい
して, その理由は ?
それと read.cgi に security hole は ないのかどうかが知りたいのだけどなぁ.
-------------------------------------------------------------------
なんだか僕の質問に きちんと答えた回答はない.
ここを当てにした僕が愚か者ってことですかい ?
0638nobodyさん
2006/11/10(金) 07:10:46ID:???>>この一行を書いてしまうようでは CGI 書くのは辞めた方がいい
>して, その理由は ?
セキュリティホールになるから．理由は自分の頭で考えなさい．
>それと read.cgi に security hole は ないのかどうかが知りたいのだけどなぁ.
当然ある．
0639nobodyさん
2006/11/10(金) 07:14:05ID:???よく分かっていないようだからキミがすべきことを具体的に言おう。
スクリプト冒頭の#!/usr/local/bin/perlを、
#!/usr/local/bin/perl -T
use strict;
use warnings;
に書き換えてデバッグしなさい。
0640nobodyさん
2006/11/10(金) 11:09:25ID:???0641nobodyさん
2006/11/10(金) 11:30:01ID:???>>638でドットを使ったり、
キモチワルイ。流行ってるのか？
というかプログラマのくせに
「、」や「。」の代わりに「,」「.」使う奴って
なんだかなぁ…
0642nobodyさん
2006/11/10(金) 11:46:05ID:???この一行は書いてもいいよ。その前の行で$ENV{'CONTENT_LENGTH'}の最大値を
決めてチェックしていればね。
0643606
2006/11/10(金) 12:23:56ID:???人に物事を頼む態度じゃないよね？
こっちはみんな善意で見てるってこと忘れてる？
嫌なら他行ったら？
最初に自分で書いてたみたいだけど、他人のソースのつぎはぎスクリプトでしょ？
何の価値があるの？
まずはダサくてもきちんと問題なく動く物を作ることからじゃない？
利用者のことを考えないスクリプトなんて糞だと思います。
0644606
2006/11/10(金) 12:26:14ID:???どうにもならんのでしばらく放置〜
まだ様子見てくれてる人とかいるのだろうか･･･
もし居たら感謝
0645nobodyさん
2006/11/10(金) 14:20:19ID:???なぜ共用サーバーで使おうと思えるのか、その神経が理解できない。
プログラムよりも、その意識や存在自体が危険。
0646nobodyさん
2006/11/10(金) 16:16:14ID:???>なんだか僕の質問に きちんと答えた回答はない
「きちんと答えた回答」があることにさえ気付けてないだけ。
自分の無知を棚に上げておきながら、
コードに目を通してマジレスしてくれた住人に対して
>ここを当てにした僕が愚か者ってことですかい？
とは随分とご挨拶だな。
ま、オレが見た限りでは
お前の掲示板CGIscriptには何のsecurity holeもないよ。
安心して使って良い。オレが保証する。
0648nobodyさん
2006/11/10(金) 19:08:49ID:???ということを◆.PT9876/4Uは考えてみた方が良い。
645も指摘してる通り、今の時点では自分にその言葉が正しいのかどうかすらも
判断できないのに、共用サーバーで自作CGIを使おうとしていることがどれだけ危険か考えてみろ。
極端なことを言えば、それらしい説明があって「これを書き足した方が良い」と言われれば、
それが危険なコードであっても追記してしまうんじゃないのか？
少なくともこれだけマジレスしてくれたり
お世辞にも読みやすいとは言えないようなコードを読んでくれただけでも感謝すべきなのに
「まずこれをやれ」と言われたことはやらず、
自分のレベルの低さを指摘されると反省するどころか逆ギレして
637のような皮肉と煽りに満ちたようなレスしかできないことを恥ずかしいとは思わないのか？
(突っ込まれると思った global variable の突っ込みは なぜかないのね)
>>639
なるほろ...
さっそく確かめてみますだ〜.
>>642
おありがとうごぜますだ〜.
0651nobodyさん
2006/11/10(金) 19:36:37ID:???0652nobodyさん
2006/11/10(金) 20:12:51ID:???0653nobodyさん
2006/11/10(金) 20:53:05ID:???スクリプトが見れないし何の事を言ってるのかわからんち。
>>641
理系の論文はそういう仕様らしいぞ。
0654nobodyさん
2006/11/10(金) 20:57:05ID:???気持ち悪がるのは専門学校程度しか行けなかったやつか基本をろくに知らない文系プログラマじゃね？
0655nobodyさん
2006/11/10(金) 21:14:08ID:???いつから自分の投稿を論文調で発表する場になったんだ？
とりあえず、読みづらい。
読み手を考えないのは、物づくりで使い手を考えないのと同じ。
邪魔
0656nobodyさん
2006/11/10(金) 21:28:17ID:???0657nobodyさん
2006/11/10(金) 21:39:13ID:???ウザイのは句読点じゃなくてnullの存在なだけなんだし。
my $a = $_[0];
open( FH , $a );
while (<FH>) {
print;
}
close FH;
}
こんなサブルーチンを作ったのですがうまく動きません
なぜですか？
0663nobodyさん
2006/12/04(月) 16:34:03ID:???0664nobodyさん
2010/02/26(金) 22:46:54ID:1vcgNIKQ0665○~
2010/02/26(金) 23:15:50ID:1vcgNIKQttp://homepage2.nifty.com/alter/
･ 以前指摘された部分には一応, 対策を施したつもりっす.
･ CGI は perl script で, HTML の代わりに外部 js ファイルを吐き出す仕様.
(Ajax と違って, web-browser の影響が なく, 文字コードの問題も回避できる)
･ script 内の HTML 記述が皆無なので見通しが良く, 動作も軽快.
ただ, 注意して作ったつもりですが,
見落とした bug が潜んでいる可能性が大きいっす.
0666 忍法帖【Lv=6,xxxP】
2011/10/14(金) 19:38:24.52ID:5RDtymiP糸冬わり
0667 忍法帖【Lv=40,xxxPT】(1+0：8) 【24.4m】 電脳プリオン ◆3YKmpu7JR7Ic
2012/09/30(日) 15:48:22.27ID:????PLT(12079)| | ｶﾞｶﾞｶﾞｯ
| |
人
∧＿∧ < >_∧∩
（ ・∀・） 人｀Д´）/ ←>>203
と ） < >_∧∩
Ｙ /ノ .人｀Д´）/ ←>>259
/ ） < >_∧∩
＿/し' ／／. Ｖ｀Д´）/ ←>>433
（＿フ彡 /
0668カタヤマ
2013/12/31(火) 01:08:42.56ID:NACGwKVaうまく逃げたな
■ このスレッドは過去ログ倉庫に格納されています