Perlコーディング初心者質問スレ Part 48

**nobodyさん** · 2006/04/26(水) 18:00:50

Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1：自分はこういう事がしたい。
2：それでこんな風にやってみたが･･･
3：こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

過去ログやお勧めサイトは >>2-10

**nobodyさん** · 2006/04/26(水) 18:01:55

関連スレ
CGI: Common Gateway Interface part 13
http://pc8.2ch.net/test/read.cgi/php/1126436361/

【Perl,CGI】参考書籍第三版
http://pc8.2ch.net/test/read.cgi/php/1030209573/

【Perl】ファイルロック(排他処理)について語ろう
http://pc8.2ch.net/test/read.cgi/php/1024795138/

★負荷軽減対策委員会（Perl、PHP)★
http://pc8.2ch.net/test/read.cgi/php/1034645635/

Perlモジュールについて
http://pc8.2ch.net/test/read.cgi/php/997829243/

CGIに依存しないPerlの話題一般/Part2
http://pc8.2ch.net/test/read.cgi/php/1030548610/

★三　【スクリプト改造工房 PART 9 】　★三
http://pc8.2ch.net/test/read.cgi/php/1143834740/

【スクリプト改造依頼スレ】(丸投げ) part5
http://pc8.2ch.net/test/read.cgi/php/1141174205/

**nobodyさん** · 2006/04/26(水) 18:02:36

［過去ログ] 1 of 4

Part1　http://tako.2ch.net/test/read.cgi?bbs=perl&key=957208980　参照不能
　DAT: http://tako.2ch.net/perl/dat/957208980.dat
Part2　http://tako.2ch.net/test/read.cgi?bbs=perl&key=971817087　参照不能
　DAT: http://tako.2ch.net/perl/dat/971817087.dat
Part3　http://tako.2ch.net/test/read.cgi?bbs=perl&key=979894521　参照不能
　DAT: http://tako.2ch.net/perl/dat/979894521.dat
Part4　http://tako.2ch.net/test/read.cgi?bbs=perl&key=984430156　参照不能
　DAT: http://tako.2ch.net/perl/dat/979894521.dat
Part5　http://pc.2ch.net/php/kako/988/988728069.html
Part6　http://pc.2ch.net/php/kako/996/996075607.html
Part7　http://pc.2ch.net/php/kako/1000/10002/1000267444.html
Part8　http://pc.2ch.net/php/kako/1003/10039/1003900311.html
Part9　http://pc.2ch.net/php/kako/1009/10095/1009549309.html
Part10 http://pc.2ch.net/php/kako/1014/10145/1014556702.html

**nobodyさん** · 2006/04/26(水) 18:03:15

**nobodyさん** · 2006/04/26(水) 18:03:54

［過去ログ] 3 of 4

part21 http://pc2.2ch.net/php/kako/1047/10479/1047980851.html
part22 http://pc2.2ch.net/php/kako/1050/10503/1050369328.html
part23 http://pc2.2ch.net/php/kako/1053/10530/1053051519.html
part24 http://pc2.2ch.net/php/kako/1054/10549/1054992610.html
part25 http://pc2.2ch.net/php/kako/1056/10567/1056730690.html
part26 http://pc5.2ch.net/php/kako/1059/10590/1059043704.html
part27 http://pc5.2ch.net/php/kako/1060/10608/1060808783.html
part28 http://pc5.2ch.net/php/kako/1063/10635/1063562491.html
part29 http://pc5.2ch.net/php/kako/1066/10662/1066286828.html
part30 http://pc5.2ch.net/test/read.cgi/php/1069846177/

**nobodyさん** · 2006/04/26(水) 18:04:25

**nobodyさん** · 2006/04/26(水) 18:05:25

［過去ログ] New!!
part41 http://pc8.2ch.net/test/read.cgi/php/1110383236/
part42 http://pc8.2ch.net/test/read.cgi/php/1116970588/
part43 http://pc8.2ch.net/test/read.cgi/php/1123777607/
part44 http://pc8.2ch.net/test/read.cgi/php/1129477637/
part45 http://pc8.2ch.net/test/read.cgi/php/1134049707/
part46 http://pc8.2ch.net/test/read.cgi/php/1137518266/
part47 http://pc8.2ch.net/test/read.cgi/php/1141195171/ (前スレ)

part44-621氏による過去ログ倉庫
ttp://user.ftth100.com/mirrorhenkan/perl/

**nobodyさん** · 2006/04/26(水) 18:05:56

ム板Perlスレより 1 of 2

[プログラミング自体の経験が無い奴はまずココを読め]
Perlプログラミング講座: http://www.site-cooler.com/kwl/perl/

[本]
リャマ: http://www.oreilly.co.jp/books/4873111269/
駱駝: http://www.oreilly.co.jp/books/4873110963/
Effective Perl: http://www.ascii.co.jp/books/detail/4-7561/4-7561-3057-7.html
クックブック: http://www.oreilly.co.jp/books/4873112028/

[オンラインマニュアル] (追加)
最新のドキュメント: http://search.cpan.org/~nwclark/perl-5.8.7/
perl5.8.xのドキュメント(一部): http://www.kt.rim.or.jp/~kbk/perl-5.8/
perl5.005_03 のドキュメント: http://www.kt.rim.or.jp/~kbk/perl5.005/
日本語ドキュメント検索: http://www.cpan.jp/search.cgi
perldoc.jp: http://www.perldoc.jp/
Perldoc.com: http://www.perldoc.com/

**nobodyさん** · 2006/04/26(水) 18:07:53

ム板Perlスレより 2 of 2

[モジュール]
CPAN.com: http://search.cpan.org/
河馬屋二千年堂: http://homepage3.nifty.com/hippo2000/

[テクニック]
Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm
Perlのページ: http://homepage1.nifty.com/nomenclator/perl/
Perlの小技: http://homepage3.nifty.com/hippo2000/perltips/index.htm

[Perl5.8Unicodeメモ]
http://www.pure.ne.jp/~learner/program/Perl_unicode.html
http://www.namazu.org/~tsuchiya/perl/perl-5.8.html
http://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html

**nobodyさん** · 2006/04/26(水) 19:02:25

どっかで、変数の受け渡しはリファレンスを使用すれば
メモリの節約になるって見てから、それ以降ほぼ全てのやり取りを
リファレンス経由でやってるんですが、これってどうなんでしょうか？
そこらへんの作法がよくわからなくて・・・
リファレンスを使用するのは大きなデータを読み込んだときだけにした方がいいんですか？

$str = 'aaa'
↑こういうほんのちょっとの変数でさえリファレンスで渡してたんですが、
普通に変数をコピーして渡すべきなんでしょうか？

**nobodyさん** · 2006/04/26(水) 19:05:38

やりすぎ。パフォーマンスチューニングは特に気になるところだけに集中すべき。

**nobodyさん** · 2006/04/26(水) 20:00:46

>>1
乙

**nobodyさん** · 2006/04/26(水) 20:13:44

スレ立て乙

>>10
その処理のためにスクリプトが10バイトくらい増えてたりしてｗ
データ大きい時に使うリファレンスはメモリ使用量じゃなく速度目当ての方が多いんじゃないかな。

**nobodyさん** · 2006/04/26(水) 20:40:59

>>10
メモリーを節約したいならそんなもんじゃぜんぜん不十分だろ。
リファレンスが必要になる時点でおわっとる。
変数は全部グローバルにして使いまわさないと。
コピーに比べたら関数の呼び出しはめっちゃコスト高いからな。
もちろん配列をループで扱うなんてもってのほか。
似たような処理はコピーペーストで記述したほうが速いぞ。
さらにやるなら変数ひとつについてファイルをひとつ作って
必要になったときのみ読み込むようにすると信じられないくらいメモリーが節約できる。
他にもまだまだあるけどこれ以上の極意はタダじゃ教えられないなー

**nobodyさん** · 2006/04/26(水) 20:52:51

とまあそのくらい Perl でのパフォーマンスチューニングというものは虚しいものなのだよ。

**nobodyさん** · 2006/04/26(水) 21:14:04

Perlでパフォーマンスを上げにくいということは
逆にいえばパフォーマンスを下げにくいということ？
たまに処理がクソ重い掲示板をとか見かけるんだけど、あれは何が原因なんだろう。
もちろん同じ鯖上で他の掲示板は速かったりする。

**nobodyさん** · 2006/04/26(水) 22:08:45

MEMORY I/OよりもDISK I/Oを選んでる時点で>14はクソ
以上

ハイ次

**nobodyさん** · 2006/04/26(水) 22:27:04

「必死にメモリだけを節約してどうする？」って意味の皮肉だろ。

**nobodyさん** · 2006/04/26(水) 22:35:51

perl起動しただけで結構喰ってるだろうに
スカラ変数１個のメモリなんて誤差範囲に含まれるくらい

**nobodyさん** · 2006/04/26(水) 22:40:24

10みたいなやつに限ってsubの中でグローバル変数を定義してるに違いない

**nobodyさん** · 2006/04/26(水) 22:50:55

>>16
掲示板で体感でわかるほどの違いになることなんかないんじゃなかろうか。
たまたま別の処理でメモリー使い切っていたとか無駄な解析で遅くなっているとか。
やたらCSSやJS、画像が多いと体感でもはっきり遅いけどね。

**nobodyさん** · 2006/04/27(木) 01:36:01

前スレ消費してください

**nobodyさん** · 2006/04/27(木) 09:26:13

>>16
表示する部分だけ拾えばいいところを全メッセージなめてるとかは
普通にありそうだな。

**nobodyさん** · 2006/04/27(木) 10:10:59

過去ログの量に比例して (下手するとそれ以上で) 重くなるとかね。

**nobodyさん** · 2006/04/27(木) 11:54:18

つーか前スレの奴ageで書き込んでるし昨日の変な奴だろ…
無視しろよ。

**nobodyさん** · 2006/04/28(金) 04:16:53

1： 16進数で範囲演算子をするにはどうしたらいいでしょうか？
2： for ($a = 0; $a <= f; $a++)
3：ダメポ

**nobodyさん** · 2006/04/28(金) 04:27:40

# 16進数
for (my $a = 0; $a <= 0xf; $a++) {
　　print "$a:(ﾟдﾟ)<ｼﾒｼﾞ\n";
}

# 範囲演算子？
for (0 .. 0xf) {
　　print "$_:(ﾟдﾟ)<ｼﾒｼﾞ\n";
}

26 · 2006/04/28(金) 04:48:31

>>27
thx!!
0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
じゃなくて
0,1,2,3,4,5,6,7,8,9,a,b,c,d,e
と演算させるには地道に置換しかないですか？

**nobodyさん** · 2006/04/28(金) 05:25:00

pack使え

**nobodyさん** · 2006/04/28(金) 06:25:40

リストを作ればいい。
for('0'..'9', 'a'..'f'){ ... }

**nobodyさん** · 2006/04/28(金) 08:57:45

こんな時こそ sprintf じゃないのか？

**nobodyさん** · 2006/04/28(金) 09:48:18

>>31
正解！

26 · 2006/04/28(金) 16:24:53

domo!

**nobodyさん** · 2006/04/28(金) 21:23:07

>>27
ｼﾒｼﾞｽﾚに帰れｗ

**nobodyさん** · 2006/04/29(土) 07:14:54

$str =~ s/// と、tr/// の機能の違いがわかりません。
どっちも同じこと出来ますよね？
本にはtrの方が高速だと書いてあります。なら全部trでいいですよね？
変換と置き換えの違いがわかりません。
教えてください。

**nobodyさん** · 2006/04/29(土) 08:09:45

>どっちも同じこと出来ますよね？
使い方次第。

>本にはtrの方が高速だと書いてあります。なら全部trでいいですよね？
何をしたいかによる。

試しにs/// で、変数中に含まれる小文字アルファベットを全部大文字にする
正規表現を書いてみよう。
trだと　tr/a-z/A-Z/; なんだけど、違いが分かるかな？

**nobodyさん** · 2006/04/29(土) 08:10:16

>>35
http://perldoc.jp/docs/perl/5.6.1/perlop.pod#item_s_PATTERN_REPLACEMENT_egimosx
http://perldoc.jp/docs/perl/5.6.1/perlop.pod#item_tr_SEARCHLIST_REPLACEMENTLIST_cds

**nobodyさん** · 2006/04/29(土) 09:02:10

tr///はパターンマッチをしていないってハッキリ書けよ。

**nobodyさん** · 2006/04/29(土) 12:25:23

trはメタキャラクタ(エスケープシーケンスの一部)は通すけど、キャラクタクラスは通さない。
気をつけないと嵌る。

tr/\t\n//; # タブと改行にマッチ
tr/\d\s//; # "d"と"s"にマッチ

**nobodyさん** · 2006/04/29(土) 23:34:00

<STDIN>を一度使うと以後使えなくなりますよね？
read (STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
read (STDIN,$buf,$ENV{'CONTENT_LENGTH'});
$buf eq '' and die;

$buf = $buffer;
ではなくてもう一度<STDIN>に入力する方法ってありませんか？

**nobodyさん** · 2006/04/30(日) 00:16:51

>>40
何故それ(STDINへの再入力)が必要なのか、やりたい事を書いて下さい。

**nobodyさん** · 2006/04/30(日) 01:07:11

>>40
> <STDIN>を一度使うと

使うってどういう意味？標準入力に出力したいのかな。

> もう一度<STDIN>に入力する方法

STDIN へ出力はできないのでは。
というより、設計を見直した方がよさそう。

**nobodyさん** · 2006/04/30(日) 05:58:26

>39
処理する(考慮する)内容が少ないからtrが高速ということか

**nobodyさん** · 2006/04/30(日) 06:02:22

STDINは読み進んだら、後ろは消えてなくなります
そういう仕様です

なので、STDINで読み取ったものを再利用したいのなら一度ファイルに書き戻すか、
サイズが小さいなら読み込んだものを再利用するようにコーディングすればいいです

35 · 2006/04/30(日) 07:48:31

>>36
s/[a-z]/[A-Z]/;
ですね。違いは・・・カッコ？
>>37
参考ページありがとうございます。
ｔｒ///は正規表現を使えないということでいいのでしょうか。
>>38
つまり、探すんじゃなくて見つけたモノを単純に置き換えるということでしょうか。
>>39
なるほど。タブや改行を使えると・・・。でもメタ文字は使えないということですね。

みなさん解説ありがとうごぜーました。
ようやく違いがわかりました。
重複するとこもあるけど、役割はちゃんと違うんですね。

**nobodyさん** · 2006/04/30(日) 09:13:52

>>43
文字クラス展開の有無なんかより、
バックトラックする必要の無い事の方が大きいと思うよ。

>>45
tr/ab/AB/ に等価なのは
s/[ab]/ $& eq 'a' ? 'A' : $& eq 'b' ? 'B' : $& /eg

36 · 2006/04/30(日) 10:54:32

>>45
ちっがーう！　ちゃんと動かして試してみた？
「g」オプションが無いんですよ。

…というのは嘘で、もし s/// で書くとしたら

s/a/A/g;
s/b/B/g;
（中略）
s/z/Z/g;

ってしないとダメなんだ。全然違うでしょ？
>>45に gつけても、出てくるのは小文字アルファベットを [A-Z]に置換した
ワケワカメな結果だけ。
[A-Z][A-Z][A-Z]　[A-Z][A-Z][A-Z]　[A-Z]…とか。

36 · 2006/04/30(日) 10:59:21

$bar= "i have a pen.\n";
$bar=~ s/[a-z]/[A-Z]/g;
print $bar;

結果：
[A-Z] [A-Z][A-Z][A-Z][A-Z] [A-Z] [A-Z][A-Z][A-Z].

# キャラクタクラスだのパターンマッチだのより先に言うべき事が…（;´д｀）

40 · 2006/04/30(日) 11:00:50

(STDINへの再入力)が必要な理由は
自分のHPで複数の掲示板を設置しているのですがコメントスパムがひどいんです。
その対策として現在稼動しているCGIにスパム対策を記述したplファイルをrequire '….pl';と読み込ませば
今後の追加対策もplファイルひとつで対応出来ます。
本体のCGIを改造するのは複数あるので困難だし配布先がバージョンアップすると一からやり直しだし、。
という理由で対策用のplファイルで一度<STDIN>読み込んで処理し問題無ければ本体のCGIに戻る→標準入力から呼び出す処理が始まる。
という理由です。

**nobodyさん** · 2006/04/30(日) 11:13:20

>>49
複数の掲示板って一体いくつあるの？
面倒がらずに改造したものを一つ一つ上書きすればいいじゃん。

'….pl'でコメントスパム対策ができるくらいのスクリプトは書けるんでしょ？
本体の頭でrequireしておいて、<STDIN>の後ろに外部サブルーチン呼び出しを
書くだけだから実質２行の追加で本体改造は終わると思うんだが。

**nobodyさん** · 2006/04/30(日) 11:28:56

適当にラッパー書く手もありますがね。

**nobodyさん** · 2006/04/30(日) 12:03:02

そもそもここは「お手軽に既存スクリプトを改造したい人の手助けをするスレ」じゃないよな。
改造物なら専用スレできいてほすぃ。
あくまでもPerlコーディング初心者、つまりこれから上達したい人の質問にその道の先輩が
答えるのが本道なわけだし。

**nobodyさん** · 2006/04/30(日) 13:42:36

>>47-48
tr/ab/ba/ と s/a/b/g; s/b/a/g; は結果が変わるから
tr/a-z/A-Z/ を s/a/A/g …のように説明するのはどうかと思うんだ。

**47-48** · 2006/04/30(日) 13:58:12

>>53
そりゃ、結果は変わるよね（変換がまとめて行われるか否かってレベルで）。
s/a/A/g; のように26回繰り返せば tr と同じ事ができるよって言いたかったんじゃなくて
s/// と tr/// の用途の違いを見せたかっただけ。

そもそも tr は 0-9 a-z A-Zのように連続している事が保証されている文字グループを
同数の別文字に変換する目的なので、その場合は数の多寡に限らず s/// は使わないのがよい。
とか追記すればよかったかな。

**47-48** · 2006/04/30(日) 14:09:07

それともちろん trには文字リストを２つ並べて変換するって用途もある。
jperlやPerl5.8＋UTF8で、漢字の新旧変換とか異体字変換する時に重宝する。

40 · 2006/04/30(日) 14:33:27

確かにあからさまな初心者的質問では有りませんが、
自作しているPerlのコーディングに関する内容なのでここで質問した次第です。
スレ主1の趣旨とかけ離れていると思いませんでしたし。それにここは人が多そうなので。

どうせならrequire '….pl';1行の改造だけで済ませたいです。
# GETメソッドによるチェックもあるのでCGIの2行目に記述しているから

どういうラッパーなんでしょうか？
パイプを変則的に使えば実現出来るのは知っていますが、うちのプロバイダのサーバでは
パイプが使えないようなんです。

**nobodyさん** · 2006/04/30(日) 15:34:27

>>56
> 自作しているPerlのコーディングに関する内容

え、自作なの？ >>49では

> 配布先がバージョンアップすると一からやり直しだし

って書いてあるけど…。

**nobodyさん** · 2006/04/30(日) 15:53:15

Perlのdirty hackをなめるなっ
例えば本来のSTDINを閉じてIO::Stringにtieするモジュール。
strictじゃない環境で動かすつもりならIO/String.pmに
ttp://search.cpan.org/src/GAAS/IO-String-1.08/String.pm
を置いて、四行目以降をplファイルに突っ込めばOK。
#=======================================
package Hack::STDIN::Seekable;
use strict;
use warnings;

use IO::String;

my $stdin = join '', <STDIN>;

close STDIN;
tie *STDIN, 'IO::String', \$stdin;
1;
#=======================================
…新たに書こうとしてるならこんなのは絶対に使って欲しくないけどね

**nobodyさん** · 2006/05/01(月) 00:18:30

Text::ChaSenモジュールをインストールしたのですが、
プログラム中でUse::TextChaSenとしても実行されていないようです。
#!C:/cygwin/bin/perl
use Text::ChaSen;
print "hoge";
とするとエラーも何も出ずに終わってしまうのですが、どういうことなのでしょうか？
モジュールが正しくインストールされていないんですかね？

**nobodyさん** · 2006/05/01(月) 00:30:02

酔っ払い中。

>>59
> プログラム中でUse::TextChaSenとしても実行されていないようです。
その宣言は間違いかもしれません。一般に、 use Text::ChaSen; かも。

> use Text::ChaSen;
> print "hoge";
> とするとエラーも何も出ずに終わってしまう
モジュールが正しく導入された、正常な状態です。
モジュールのインストールでミスってると、@INCを全部探したけどモジュールのファイルが
見つからんぞ、どないなっとんねん？というエラーメッセージが出るはずなので。

結論としては「何ら問題なくインストールできてる。use するときの書き方を再確認すると安心」
ぐらいじゃないですか？

**>>60** · 2006/05/01(月) 00:34:25

use Text::ChaSen;
print "hoge";
とした場合hogeは表示されると思うのですが、それすら表示されないのです。
use Text::ChaSenの行でプログラムが終了してそれ以降の行に進んでいない気がするのですが…

**nobodyさん** · 2006/05/01(月) 01:02:08

>40
CGIアクセスが実行されるときは、それが投稿なのか普通にアクセスされただけなのかは判別出来てるよね？
それなら簡単じゃないかと・・・
たとえば
my($spamflag) = 0;
if($in{'exec'} eq 'postmsg'){
　　require 'denypost.pl';
　　$spamflag = &denypostcheck($in{'posttitle'}, $in{'posthome'}, $in{'postmail'}, $in{'postbody'});
}
のようにすりゃいいんじゃないのでしょか？
denypost.plは
sub denypostcheck{
　　だらだら～あーだこーだ
}
1;
だけ

難しく考えすぎじゃないのかな？

**nobodyさん** · 2006/05/01(月) 10:13:04

@rankpairs=split(/&/,$ranking);
foreach $log(@rankpairs){
　　　　($jikan,$name,$score)=split(/=/,$log);
　if($pair{score}>$score){
push(@newrank,"$hiduke=$pair{name}=$pair{score}");
$check=1;
　　　　　}
　　　　　if($check==1){
　　　　　　　　　　　　if($pair{name} eq $name){next;}
　　　　　}
push(@newrank,"$jikan=$name=$score");
}

　得点ランキング用のCGIで、個人の最高得点を記録した後、
ログファイルにある$log{name}データと、フォームから送られた$pair{name]が同じ場合は、
それ以降、同じ名前の人は登録をせずにスルーしたいのですが、どうしてもうまく動いてくれません。
全てが「真」と判断されてしまうみたいで、全て「next」を通ってしまいます。

一体、どこが間違っているのでしょうか？　perlの辞典も買ってきて
色々と調べているのですが本当に分かりません。

**nobodyさん** · 2006/05/01(月) 10:59:16

>63
ロジックをよく見直せ。
pushした後で名前の値を比較してどーすんだよ。アフォかいな。

**nobodyさん** · 2006/05/01(月) 11:19:05

一回目のプッシュは登録されて構わないので、そこで$checkを1にしておいて、
それ以降のループで名前の比較をして、nextしているつもりなのですが…。

**nobodyさん** · 2006/05/01(月) 11:28:23

@rankpairs=split(/&/,$ranking);
foreach $log(@rankpairs){
　　　　($jikan,$name,$score)=split(/=/,$log);
　　　　　if($check==1){
　　　　　　　　　　　　if($pair{name} eq $name){next;}
　　　　　}
　　　　　if($pair{score}>$score){
　　　　　　　　　　　　push(@newrank,"$hiduke=$pair{name}=$pair{score}");
　　　　　　　　　　　　$check=1;
　　　　　}
push(@newrank,"$jikan=$name=$score");
}

でも、順番を変えたら成功しました。
なぜこれだとうまく行くのか、正直まだ理由が理解できていませんが、
>>64、ヒントを下さってありがとうございました。

**nobodyさん** · 2006/05/01(月) 12:00:35

>66
そのソースじゃ問題ありそうな悪寒

**nobodyさん** · 2006/05/01(月) 12:03:06

教えて下さい。

掲示板を作っているのですが
openで読み取りの前に読み込むログを
ロックする必要はあるのでしょうか？

**nobodyさん** · 2006/05/01(月) 12:11:37

ログを飛ばしたくないならロックはした方がいい
k○ntのロックの仕方は真似しちゃ駄目よ

**nobodyさん** · 2006/05/01(月) 12:15:54

>69
ありがとうございます。

**nobodyさん** · 2006/05/01(月) 15:50:31

ke*ｔって本も出してるし、利用者多いし、優れたコード書く人じゃなかったのか。

◆TWARamEjuA · NG

ｶﾞｸﾌﾞﾙ

**nobodyさん** · 2006/05/01(月) 17:07:02

m9(^Д^) ・・・

**nobodyさん** · 2006/05/01(月) 17:15:00

初心者の僕に何が悪いのか説明してください・・・

**nobodyさん** · 2006/05/01(月) 17:15:27

フレームネタなんで、その辺はこちらへどうぞ。

KENT WEB 総合スレ Part2
http://pc8.2ch.net/test/read.cgi/php/1078991985/

**nobodyさん** · 2006/05/01(月) 17:28:20

>>75
ｻﾝｸｽ。
必死だということだけは理解した。

**nobodyさん** · 2006/05/01(月) 18:08:15

俺が思うにKENTで配布されてる物の大半は初心者の頃に書いた奴だと思うのだが
今でもあんな書き方してるんだったら知らん＾＾；

**nobodyさん** · 2006/05/01(月) 18:09:41

（＾ω＾；）……

**nobodyさん** · 2006/05/01(月) 19:50:42

もう kent 話はいいじゃないか。
おまえら注目しすぎ。

**nobodyさん** · 2006/05/01(月) 19:53:55

KENTさま～

**nobodyさん** · 2006/05/01(月) 19:57:37

>>69
最後の1行余計。
KENTのソースで普段から勉強してんのか？

40 · 2006/05/01(月) 20:23:44

58氏有難うございます。
動作確認しました。
個人的に使うだけなので・・・(^^;

稼動中の掲示板にはrequire一行だけしか記述せずに動作させてみたかったんです。
>>40
にもそれらしいことは書きましたが
plファイル抜ける時にreturn $buffer;としてそれを受け取るように稼動中のCGIも改造すれば
すむんですが、こだわってみたかったんです。
だからplファイルはほとんどif文ばかりです。もちろんそれがPOSTとGETなのか動作判定はしてます。
動作的に投稿時の<STDIN>を2回処理する無駄はありますが、体感出来るほどでもないですし。

**pel** · 2006/05/02(火) 10:15:11

Windows2003ServerにActivePerl5.8.8,mod_perl2をインストールし、CGIを作成しているのですが、長時間かかる処理を実行したいため、ブラウザがタイムアウトを起こさないようにバックグラウンドで処理を実行したいと思っています。
例えば下記CGIを実行したとき、バックグラウンドでthre2を実行しておき、ブラウザにはすぐthre1を実行した結果としてprintを実行したいのですが、thre2の終了を待たなければ、thre1は実行されないのです。
これではブラウザがハングアップしてしまうのですが、どのようにしたらよいのでしょうか？
perlのforkやDOSのコマンドstartも試したのですが駄目でした。

***************
use v5.8.0;
use threads;

my $thread1 = threads->new(\&thre1, "1");
my $thread2 = threads->new(\&thre2, "2");

$thread1->join;
$thread2->join;

sub thre1() {
print "$_\n";
threads->yield();
}

sub thre2() {
sleep(30);
threads->yield();
}
***************

よろしくおねがいします！

※マルチポストさせていただいています。
http://www.gac.jp/article/index.php?stats=question&category=10&id=17717&command=msg

**nobodyさん** · 2006/05/02(火) 11:06:58

似たような処理を一つのルーチンにまとめてモード別の細かい条件はifで判断して実行していくのと、
全体のコードが長くなっても、ifを使わないで別処理にしていくのでは、どっちがいいんでしょうか？
前者はコードは短くなりますが、頻繁にifを使うので処理が重くなりそうな気がするんですが・・・

**nobodyさん** · 2006/05/02(火) 11:09:23

>>83
fork使うのなら、
CGI fork バックグラウンド
で検索すると出てくると思う。

**nobodyさん** · 2006/05/02(火) 11:10:02

winでforkって使えるんだっけ

**nobodyさん** · 2006/05/02(火) 11:14:23

>>84
つ多態

85 · 2006/05/02(火) 11:33:29

あー、Windowsの場合は平行処理してくれないのか。

**pel** · 2006/05/02(火) 11:35:57

85>>
86>>

UNIXサーバで動いたforkを使ったソースそのままをWindowsサーバで動かしたら、thread同様printされずです。

**nobodyさん** · 2006/05/02(火) 11:39:33

でもthreadは使えるんじゃなかったっけ

**pel** · 2006/05/02(火) 12:09:46

すいません、今テストしたところ、threadは使えてバックグラウンド処理は行えているようです。
(タスクマネジャ参照)
しかし、ブラウザが拘束されて、printされないことが回避できません。
方法知りませんか？

**pel** · 2006/05/02(火) 12:11:19

書き直し。

すいません、今テストしたところ、threadは使えてバックグラウンド処理は行えているようです。
(タスクマネジャ参照)
しかし、ブラウザが拘束されて、sleepが終わらないとprintされないことが回避できません。
方法知りませんか？

**nobodyさん** · 2006/05/02(火) 12:18:06

ttp://perldoc.jp/docs/perl/5.8.1/perlthrtut.pod

**pel** · 2006/05/02(火) 12:29:52

>>93
joinをdetachに変えてみます！

**pel** · 2006/05/02(火) 15:13:58

>>93
うまくいきました！！
ありごうとうございました。

**nobodyさん** · 2006/05/02(火) 15:30:13

Net::FTPを使って

$net_ftp->rmdir('directory');

だと、空じゃないディレクトリは消えないのですが、これを

rm -rf(unix)
rd /s /q(NTのCMD)

みたいなことってできますか?
先にディレクトリの中を空にしてから、cdup()で上がって消すしかないですか?

あと、これはついでなのですが・・・
rmdir(DIR,[RECURSE])
mkdir(DIR,[RECURSE])

の中に入るRECURSEって何を入れたらいいもんなんでしょう。。

**nobodyさん** · 2006/05/02(火) 15:46:28

recurseは再帰。
$net_ftp->rmdir('dir', 1);
みたいにしたらディレクトリの中身ごと消してくれる。
とNet::FTPのドキュメントに書いてある。

**nobodyさん** · 2006/05/02(火) 16:33:51

>>97
そのあたりはドキュメント見ながらやったのですが、

$net_ftp->rmdir('dir', 1);

をやるとエラーが出ます。

Deep recursion on subroutine "Net::FTP::rmdir" at C:/perl/lib/Net/FTP.pm line 612.

となって、100回以上ループしてるようなんです。
1と文字列の'true'は試してみました・・・

**nobodyさん** · 2006/05/02(火) 17:55:48

教えて下さい
今CGI掲示板をいじっているのですが

foreachの前に配列や変数を空にする場合
よく@xxx=();　$=0;と見るのですが
undefはあまり使わないのでしょうか？

**nobodyさん** · 2006/05/02(火) 19:04:32

undefはｱﾎﾞｰﾝ
初期化とは意味が違います

**nobodyさん** · 2006/05/02(火) 19:49:10

>>100
ありがとうございます
意味は判るのですが

どちら使うか迷ってまして
適当に使ってみます。

**nobodyさん** · 2006/05/02(火) 20:30:46

#!/usr/bin/perl -W

use strict;

my($test);

$test=""; #初期化
print $test;

undef $test; #削除
print $test;

結果：Use of uninitialized value in print at a.pl line 11.

まぁお好みでいいんじゃね？

**nobodyさん** · 2006/05/02(火) 20:32:50

warningsなんて使ってる奴まだ居たのか…Perlの意味ねーだろ

**nobodyさん** · 2006/05/02(火) 20:34:26

>>>103そんなお前のソースは見辛い

**nobodyさん** · 2006/05/02(火) 20:35:43

>>104
いや、strictなソースは素晴らしいけど、warningsはマジで要らなくないか？
空の値をprintするだけでも警告出るんだぞ？

**nobodyさん** · 2006/05/02(火) 20:36:41

空の変数をprintするのが悪いだろｗ

**nobodyさん** · 2006/05/02(火) 20:37:40

-wなんて超几帳面な奴しか使ってないよ

**nobodyさん** · 2006/05/02(火) 20:47:13

ワーニングはデバックする時しか使ってね

**nobodyさん** · 2006/05/02(火) 20:51:56

運用時には-Wは使ってないけど、開発中は常にそれでやってる

**nobodyさん** · 2006/05/02(火) 21:03:44

そんなｵﾌﾟｼｮﾝがあるのを初めて知った。

**nobodyさん** · 2006/05/02(火) 21:46:19

#!/usr/bin/perl -wc

**nobodyさん** · 2006/05/02(火) 21:57:52

そのトイレオプションの詳細を

**nobodyさん** · 2006/05/02(火) 22:02:10

perl --help
perldoc perl

**nobodyさん** · 2006/05/02(火) 22:05:57

ネットに繋がってないので見れないです

**nobodyさん** · 2006/05/03(水) 01:09:48

>>112
文法チェック

**nobodyさん** · 2006/05/03(水) 14:03:38

>>105
warnings は、warnings の存在意義を理解できないプログラマに最適化されたプラグマです。
つまり、あなたのためにこそ存在しているんです。

必要だと感じる *前に* ぜひ使ってください。

**nobodyさん** · 2006/05/03(水) 14:44:49

warnings厨うざいな

**nobodyさん** · 2006/05/03(水) 16:28:30

warningが出るｿｰｽを配布するｶｽもｳｻﾞいよな

**nobodyさん** · 2006/05/03(水) 16:59:32

>>115
ということは、CGIとしては動かない？

**nobodyさん** · 2006/05/03(水) 17:07:03

つーか perl -h しろよ

**nobodyさん** · 2006/05/03(水) 17:31:55

>>119
自分で試してみればよくわかる

**nobodyさん** · 2006/05/03(水) 20:12:19

-wc とｓｔｒｉｃｔは常識じゃなかったのか・・・

**nobodyさん** · 2006/05/03(水) 21:10:16

>>122
お前の常識は世間の非常識

っていう煽りは置いといて、
常識は常識だろうけど開発が終われば外すのがいいんでねーの

**nobodyさん** · 2006/05/03(水) 21:18:36

ダンは-Tw 使うこと勧めてるけど。
そんな面倒なことやってられるかと思ってたけど、
実際コーティングしていくと、必然的に全ての外部データは
チェックするのが当然だしね。
ただ、処理速度が犠牲になるのがネックか。

**nobodyさん** · 2006/05/03(水) 22:05:56

> 開発が終われば外すのがいいんでねーの

はつみみです。

**nobodyさん** · 2006/05/03(水) 22:58:28

教えて下さい

掲示板をいじっているのですが
（かなり頻繁にログをチェックしたり読み込んだりするタイプです。）

ソースを見ると
openでログを読み込む時に全部読み込んでいるようです
つまり@xxxx = <F>;となっています。
これは必要な部分だけ抜き出すように書き換えた方が良いのでしょうか？

書き方は調べて判ったのですが
いまいち効果があるのか無いのか判りません。
ログの最大容量はまだ決めていないのですが
最大1Mbyteくらいにしようと考えています。

使っているサーバーは共用サーバーで
mod-gzipが自動的に入っているみたいです。

**nobodyさん** · 2006/05/03(水) 23:10:31

>>126
日本語でおｋ

**nobodyさん** · 2006/05/03(水) 23:14:22

メモリの消費量を抑えたいのなら書き換えた方がいいかもね～
まぁ一概には何とも言えんが

**nobodyさん** · 2006/05/03(水) 23:21:02

>>126
何がしたいのかによる。

**nobodyさん** · 2006/05/03(水) 23:25:30

>>126
ログ = 1ファイルで1MBということなら、掲示板にしてはかなりサイズが大きいかもね。
その1MBをまた別の変数へ格納してるとか。マズイ造りになっているようなら改造するのもありだけど、
そうでないなら別に気にするほど大きいわけでもないよ。

**126** · 2006/05/04(木) 00:00:07

手直しする事にしました
100ヶ所くらいあるので迷ってました
>127-130
ありがとうございます。

**nobodyさん** · 2006/05/04(木) 00:15:21

>>126
ファイルにデータを置くなんて馬鹿のやることでつよ。

**nobodyさん** · 2006/05/04(木) 00:21:22

問答無用でDB使えるなんていい環境だな

**nobodyさん** · 2006/05/04(木) 02:48:36

DB使えない環境だとブーブー文句言いそうだねｗ

**nobodyさん** · 2006/05/04(木) 04:19:37

>>131
1から自分で作ればいいじゃん

**nobodyさん** · 2006/05/04(木) 04:22:02

BerkeleyDBが使えないんですか！？
私は開発から抜けさせていただきます！

こういうことですかぁ

**nobodyさん** · 2006/05/04(木) 05:32:15

えっ、ログファイルって全部読み込まなくても処理できるんですか？
掲示板のログ読み込みだと、

open(FH,'<',$path) or die "error: $!";
@data = <FH>;

って全部読み込んでから@dataに対して要素数を調べて、最大表示件数で割って・・・
ってな感じでやってたんですが、
直接FHの行数（要素数？）を調べたり、5行目から10行目を読み込むみたいな操作が出来るんでしょうか？
FHは配列と同じように扱えるのかな？
やり方教えてください。

**nobodyさん** · 2006/05/04(木) 05:47:04

>>137
俺は使った事ないから分からないけど、tieを使えばできると思う。
ただテキストファイルの10MBや20MBくらい屁でもないし(Perl5.8@WinXP)
スクリプトを簡潔に書く意味でもまとめ読みがいいんじゃないかな…

すごくアクセスが多いとかログファイルが膨大とか
掲示板レンタルシステムみたいなのになったらまた話は別だけど。

**nobodyさん** · 2006/05/04(木) 08:40:59

>>137
そんなに配列で扱いたいのなら、Tie::Fileでもつかうといいさ。
# 使ったことがないから、効率はシラネ。

**nobodyさん** · 2006/05/04(木) 10:58:56

ログの解析とかって、それこそ RDBMS に突っ込めば楽だよね。

**nobodyさん** · 2006/05/04(木) 11:40:50

特殊変数$.　の使い方ってこれであってますか？
本に現在の行数を表すと書いてあったので、

while(@data = <$fh>){
if($_ =~ /^$num\t/){
$line_num = $.　;
}
}

このように組みました。
ファイルを読み込んでいって、パターンにマッチするデータがあったら
その行数を $line_numに記録しておいて、
あとから@dataにspliceで、記憶していた行にデータを挿入・・・としたいのですが
なんかうまくいきません。

**nobodyさん** · 2006/05/04(木) 14:10:19

>>141
> なんかうまくいきません。
そういわれても…。まずは >>1 を読んでね。

で、>>141 のコードの 1番目の間違いは、while の条件部にリスト(ここでは配列への代入)を置いていること。
s/while/foreach/ で恐らく動作するようにはなるけれど、改良の余地はあちこちにごっそりありそうなんでがんばれ。

# もちろん 0番目の間違いは use strict と use warnings 乃至 -w スイッチを使っていないことなわけだが。

**nobodyさん** · 2006/05/04(木) 16:32:58

>>142
> s/while/foreach/ で恐らく動作するようにはなるけれど、
$. が常に最後の行番号になるのは変わらんな。

**nobodyさん** · 2006/05/05(金) 11:18:14

>137
複数のファイルにわけたら？
件数でわけるなり、日で分けるなり。

**142** · 2006/05/05(金) 15:37:32

>>143
> $. が常に最後の行番号になるのは変わらんな。
ツッコミさんきゅ。

仮に「あとから」でなくてよいのであればこんな解法も。

push @data, /^$num\t/ ? ($insert, $_) : $_ while <$fh>;

>>141 を額面どおりに取ればこんな感じか。

while (<$fh>) {
$line_num = $. if /^$num\t/;
push @data, $_;
}

**nobodyさん** · 2006/05/05(金) 15:59:02

-1からのインクリメントでいいじゃん

**nobodyさん** · 2006/05/05(金) 16:11:31

コーディングからはずれる質問ですが…
例えば1から9まで入力させて、それぞれに対応したhtmlを表示するcgiを作るときは

・それぞれのhtmlを作る関数を作っておいて、ifで入力によって呼ぶ関数を分ける
・それぞれのhtmlを作るcgiを作って、ifで呼ぶcgiを分ける

どっちが一般的ですか？あとヒアドキュメントを使うのは好ましくない場合とかありますか？

**nobodyさん** · 2006/05/05(金) 16:25:37

やろうとしてることをわざわざ小難しくしなくてもいいんじゃない？
入力者の名前とかを使いたいなら
(1)表示用HTMLをテンプレートとして用意
(2)CGIで適当なテンプレートHTMLを読む
(3)名前とか、そのほか色々を置換して表示
がいいんじゃないかな
HTMLは１つで済むし

**nobodyさん** · 2006/05/05(金) 16:37:56

>>147
1～9までのHTML名を配列に入れておき、
入力に応じてファイルとして読み込んでそのまま表示

**nobodyさん** · 2006/05/05(金) 16:40:07

HTMLを表示させるだけならJavaScriptで充分かと思う

**nobodyさん** · 2006/05/06(土) 01:44:53

>>147
起動スクリプトは１つの方が管理は楽

#条件処理
my $ACTION = {
1 => \&do_1,
2 => \&do_2,
3 => \&do_3,
}

MAIN:{
# 初期化処理を適当に

$ACTION->{ $cgi->param('action') }->();

# テンプレ表示処理などをする

}

sub do_1{}
sub do_2{}
sub do_3{}

**nobodyさん** · 2006/05/06(土) 05:52:25

>>151
うんこな書き方でつね。

**nobodyさん** · 2006/05/06(土) 08:42:44

書くならこうかしらん。

my $mode = get_mode();
my $action = [undef, \&do_1, \&do_2, \&do_3]->[$mode] or error();
$action->();

>>152
オブジェクト指向以外で、いい書き方ある？

**nobodyさん** · 2006/05/06(土) 09:22:34

> オブジェクト指向以外で、いい書き方ある？

どんな書き方をオブジェクト指向としたいのか明確にしてよ。

**nobodyさん** · 2006/05/06(土) 09:29:06

まぁ、なんと言うかPerl臭い書き方ですな

**nobodyさん** · 2006/05/06(土) 09:47:31

> まぁ、なんと言うかPerl臭い書き方ですな

KENT 臭い書き方ということ？

**nobodyさん** · 2006/05/06(土) 09:52:54

KE●Tは多分こんな感じ

if($mode eq 'write'){ &write; }

**nobodyさん** · 2006/05/06(土) 09:59:47

KENTさんの方が分かりやすいな。

**nobodyさん** · 2006/05/06(土) 10:38:27

その局面でわざわざ hash にする意図が分からん。

my $action = 'do_' . $cgi->param('action');
eval {
no strict 'refs';
$action->();
};

**nobodyさん** · 2006/05/06(土) 10:46:49

>>154
パッケージ作って、blessした変数を使う方法全般。
Perlっぽいとしたら、こんなのとか。

my $mode = get_mode();
my $do = "do_". $mode;

my $obj = Local_table->new();
$obj->$do();
exit;

package Local_table;

sub new { return bless {}, shift }

sub do_1 {}
...

sub AUTOLOAD {
use vars qw($AUTOLOAD);
my $self = shift;
my $name = $AUTOLOAD;
$name =~ s/.*:://;
error("not implemented $name");
}

sub DESTROY {}

# 書いてたら、>>159に似てる…。

**nobodyさん** · 2006/05/06(土) 12:36:26

ずっとKENT風に書いてきた・・・
渡された変数名の関数を呼べばKENT風に書かなくてもいいのか。なるほど。
でも、存在しない関数を呼び出されそうな場合のトラップはどうすればいいだろ？
その関数が存在するか調べてたらKENT風に書くのと対して変わらんし・・

**nobodyさん** · 2006/05/06(土) 13:46:28

eval と $@ で十分じゃん。

**nobodyさん** · 2006/05/06(土) 14:37:39

eval と $@ で十分じゃんって言われても分からんかったので調べた・・・

evalの中で関数呼び出して、evalを抜けた直後の$@がNULLだったらエラー無しか
なるほど
これはいいかもしんない

**nobodyさん** · 2006/05/06(土) 15:04:02

>>162-163
詳しく！！！

**nobodyさん** · 2006/05/06(土) 15:13:21

詳しくも何も >163 のまんまじゃねーか…

**nobodyさん** · 2006/05/06(土) 15:40:56

初心者スレなんだからKENT風でいいんじゃね？
リファレンスを使うのはポインタでつまずくC言語みたいだし、
evalはうっかりダブルクォートで変数を使ったりするとアレな事があるし。

**nobodyさん** · 2006/05/06(土) 15:44:49

最後の変数を～の部分がわからない
なんか不具合でも？

携帯だから調べらんねorz

**nobodyさん** · 2006/05/06(土) 16:07:17

レベルの高低ではなく、初心者が読んで勉強にならないようなレスは
このスレ的に糞レス。
上級者気取りのPerlerの腕自慢スレじゃないんだぞ☆

>>162-163
kwsk

**nobodyさん** · 2006/05/06(土) 16:10:27

>>168
(´･ω･)(･ω･`)ﾈｰ

**nobodyさん** · 2006/05/06(土) 16:12:28

ぐぐると一番上にでてくる物すら読めないのかよ

**nobodyさん** · 2006/05/06(土) 16:58:36

@ とか $ ってぐぐれないだろ

**nobodyさん** · 2006/05/06(土) 17:01:22

うん

**nobodyさん** · 2006/05/06(土) 17:07:20

全くひどい話だ

**nobodyさん** · 2006/05/06(土) 17:15:25

こ

**nobodyさん** · 2006/05/06(土) 17:18:17

Perlコーディング””初心者質問スレ”” Part 48

**nobodyさん** · 2006/05/06(土) 17:27:05

まぁ俺だけかもしれないけど
別言語に移植しやすいように書くよう心がけてます

**nobodyさん** · 2006/05/06(土) 17:29:31

"perl eval"でぐぐれば、出てくるがな。

**nobodyさん** · 2006/05/06(土) 17:37:48

if ($mode eq 'test1') { &test1; }
elsif ($mode eq 'test2') { &test2; }
elsif ($mode eq 'test3') { &test3;}

&main;

test.cgiにそのままアクセスされたらサブルーチンmainを表示
test.cgi?mode=test1でアクセスされたらサブルーチンtest1を表示したいのですが

実際やってみても全てmainが表示されてしまいます、どうしたらいいんでしょうか。。。

**nobodyさん** · 2006/05/06(土) 17:40:22

age忘れ

**nobodyさん** · 2006/05/06(土) 17:40:52

古い掲示板スクリプトで、

&jcode::sjis($value);

とかやって、外から入ってきたデータの文字コードをshiftjisにしてますが、
これを今のEncodeモジュールを使って表現するとどうなるんでしょうか？

**nobodyさん** · 2006/05/06(土) 18:02:24

>>178
else{ &main; }
サブルーチン名にmainを使ってる点はあえてスルーした

**178** · 2006/05/06(土) 18:14:42

>>181
if ($mode eq 'test1') { &test1; }
elsif ($mode eq 'test2') { &test2; }
elsif ($mode eq 'test3') { &test3;}
else { &main; }

にしたんですが、、やっぱりmainの内容が表示されてしまいます…
$modeの定義方法が悪いのでしょうか…

test.cgi?test1と書いたらtest1の内容がちゃんと表示されました

むー…

**nobodyさん** · 2006/05/06(土) 18:14:56

>>178

>test.cgi?mode=test1

これで test1 が $modeに入るわけないけど、そこらへんの理解は大丈夫だよね？

**nobodyさん** · 2006/05/06(土) 18:16:28

>>168
少し上に調べて理解できた初心者がいるのに、お前が理解できないのはただの怠慢。

**nobodyさん** · 2006/05/06(土) 18:23:04

>>184
嘘を嘘と見抜けない人は(ry

**178** · 2006/05/06(土) 18:23:50

>>183
はあ…確かにそうですよねえ
でもKENT氏のCGIとか見てもよくわからない…

そこらへんの理解が大丈夫そうじゃないですorz

**nobodyさん** · 2006/05/06(土) 18:23:54

あーもう分かったからソース全部どっかのあげてみろや

**178** · 2006/05/06(土) 18:31:07

>>187
http://read.kir.jp/file/read45847.zip
アップしました
表示分岐テスト用に作ってあるだけなので内容は短いです

**nobodyさん** · 2006/05/06(土) 18:33:09

>>188
いきなり

> #$mode = $ENV{'QUERY_STRING'};
に吹いたｗ　何でコメントアウトしてあるんだよｗ

**nobodyさん** · 2006/05/06(土) 18:39:43

ﾜﾛｽ

**178** · 2006/05/06(土) 18:41:01

>>189
それを入れるとtest.cgi?test1になってしまうからですかね…

どうやったら$modeをきちんと認識させられるでしょうか...

**nobodyさん** · 2006/05/06(土) 18:44:54

http://x-web.pobox.ne.jp/fcgi/fcgi_index.html

ここでも音読してなさい
あんまいいサイトとは言えないけど

**nobodyさん** · 2006/05/06(土) 18:46:06

$modeには mode=test1 が入らないか？（試してないから分からんが）
そしたら = でsplitして後は好きなように料理すればいいじゃん

**nobodyさん** · 2006/05/06(土) 18:53:46

use CGI qw(param);

my %mode_map = map { $_ => 1 } qw(test1 test2 test3);
my $mode = param('mode') || '';
$mode_map{$mode} ? $mode->() : main();

これでいい気がする。

**178** · 2006/05/06(土) 18:59:44

>>192
ありがとうございます、参考にしますm(__)m

>>193
ありがとうございます

>>194
ためしにやってみたらできました！

みなさん本当にありがとうございました

これで目的のものを作っていけます

**nobodyさん** · 2006/05/06(土) 19:10:10

>>194
あるかどうか調べるためだけにハッシュを用意するなら>>151でいいじゃん

**nobodyさん** · 2006/05/06(土) 22:10:22

#!/usr/local/bin/perl

$countdat = "count.dat";#カウンターログファイル
$ipdat = "ip.dat";#IPログのファイル

open (IP, "+<$ipdat");
flock(IP, LOCK_SH);

$iplog = <IP>;
$ip = $ENV{ 'REMOTE_ADDR' };

if( $ip eq $iplog ){
seek(IP, 0, 0);
print (IP $ip);
close (IP);
}
else{
open (DATA, "+<$countdat");
flock(DATA, LOCK_SH);

$count = <DATA>;
$count++;

seek (DATA, 0, 0);
print(DATA $count);
close(DATA);

print (IP $ip);
close (IP);
}
exit;

**nobodyさん** · 2006/05/06(土) 22:11:24

IPが重複していたらカウントしないような、カウンターを
作りたくて上記のようにうってみたのですが、エラーが出て
しまい、うまく動作しません。何が間違っているか自分では分からないので
教えてもらえたらと思います。

◆TWARamEjuA · NG

エラーメッセージも何も示されていないのでよく判りませんが、２行目に

use Fcntl qw(:flock);

を入れてみるとか。

**nobodyさん** · 2006/05/06(土) 22:51:37

>>198
エラーってまさか「Internal Server Error」とかじゃないよね・・・？