Perl 初心者コーナー Part23

**nobodyさん** · 03/05/16 11:18

いらっしゃーい、Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

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

最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

CGIだけど、なんか質問ある？ Part 10
http://pc2.2ch.net/test/read.cgi/php/1048686475/
【Perl,CGI】参考書籍第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
CGIに依存しないPerlの話題一般/Part2
http://pc2.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は、【スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

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

**nobodyさん** · 03/05/16 11:18

**nobodyさん** · 03/05/16 11:19

[過去ログ]

Part16 http://pc.2ch.net/php/kako/1032/10320/1032070299.html
part17 http://pc.2ch.net/php/kako/1034/10345/1034583844.html
part18 http://pc.2ch.net/php/kako/1037/10377/1037797479.html
part19 http://pc.2ch.net/php/kako/1042/10422/1042260745.html
part20 http://pc2.2ch.net/php/kako/1044/10447/1044717887.html (タイトルに19と誤記)
part21 http://pc2.2ch.net/php/kako/1047/10479/1047980851.html
part22 http://pc2.2ch.net/test/read.cgi/php/1050369328/l50

[ひまぢん氏のミラー]
Part1　http://www.angelfire.com/ak5/2ch-web-program/kako/957208980.html
Part2　http://www.angelfire.com/ak5/2ch-web-program/kako/971817087.html
Part3　http://www.angelfire.com/ak5/2ch-web-program/kako/979894521.html
Part4　http://www.angelfire.com/ak5/2ch-web-program/kako/984430156.html
Part5　http://www.angelfire.com/ak5/2ch-web-program/kako/988728069.html

**nobodyさん** · 03/05/16 11:20

[総合]
　・Perl Com: http://www.perl.com/pub/
　・CPAN.com: http://search.cpan.org/
　・ActivePerl: http://www.activestate.com/
　・CGI-ML:http://forest.ne.jp/cgi-ml/

[お薦め]
　・Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm　★読んどけ
　・Perl Recipes: http://www.effectiveperl.com/recipes/
　・Randal's WebTechniques columns: http://www.stonehenge.com/merlyn/WebTechniques/
　・Perlの部屋: http://www.cc.rim.or.jp/~midorin/mad-p/perl/index.html
　・Perl初心者の部屋：http://www.harukaze.net/~mishima/perl/
　・Perlリファレンス：http://www.big.or.jp/~mio/ga/pl/plref/pl_ref.htm
　・Perlのページ：http://homepage1.nifty.com/nomenclator/perl/

**nobodyさん** · 03/05/16 11:20

[Document&Tutorial]
　・Perl News: http://www.news.perl.org/
　・Perl Monks: http://www.perlmonks.org/
　・use Perl; : http://use.perl.org/
　・Learn Perl - Perl Education: http://www.devdaily.com/perl/edu/index.shtml
　・Perldoc.com: http://www.perldoc.com/
　・Using Perl5 in Web: http://docs.rinet.ru/Using_Perl5_in_Web/
　・Rex Swain's Home Page: http://www.rexswain.com/
　・Robert's Perl Tutorial: http://www.netcat.co.uk/rob/perl/win32perltut.html
　・Perl Tuts: http://savage.net.au/Perl-tutorials.html
　・Beginning Perl Tutorials: http://www.pageresource.com/cgirec/index2.htm
　・jcode.pl の私的な解説書: http://www.mikeneko.ne.jp/~lab/kcode/jcode.html
　・Logical Choice Software, Home Page: http://www.logsoft.com/perltips/
　・Perlfect Solutions: http://perlfect.com/
　・The Perl Archive : http://www.perlarchive.com/
　・Perl6 & Parrot VM についての情報: http://dev.perl.org/perl6/
　・use Object; : http://perl.infoware.ne.jp/

**nobodyさん** · 03/05/16 11:29

[Module]
　・Perl Module Reference: http://www.bekknet.ad.jp/~bero/docj/module_/
　・PPMPackages: http://www.activestate.com/PPMPackages/
　・河馬屋二千年堂's Page: http://member.nifty.ne.jp/hippo2000/index.htm

[Security]
　・安全なプログラミングのためのガイドライン：http://www.FreeBSD.org/ja/security/#spg
　・Perl security：http://www.perldoc.com/perl5.6/pod/perlsec.html
　・Perl security和訳：http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlsec.html
　・CGI and Security http://www.ansi.co.jp/tech/cgi/security/
　・The Unofficial Web Hack FAQ：http://www.nmrc.org/faqs/www/
　・How to Write Secure Code：http://www.shmoo.com/securecode/
　・Safe CGI Programming ：http://www.improving.org/paulp/cgi-security/safe-cgi.txt

[OS]
　・Linux日本語マニュアル：http://www.linux.or.jp/JM/
　・FreeBSD日本語マニュアル：http://www.jp.freebsd.org/man-jp/

**nobodyさん** · 03/05/16 11:30

　　_n
　（　l　　　　_、_
　＼＼　（ <_,`　）
　　　ヽ___￣￣　）　おちゅかれ。7GET
　　　　　/ 　　/

**nobodyさん** · 03/05/16 13:32

>>1
おつ。

**nobodyさん** · 03/05/16 13:45

ここは一応WebProg板な訳だけれど、
そういう限定は一切無し?

それともperlというと暗にcgiのことで、
web用に使う人しかおらん、という前提だろうか。

**nobodyさん** · 03/05/16 13:52

>>9
は？
どっから引っ張ってきた話？
普通にperlです。

**nobodyさん** · 03/05/16 13:58

>9
Perlについての質問箱 5箱目
ttp://pc2.2ch.net/test/read.cgi/tech/1053053082/

CGIではないPerlの話なら、ム板のスレがいいと思われ。

**nobodyさん** · 03/05/16 14:50

ということは、やはりcgiを主眼に置いてるのかな。

cgi書いたことねえ。

**nobodyさん** · 03/05/16 15:16

tu-ka,「CGIに依存しないPerlの話題一般」ってスレが>>1にあったじゃないか。
見落としていた>11こと俺萎え。

**nobodyさん** · 03/05/16 16:21

んー、cgi以外のスレはどこ? と聞いてる訳ではなくて。
ム板の方では、cgiはWebProgに逝け、と誘導されてる訳で、
その割に、こっちの方では特にcgi向けのスレであることを謳ってない。
というか、むしろperl全般に見えるしcgiに特化した話を排斥する
傾向さえ見られる。

スレのスタンスがよくわかんない、という話。

**nobodyさん** · 03/05/16 16:25

>14
基本的にはCGIでのPerl話題。
WebProg板だからな。

CGIに特化した話を排斥しているように見えるのは、その話題がほぼ必ず
「コーディングの話題じゃない」からだ。
つまり、「CGIとしてPerlを使う時のコーディングの話題」のスレってことだ。
確かにスレタイや>>1を見ただけではわかりにくいかもな。

**nobodyさん** · 03/05/16 16:39

新参者ばっかだな。
ム板のPerlスレは、いつもるびきちやらにwebprog行けって
言われて、前の（前の）スレは、あいつに荒らされでぽしゃった。
だから、CGIじゃないPerlの話題もこっちが主流だった。
こっちじゃ、CGIのスレがあるから、Perl初心者コーナーは、
CGI以外のPerlについて話す場所にしようとみんなでしてた。
前の前のスレの＞＞１を見れば分かる。
でも、るびきちの荒らしがなくなったので、まあ、CGIでも
CGI以外でもPerlのコーディングに関するものなら、いいんじゃ
ないか。高度なのは、ム板、比較的簡単なのは、こっちで
どうかな。

**nobodyさん** · 03/05/16 17:40

%mode2name = (
　　'sql_arrange' => "顧客絞込み条件の入力",
　　'select' => "該当顧客の閲覧",
　　'writemail' => "メールの記入"
);

foreach $value (keys %mode2name){
　　$HtmlTmp .= qq|$mode2name → |;
}

print $HtmlTmp;

とやると、　
「該当顧客の閲覧 → メールの記入 → 顧客絞込み条件の入力 → 」
と表示されます。

これを、%mode2name = で設定した順番、つまり、
「顧客絞込み条件の入力 → 該当顧客の閲覧 → メールの記入」
と表示させるには、

foreachの部分はどう書けばいいのでしょうか？

**nobodyさん** · 03/05/16 17:51

>>17
ハッシュは代入された順番を保持できないよ。（どういう順番で記録されるかは不定）
順番を保持させたいならリストを使うべし。

**nobodyさん** · 03/05/16 17:56

>>17
foreach $value ('sql_arrange','select','writemail'){
　　$HtmlTmp .= qq|$mode2name{$value} → |;
}

**nobodyさん** · 03/05/16 18:20

>>17
ハッシュに入っているキーの量が少ない(メールフォーム程度)なら、
キーに01,02等の通し番号を(キーの頭に)付けておいて、
foreach $key (sort keys %hash)
する手がある。表示もcgiでやるならsprintfして出力するだけだから簡単。
場当たり的なのが欠点。

perl cookbookにはTie::IxHashモジュールを使えとある。
こっちの方がたぶん正道のような気もするが、使ったことないので要調査ということで。

17 · 03/05/16 19:01

>>19
頭いい！？と思ったが、
ちょっとそれは気持ち悪い。。。

>>20
とりあえず、
＞キーに01,02等の通し番号を(キーの頭に)付けておいて
でやってみます

**nobodyさん** · 03/05/16 23:42

%mode2name = (
　　'sql_arrange' => ["01","顧客絞込み条件の入力"],
　　'select' => ["02","該当顧客の閲覧"],
　　'writemail' => ["03","メールの記入"]
);
で、1項目目でソートしたキーを入れるに入れて
foreach ( @hoge ) {
$ref = $mode2name{$_};
$.... .= "$ref->[1]";
}
見たいな感じでいけないかな。実際に動かしてないからちびっと不安

**nobodyさん** · 03/05/16 23:43

入れるに入れて→配列に入れて

**nobodyさん** · 03/05/17 00:51

複数のファイルのデータをソートするにはどうすれば？
データの構成は一緒なんですが。

@date = @date[sort {$tmp1[$b] <=> $tmp1[$a] || $tmp2[$b] <=> $tmp2[$a] || $tmp3[$b] <=> $tmp3[$a] || $tmp4[$b] <=> $tmp4[$a]} 0 .. $#tmp1];
@date2 = @date2[sort {$tmp1[$b] <=> $tmp1[$a] || $tmp2[$b] <=> $tmp2[$a] || $tmp3[$b] <=> $tmp3[$a] || $tmp4[$b] <=> $tmp4[$a]} 0 .. $#tmp1];

これでは別々になってしまうし・・・

**nobodyさん** · 03/05/17 01:02

>>24
両方のファイルを結合してソートすればいいんじゃないの？

**nobodyさん** · 03/05/17 07:15

perlって
ほにゃらら if ほげほげ
ってかきかたはできるみたいですが、
これにelseの意味も加えた１行の書き方ってないですか？

**nobodyさん** · 03/05/17 07:20

優れたソース見て勉強したいんですが、
初心者が見て勉強になるソースってどれでしょうか？

**nobodyさん** · 03/05/17 07:26

>>26
三項演算子かな

>>27
動物シリーズ

**nobodyさん** · 03/05/17 08:08

おすすめサイト一覧です☆
http://accessplus.jp/staff/in.cgi?id=10645
http://www.39001.com/cgi-bin/cpc/gateway.cgi?id=neat
http://www.emzshop.com/goodstyle/
http://members.tripod.co.jp/neatstyle/index.html.html

**nobodyさん** · 03/05/17 10:38

エロ嫌いならクリックしなきゃいいじゃん。
http://accessplus.jp/staff/in.cgi?id=11141
ﾌﾟﾆｭ　（ﾟ∀ﾟ）σ)´Д｀)

**nobodyさん** · 03/05/17 10:55

http://sapporo.cool.ne.jp/kitahama/

**nobodyさん** · 03/05/17 14:49

2つのファイルを比較して違う行を出したいんだけど、
こんなののほかに何かいいのありますかね。
open(FILE1, "test1.txt") or die "$!\n";
@file1 = <FILE1>;
close FILE1;
open(FILE2, "test2.txt") or die "$!\n";
while(<FILE2>) {
print $_ unless grep($_, @file1);
}
close FILE2;
よろしうお願い島。

**nobodyさん** · 03/05/17 14:57

ファイルを一つだけ開く、というのが気持ち悪い
開くなら開く。読み込むなら読み込む。

**nobodyさん** · 03/05/17 15:03

open(DIFF, "diff test1.txt test2.txt|")

**nobodyさん** · 03/05/17 15:10

>>33
つうことは、（１）開くなら開く:
open(FILE1, "test1.txt") or die "$!\n";
@file1 = <FILE1>;
close FILE1;
open(FILE2, "test2.txt") or die "$!\n";
@file2 = <FILE2>;
close FILE2;
for(@file1) {
print $_ unless grep($_, @file2);
}
とか、（２）読み込むなら読み込む:
open(FILE1, "test1.txt") or die "$!\n";
open(FILE2, "test2.txt") or die "$!\n";
while(<FILE1>) {
$this = $_;
while(<FILE2>) {
print unless $_ eq $this;
}
}
close FILE1, FILE2;
とか？（２）は、ちょっとばかばかしいしぃ。

**nobodyさん** · 03/05/17 15:10

>>34
ありがとん。でもdiffは、使わないでってことで。

**nobodyさん** · 03/05/17 15:13

>>32,35
grep(/^$_$/, ..)にしなきゃだめですた。

**nobodyさん** · 03/05/17 15:40

すみません。クソみたいな質問します。
自分でもクソ質問って分かってるけど、なぜか思うように動かないのです。

$pattern[0] = "あああ.30";
($test_1, $test_2) = split("\.", $pattern[0]);
print "$test_1\n";

なぜか代入されない。不思議。

**nobodyさん** · 03/05/17 15:45

>>38
($test_1, $test_2) = split("\.", $pattern[0]);
↓
($test_1, $test_2) = split (/\./, $pattern[0]);

不思議。

38 · 03/05/17 16:14

>>39
それだとうまく行きました。

不思議。

**nobodyさん** · 03/05/17 16:16

それだと、、って。
そういうもんだろ。

不思議。

38 · 03/05/17 16:21

@age = split("\," , $data{'age'});
($decode_name, $decode_value) = split("=",$decode_pair);

上の二つは正常に作動してるから、
($test_1, $test_2) = split("\.", $pattern[0]);
これも正常に作動すると思ったんだけど…。

しなっかったのよ。
不思議。

**nobodyさん** · 03/05/17 16:32

>>42
＞上の二つは正常に作動してるから、
正常って何だよ。異常だろ。

http://flex.ee.uec.ac.jp/texi/perl/perl_56.html

**nobodyさん** · 03/05/17 16:39

split って /re/ じゃなくても動くよな。

**nobodyさん** · 03/05/17 16:41

省略記述で / / を省ける時や、別の文字を書ける時があったような気がする。
条件は忘れた。

**nobodyさん** · 03/05/17 16:42

代入演算子について質問です｡
||=や<<=などの代入演算子について知りたいのでつが、"代入演算子"でぐぐっても=や.=、+=くらいの一般的(といっていいのか疑問でつが)な代入演算子を解説しているサイトしかヒットしません｡
代入演算子について詳しく解説してあるサイトをご存知な方はURLを貼り付けてください｡
おながいしまつ。

**nobodyさん** · 03/05/17 16:46

>>42
区切りに使う文字によって　""　’’　//　に違いが出るの
//が無難かもね

**nobodyさん** · 03/05/17 16:51

>>46
難しく考えなくていいんでないの？
$a ||= &b;
は
$a = $a || $b;
ってだけでしょ。
仮に、$a=0,$b=1 だったら、
右辺の結果、真になるので、$a=1となるだけ。

**nobodyさん** · 03/05/17 16:52

$a ||= &b;
↓
$a ||= $b;

**nobodyさん** · 03/05/17 16:55

>>46
こんなのは？
ttp://www.big.or.jp/~mio/ga/pl/plman/ploper.htm

38 · 03/05/17 16:56

なるほど。
perlは妙な落とし穴が多いですね…。
実はperl独特の落とし穴（？）に何回もはまってます。

ありがとうございました。

46 · 03/05/17 17:43

ありがとうございますた。
助かりますた｡

**nobodyさん** · 03/05/17 17:45

>>42
splitの1つ目の引数に渡せるものは、「正規表現」か「文字列」。
文字列が渡されれば、それを正規表現と解釈する。だから、これらはすべて同じ動作。

split /\./
split m/\./
split qr/\./

split "\\."
split '\\.'
split qq/\\./
split q/\\./

**nobodyさん** · 03/05/17 17:58

>>53
文字列時は \\. になるのは盲点だなー。
勉強になたよ。

38 · 03/05/17 18:06

なぜ\\になるのかが…分からん。
q[\\.]って超不思議なんだけど。

ですが、俺に中では「気にしない」と言う方向で落ちつきました。
ありがとです。

**nobodyさん** · 03/05/17 18:23

データのエンコードですが。。。
よく引数でtext=%82%A0%82%A2%82%A4%82%A6%82%A8っていう％に続く2桁の16進数でデータが渡りますよね｡
デコードするには
$value =~ s/ %( [a-fA-F0-9][a-fA-F0-9] ) / pack ( "C" , hex ($1) ) / eg ;
ですよね。
あえて日本語を％に続く2桁の16進数にエンコードするにはどうするにはどうすればいいのですか？
データを送って自動でエンコードされたのを取り出すのはなしってことでお願いします｡

**nobodyさん** · 03/05/17 18:35

>>56
$encode = join('',map{　s/(\W)/'%' . unpack('H2', $1)/eg;　} split(//,$data));

コレでどうやろ？

**nobodyさん** · 03/05/17 19:07

PHPにはurlencode urldecodeっていう関数あるから
Perlでそれを作ってもいいかもね

あいうえお
%82%A0%82%A2%82%A4%82%A6%82%A8
あいうえお
---

$a = 'あいうえお';
print("$a\n");
$a = urlencode($a);
print("$a\n");
$a = urldecode($a);
print("$a\n");

sub urlencode{
my $str = $_[0];
$str =~ s/([^\.\*\-_a-zA-Z0-9 ])/sprintf("%%%02lX",unpack("C",$1))/eg;
$str =~ tr/ /+/;
return $str;
}

sub urldecode{
my $str = $_[0];
$str =~ tr/+/ /;
$str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
return $str;
}

56 · 03/05/17 19:38

>>57さん。
ダメです｡
”あいうえお”が”1111111111”になってしまいます。

>>58さん。
これでうまくいきました｡
ありがとうございました。

**nobodyさん** · 03/05/17 20:22

前スレで、perlで描画しようとしたら、1001に達していて、
書き込めませんでした。皆さん、以下のスクリプト実行してみて。

@perl=qw(ＰＥＲＬＰｅｒｌｐｅｒｌ PERL Perl perl);
for(0 .. $#perl) {
@tmp=@perl;
print join('、', splice(@tmp, $_)), "\n";
}
@mansei=split(//, 'perl');
for(1 .. $#mansei) {
@tmp=@mansei;
print splice(@tmp, $_), "\n";
}
for($i=$#mansei; $i>0; $i--) {
@tmp=@mansei;
print splice(@tmp, $i), "\n";
}
for ($i=$#perl; $i>=0; $i--) {
@tmp=@perl;
print join('、', reverse(splice(@tmp, $i))), "\n";
}

もっとうまく書けるかな？

**nobodyさん** · 03/05/17 20:37

あれは、書いてるうちに埋まってしまう、というのが
面白かったのに。

**nobodyさん** · 03/05/17 21:14

　　　　　　　　正直、スマンカッタ！！
　　　　　＼＼　正直、スマンカッタ！！　／／
　+　　　+　＼＼　正直、スマンカッタ！！／+
　　　　　.　　＿＿＿　.　＿＿＿　　. ＿＿＿　　　+
　　　　　　 /. ――┤　 /. ――┤ . /. ――┤+
　　　　　　./(. 　= ,= |　./(. 　= ,= |　./(. 　= ,= |
　+　　.　　|||＼┏┓∩|||＼ ┏┓∩|||＼┏┓/　　+
　　　（(　　（つ　　　ノ　（つ　　丿（つ　　　つ　)）
　　　　　　ヽ　（　ﾉ　　（　ヽノ　　　）　）　）
　　　　　　（＿）し　　　し（＿）　　（＿_）＿_）

**nobodyさん** · 03/05/17 21:47

@t=@p=qw(ＰＥＲＬＰｅｒｌｐｅｒｌ PERL Perl perl);
sub p{print join(', ',@_),"\n"}
p(shift@t,@t)while@t;
print substr($p[-1], -abs),"\n"for 3,2,1,2,3;
p(@t=(@t,$t))while$t=pop@p;

**nobodyさん** · 03/05/17 22:04

「_」以外に、エンコードされない文字列というものはありますか？
漠然とした質問ですみません。

58 · 03/05/17 22:07

>>64
.*-_a-zA-Z0-9
以外はエンコードされる

**nobodyさん** · 03/05/17 22:17

>>63
/おみご./

**nobodyさん** · 03/05/17 22:17

おすすめサイト一覧だよ☆
http://accessplus.jp/staff/in.cgi?id=10645
http://www.39001.com/cgi-bin/cpc/gateway.cgi?id=neat
http://www.emzshop.com/goodstyle/

**nobodyさん** · 03/05/17 22:37

6桁ぐらいのユニークな番号を作成する方法ってありますか？

**nobodyさん** · 03/05/17 22:42

>>68
これじゃあ？
print sprintf("%06d\n", rand(999999));

**nobodyさん** · 03/05/17 22:43

ユニークである保証が無い

**nobodyさん** · 03/05/17 22:44

＞68
$ユニークな番号 = int(rand(900000))+100000;

71 · 03/05/17 22:46

68 == 70
と仮定してみる
ナニをもってユニークとするのか聞きたいところだ

**nobodyさん** · 03/05/17 22:56

超笑ったんですけど。よかった。

**nobodyさん** · 03/05/17 23:04

>>65
_はエンコードされないですよね？

**nobodyさん** · 03/05/17 23:07

>>65
ああ、すみません、_も入ってましたね。
しかし、
.*-
は
%2e%2a%2d
とエンコードされますよね？

**bloom** · 03/05/17 23:08

http://homepage.mac.com/ayaya16/

**nobodyさん** · 03/05/17 23:17

68 != 70 なんだけどね
そら、発生は一回じゃなくて、最高999999回発生させるんでしょ。
そのそれぞれが、過去に発生させた数字と重複していないことが
保証されている生成方法

って、全検するしかない気もするな

**nobodyさん** · 03/05/17 23:40

>>77
完全にユニークは無理
かなりの確率でユニークであると仮定するぐらいがいいとこ

**nobodyさん** · 03/05/17 23:51

ハッシュ使ってkeysがundefならば重複してないわけだが？

**nobodyさん** · 03/05/17 23:54

$num++

**nobodyさん** · 03/05/17 23:54

tu-ka,何の目的で使うかによってやり方も変わりそうなもんだが。

**nobodyさん** · 03/05/18 00:06

質問。

まず、環境はウィンドウズ98です。
ファイルの読み書き追記モード(open(OUT, "+<file.txt");)で，
読み込みと書き込みを同時に行おうと思ってますが、
truncateが使用不可能なため、
seek(OUT,0,0);
truncate(OUT,0);
print OUT $a;
の手法が使えません。
truncateの変わりになる方法を教えてください。
かなり調べたんですが、わかりませんでした。

**nobodyさん** · 03/05/18 00:08

書き込みモードで開く。

**nobodyさん** · 03/05/18 00:10

> 読み込みと書き込みを同時に行おうと
思ってます。

終点のtell(OUT)以下を削除する方法です。

**nobodyさん** · 03/05/18 00:10

ヒマなんで作ってみた
@seed = (0 .. 99);
my %seed;
sub init{#初期化
for(0 .. $#seed){
$seed{$_} = $_;
}
}

sub select{#取り出し
my $num = $seed{int(rand(scalar(keys(%seed))))};
delete $seed{$num};
return($num);
}

&init;
$uniq_num = &select;　#コレを繰り返しとな・・・

85 · 03/05/18 00:12

>>85 訂正
my %seed;
sub init{#初期化
for(0 .. $#seed){
$seed{$_} = $seed[$_];
}
}

**nobodyさん** · 03/05/18 00:13

gensym

**nobodyさん** · 03/05/18 00:18

>>82
＞seek(OUT,0,0);
これじゃ追記じゃなく上書きじゃないか

**nobodyさん** · 03/05/18 00:21

>>88
読み込んだ内容を編集して上書きしたいと思ってます。

**nobodyさん** · 03/05/18 00:21

>>82
open(OUT, "+>>file.txt");

**nobodyさん** · 03/05/18 00:22

>>89
http://www.rfs.jp/sitebuilder/perl/05/03.html#open

**nobodyさん** · 03/05/18 00:25

>>90 >>91
色々助言いただいてありがとうございます。
いじくってみます。

**nobodyさん** · 03/05/18 00:26

>>92
っていうか、Win98で鯖を立てることが間違っているのでは

**nobodyさん** · 03/05/18 00:29

質問させてもらいます。
自作関数で、引数が不正の場合に、
Perlの文法チェックでエラーを出力させたいのですが、
方法がわかりません・・・
どうすれば文法チェック時に引数のチェックができ、エラーを出せますか？

**nobodyさん** · 03/05/18 00:37

>>77
@dat0 = @dat1 = ();
foreach(0 .. 999999){ $dat0[$_] = $_; }
foreach(0 .. 999999){ $dat1[$_] = splice(@dat0,rand($#dat0),1); }
ではだめ？

**nobodyさん** · 03/05/18 00:41

>>94
ほっといてもSyntaxErrorになるだろ
不正かどうかのエラー処理はプログラマの責任でやるもの

**nobodyさん** · 03/05/18 00:51

>>94
プロトタイプ宣言しろ。

>>96
うぉい。

85 · 03/05/18 01:05

ハッシュだと駄目だな・・・

@seed = (0 .. 10);

sub select{#取り出し
　　my $key = int(rand(scalar(@seed)));
　　my $num = $seed[$key];
　　splice(@seed,$key,1);
　　return($num);
}

$data = &select;

**nobodyさん** · 03/05/18 01:09

>>95
なぜ、そんな巨大な配列を作るんだ？
コストがかかってしかたないと思うが・・・
普通にfor文でぶん回せば良いと思うのだが・・・

**nobodyさん** · 03/05/18 01:28

１００げと

**nobodyさん** · 03/05/18 01:43

おすすめサイト一覧です☆
http://accessplus.jp/staff/in.cgi?id=10645
http://www.39001.com/cgi-bin/cpc/gateway.cgi?id=neat
http://www.emzshop.com/goodstyle/

**nobodyさん** · 03/05/18 01:53

srand();
my @salts = ( "A".."Z", "a".."z", "0".."9", ".", "/" );
my $salt = $salts[int(rand(64))] . $salts[int(rand(64))];

$crypt = crypt($str, $salt);

こういうルーチンだと、暗号化文字列内に「_」は絶対含まれ
ないですよね？

**nobodyさん** · 03/05/18 01:55

1kbのファイル10個を１つずつopenしてprintしてcloseするのと、
10kbのファイルをopenしてprintしてcloseするのは
どっちが処理に時間がかかるのでしょうか？

**nobodyさん** · 03/05/18 01:59

だんぜん前者

**nobodyさん** · 03/05/18 03:23

>>102
どんなルーチンかは関係なくcryptの戻り値に「_」が含まれることはない
そもそも、そのルーチンってsaltをランダムにしてるだけじゃないの

83 · 03/05/18 05:27

>>84
改めて開くんだよ。それくらい理解しろよ。

**nobodyさん** · 03/05/18 05:30

>>93
>>82は鯖を立てているとは言っていないんだが。

**nobodyさん** · 03/05/18 06:12

>>105
ボケボケでした。ご指摘有難うございます。
貴重なご返答有難うございました。

**nobodyさん** · 03/05/18 07:34

ム板から追い出されてしまいました･･。

すみません、質問です。
csvファイルの一番上から順に1レコード読み込んで、$idと$keycodeが等しければ
それぞれ変数に代入する、という検索の部分なのですが、$idが奇数、又は偶数だ
と（csvファイルのレコード数が奇数か偶数かによる）検索失敗しまいます。
尚、$data = <IN>;の部分は、手元の本だと$data =　$_;になっています。これだと
全く代入されません。
csvファイルに問題は無いと思います。お願いします。

$match = 0;
open IN,"log.csv";
while((<IN>)and($match == 0)){
$data = <IN>;
chop $data;
($keycode) = split(/\,/,$data);
if($keycode == $id){
($keycode,$flg,$mailadd,$name,$title,$comment) = split(/\,/,$data);
$match = 1;
}
}
close IN;

**nobodyさん** · 03/05/18 07:40

尼寺へ行け

**nobodyさん** · 03/05/18 07:43

っていうか、while(<IN>) の中でなんでまた<IN>を読んでるの?

**nobodyさん** · 03/05/18 08:04

>>111
仕様です。

**nobodyさん** · 03/05/18 08:18

>>109
これでどうだ？ $id($keycode)は1バイトであるという前提。
ちなみに見つからない場合は$keycodeが未定義になる。

undef $keycode;
open(IN, "log.csv") or die;
while (<IN>) { chomp; /^$id/ and last }
($keycode, $flg, $mailadd, $name, $title, $comment) = split /,/ if $_;
close(IN);

**nobodyさん** · 03/05/18 10:11

>>113
whileのなかでchompする意味なし

**nobodyさん** · 03/05/18 10:40

>>109
>手元の本だと
タイトル希望。

**nobodyさん** · 03/05/18 12:35

>>114
そうでもないぞといってみる。

**nobodyさん** · 03/05/18 13:06

文字列を暗号化してファイルに記録したいんだけど、
どんな方法がありますか？

**nobodyさん** · 03/05/18 13:24

暗号になってればいいだけならmd5とか

**nobodyさん** · 03/05/18 13:34

>>109
俺も本のタイトルが知りたい。どんな糞かと。

**nobodyさん** · 03/05/18 14:23

CGIの本はいっぱい出てるからね

**113** · 03/05/18 15:56

>>114
その通りなんだが、splitを無理矢理1行で書きたかったんでああなった。
実行効率を考えたら、ループの外でやったほうがいいね。
添削ｻﾝｸｽ

**nobodyさん** · 03/05/18 16:06

文字列の中から特定の文字がいくつあるか判定したいのですが、

$count += ($com =~s/test//g);
このような方法しか思いつきません。
もっとスマートなやり方を教えて頂けないでしょうか？

**nobodyさん** · 03/05/18 16:25

>>122
それ以上スマートな方法があるのかと。
と言うか、君の言うスマートってどんな意味？

**nobodyさん** · 03/05/18 16:33

>>122
１文字だけのカウントなら tr/文字/文字/ というのがあるけど、
文字列だとそれが一番シンプルにできるんじゃない？

**nobodyさん** · 03/05/18 18:07

perlの正規表現についてくわしく説明されているサイトってありませんか？

**nobodyさん** · 03/05/18 18:12

>>125
そのぐらい探せよ・・・

**nobodyさん** · 03/05/18 18:21

★大人になってから★
http://yahooo.s2.x-beat.com/linkvp/linkvp.html

**nobodyさん** · 03/05/18 18:33

>>125
http://www.din.or.jp/~ohzaki/regex.htm
http://www5a.biglobe.ne.jp/~n_rieko/perl/8.htm

**nobodyさん** · 03/05/18 18:47

>>125
当然Google等で調べたんでしょう。
その結果どのページを見ても理解できなかった、と。
諦めなさい。君には無理だ。

**nobodyさん** · 03/05/18 18:49

>>123-124
置き換えを使わずにできるかと思ってました。
$count += ($com =~/test/g); とか・・・
レスして下さってありがとうございます。

**nobodyさん** · 03/05/18 19:25

@lines[0..1000] = `"/usr/local/bin/wget" -q -O - $URL` or die;

こんな事してるんですがどうやら$URLが長いと途中でちょん切れるようです。
"11223344556677889900"　→　"11223344556677889"
解決できますか？

**nobodyさん** · 03/05/18 21:57

>>130
できるよ
$count++ while $com =~/test/g;

**109** · 03/05/18 22:15

レスありがとうございます。
＞111
$data = <IN>; の部分のことでしょうか？
本では$data = $_;となっていますが、これだと全く代入されません。
自分で書き直しました。
マッチしてるかどうか調べる処理の前に余計に読み込んでいるから
交互に検索失敗･成功してしまうのでしょうか？

＞113
ありがとうございます。試してみます。
尚、$keycode、$IDともに2桁以上の場合があります。

**nobodyさん** · 03/05/18 22:29

思った事。
>>1-10
のところに、かなり良いサイト書いてある事に今さら気付いた。
十分立派なリンク集。

**nobodyさん** · 03/05/18 23:00

でも質問するやつは絶対に見ないから大して役に立たないリンク集

**nobodyさん** · 03/05/18 23:07

I will use Google before asking dumb questions.

**131** · 03/05/18 23:08

@lines[0..1000] = `/usr/local/bin/wget -q -O - $URL` or die;
の間違いでした、すみません。

$URLの文字数が59ぐらいまでは大丈夫なんですが、68になるとダメです。

**134** · 03/05/18 23:11

>>135
日本語サイトを順番に見ていってるけど、グット！
大変有益な情報が書いてある。読んでて面白かった。
（知ってるサイトが多かったけど）

**nobodyさん** · 03/05/19 01:05

open(FILE, "+< $logfile");
@data = <FILE>;
unshift(@data,"$year年$mon月$day日(@youbi[$wdy]),$hour時$min分$sec秒\n","$referer\n","$host\n","$ENV{'REMOTE_ADDR'}\n","$ENV{'HTTP_USER_AGENT'}\n\n");
flock(FILE,2);
seek(FILE,0,0);
print(FILE "@data\n");
flock(FILE,8);
close(FILE);

こういうアクセスログをつかってるんですけど、
datファイルは最初の行以外に半角スペースができるのですが、なぜでしょう？

**動画直リン** · 03/05/19 01:08

http://homepage.mac.com/hitomi18/

**nobodyさん** · 03/05/19 01:11

>>139
print(FILE "@data\n");

**nobodyさん** · 03/05/19 01:12

>>139
>print(FILE "@data\n");

""の中でリストを展開すると、リストの各要素が" "（半角スペース）で区切られて
出力されるから。
print(FILE, @data); のようにすれば大丈夫なはず。

_ · 03/05/19 01:12

**nobodyさん** · 03/05/19 01:13

>>141
え？どういうことでしょうか？

**142** · 03/05/19 01:13

間違えた。FILE の直後の , は不要だった。ｽﾏｿ

**nobodyさん** · 03/05/19 01:14

>>142
できました。ありがとうございました。

**nobodyさん** · 03/05/19 10:32

#------------------------------------------------------------
&HtmlError($errormessage); #$errormessage自体はEUC

sub HtmlError($HtmlErrormessage){
my $HtmlErrormessage = $_[0];
&jcode::convert(*HtmlErrormessage, "sjis");
print $HtmlErrormessage;
exit;
}

#------------------------------------------------------------
が、なぜかEUCでブラウザに出力されてしまいます。
ずーっと見て悩んでたのですが、わかりません。
どこがいけないのでしょうか？

なお、下記はちゃんとSJISで出力されます。（あたりまえですが）
まさか、関数に文字を引き渡すことと、文字コードって関係あるんでしょうか？
（だとしても、ちゃんとprintする直前にsjisに変換してるし・・・）

&jcode::convert(*errormessage, "sjis");
print $errormessage;

**nobodyさん** · 03/05/19 11:05

>>147
＞&jcode::convert(*HtmlErrormessage, "sjis");
レキシカル変数では型グロブは使えない

&jcode::convert(\$HtmlErrormessage, "sjis");

**147** · 03/05/19 11:08

>>148
あいや、まったく未知でした。ありがとうございます。

**nobodyさん** · 03/05/19 11:13

>>149
つか、なんでjcodeを古いやり方で使ってる奴ばっかなの？
しかもなんか中途半端に::で区切ってるし。

**nobodyさん** · 03/05/19 11:48

(　´･∀･`)へｰ

**nobodyさん** · 03/05/19 12:18

>>150
配布されてるCGIがそう書いてるのを真似してるのかもね。
で、ライブラリの書式が変わったのは理解できても、型グロブのほうは理解できないので
そのまんま。とりあえず動くからいいや、みたいな。

**nobodyさん** · 03/05/19 12:21

>>150
（　・∀・）つへぇ～へぇ～へぇ～へぇ～へぇ～へぇ～へぇ～

**147** · 03/05/19 12:26

>>152
ビンゴ。

**nobodyさん** · 03/05/19 12:26

if (条件式) に使う条件式で、
同じ条件式を何回もいろんなところで使っているのですが、
こういう条件式自体を変数みたいに？１箇所にまとめることって可能なのでしょうか？

**nobodyさん** · 03/05/19 12:34

>>155
可能。

**nobodyさん** · 03/05/19 12:41

どうしたらいいか聞けよ。
$hoge = "doredore";
if (&matomere) {print "Ok!\n";}
sub matomere { return '$hoge =~ /ahodoredorebaka/' }

**nobodyさん** · 03/05/19 12:59

これだけヒント与えたのに自分で解決できないのか。ほれ。
$hoge = "doredore";
if (&matomere) {print "Ok!\n";}
sub matomere {if ($hoge =~ /ahodoredorebaka/) {return 1;} else {return 0; }}
#if ($hoge =~ /ahodoredorebaka/) {print "OK!\n";}

**nobodyさん** · 03/05/19 13:03

メールアドレスって
日本語氏名 <foo@bar.com>
ってなっていることがありますよね。

ここからメールアドレス部（foo@bar.com)のみを正確に取り出したいのです。
この処理を行ってくれるperlモジュールをご存じの方いませんか？

**nobodyさん** · 03/05/19 13:06

#mailaddr.pm
$mailaddr=~s/(.+)</$1/;

**nobodyさん** · 03/05/19 13:11

うまく行かない場合はうまく行かないと言え。
$mailaddr=~s/.+<(.+?>/$1/;

**nobodyさん** · 03/05/19 14:55

($address) = $str =~ /<(.+)>/;
なるべくロングに取得

**nobodyさん** · 03/05/19 15:03

>>132
そのような方法があるとは思いつきませんでした・・・
ありがとうございます！

**nobodyさん** · 03/05/19 15:16

>>157の方法だと、

our $hoge = "doredore";
if (eval matomere()) {print "Ok!\n";}
sub matomere { return '$hoge =~ /ahodoredorebaka/' }

(気持ち悪い)

>>158は冗長。
sub matomere {$hoge =~ /ahodoredorebaka/}
これでいい。

でも、こういう関数は一部でしか使わないだろうから、ローカル関数化する。
local *matomare = sub { $hoge =~ /ahodoredorebaka/ }
こうしましょう。

**nobodyさん** · 03/05/19 15:17

おっと。セミコロンが必要。
local *matomare = sub { $hoge =~ /ahodoredorebaka/ };

**nobodyさん** · 03/05/19 15:26

同じ条件式っていうことはその結果は決まってるはずだな。

多分、、質問はそういう意味ではなくて、、むむむ、クロージャーか。

my $expr = sub {
my $hoge = shift;
return $hoge =~ /hogehoge/;
}
print 'TRUE' if $expr->('hogehogehoge');

こうしたいのか?

**159** · 03/05/19 15:37

>>160
ありがとうございます。でも機能しません。（"<"が一つ取れるだけ）

>>161
ありがとうございます。でもシンタックスエラーです。

>>162
ありがとうございます。動きました。

**nobodyさん** · 03/05/19 16:34

>>75

超遅ﾚｽで申し訳ないが。。
その文字がｴﾝｺｰﾄﾞされて送信されてくるかどうかは
実はｸﾗｲｱﾝﾄ(ﾌﾞﾗｳｻﾞ)に依存する罠・・・

昔携帯向けのｻｲﾄを作ったときﾊﾏｯﾀ。
i-modeではｴﾝｺｰﾄﾞされないのにJ-skyではｴﾝｺｰﾄﾞされて来て
気が付くのに2晩かかったよ。

全てのｸｴﾘｰｽﾄﾘﾝｸﾞをﾃﾞｺｰﾄﾞくぐらせるのが吉。。。

**131** · 03/05/19 16:36

>>137はやはり無理なのでしょうか。

**Perl/CGI** · 03/05/19 18:04

CGIで、ファイルに書き込みしたいのに、どうしてもこのopen行が原因でエラーになります。
本とかで調べてもあってるはずなのになんでおかしいのでしょうか。

open(INIFILE,"+<$fileini");
close(INIFILE);
ローカルでこの行が入ってるファイルをテストしてみたら、
Unterminated <> operator
というエラーがでてとまってしまうんです。
この行を含まなかったらぜんぜん問題なしなんですけど、この行で全部とまってしまってるんです。
このエラーはいったいどう対処したらいいのか、そしてどう改善すればいいのか教えていただけないでしょうか？

**nobodyさん** · 03/05/19 19:58

>>169
おまえな、それが一体どこがPerlの質問なんだよ。
いい加減気付けよ。

**nobodyさん** · 03/05/19 20:06

>>170
それはファイルを読み書き両方ができるようにオープンしているようだが、
ファイルハンドルから察するに読み込むだけでいいんではないか？

なら、
open ( IN, $file );
open ( IN, "<$file" );
のどちらかで済む話じゃないか？

まあ、フリーのスクリプトか自作かは知らんが、前後の状況がわからんからこれ以上はいえないが。

**131** · 03/05/19 20:24

>>171
すいませんでした・・・

**nobodyさん** · 03/05/19 20:26

>172
INFILEじゃなくてINIFILEだから書き換えたりもするんじゃない？

**nobodyさん** · 03/05/19 20:30

>170
ttp://www.google.com/search?as_q=Perl+Unterminated+%3C%3E+operator+&num=100&hl=ja&ie=UTF-8&oe=UTF-8&btnG=Google+%E6%A4%9C%E7%B4%A2&as_epq=&as_oq=&as_eq=&lr=lang_ja&as_ft=i&as_filetype=&as_qdr=all&as_occt=any&as_dt=i&as_sitesearch=

その前の文で"の閉じ忘れとかないか？

**nobodyさん** · 03/05/19 20:58

質問させていただきます。

$IPAD = $ENV{'REMOTE_ADDR'}
などとして得たアドレスを2進数に変換したいのです、ご指導お願いします。

例えばアクセスした人のアドレスが
202.213.37.74だった場合、
11001010110101010010010101001010
という風に変換させたいのですが、perlでスッキリかくには
どのようにすればいいのでしょうか？

お手すきな方、宜しくご指導お願いします。

**nobodyさん** · 03/05/19 21:36

>>176
$num="202";
$bits = unpack "B8", chr($num); # $bits=11001010

**nobodyさん** · 03/05/19 21:45

>>176
参考に
http://www.mikeneko.ne.jp/~lab/perl/numerical_transform/

**nobodyさん** · 03/05/19 21:54

>>176
$bits = join('', map { unpack('B*', chr) } split(/\./, $IPAD) );

**176** · 03/05/19 22:53

>>177-179
ご指導ありがとうございます。

>>178のページを参考に自分でやって成功したのですが、
>>179さんの方がスッキリしてるので、こちらを使わせていただきます。
助かりました、ありがとうございます。

**nobodyさん** · 03/05/20 05:07

現在perlでRPG作ってます。CGIで相手端末は携帯です。
データは全てサーバーに保存させています。

で、ちょっと効率の良い処理が思いつかないので質問に来ました。
まず、
●武器などのデータはテキストでデータ保存した方が良いでしょうか？
●それとも、perl記述内で武器の効果や、強さ、金額などを直接定義したほうが良いでしょうか？

また、武器によって攻撃力が変わるわけですが、
●起動ごとに攻撃力を算出させた方が良いでしょうか？
●それとも算出された攻撃力はそのままテキストデータに保存してしまった方が良いでしょうか？
俺としては前者のほうが、バグが出にくく、管理もしやすいのですが負荷が多くかかりそうな気がします。

俺は、プログラム経験が浅いのでこの辺の判断がつきません。汗
経験の長い皆様にアドバイスを頂きたくてやってきました。
よろしくお願いします。

**nobodyさん** · 03/05/20 05:32

う～ん、やっぱこんな一部的なコト書いても誰も答えられないよね。汗
自分で思考錯誤して頑張ります。

**nobodyさん** · 03/05/20 05:57

>>181-182
つーか、思いっきりスレ違い。

ここはPerlスレだ。CGIの質問は他でやれ。

**nobodyさん** · 03/05/20 06:01

use strict;

使うと変数の局所化が出来るようなのでつが
局所化するとﾊﾟﾌｫ-ﾏﾝｽ的にはどうなんでそ？

あと、一般的に配付されてるスクリプトで
use strict;
使ってる物を見た事が無いのですが普通は使わない物なんでつか？

**nobodyさん** · 03/05/20 06:10

>>183
このスレでいいだろ？アルゴリズムの問題なんだから。
CGIだからどーだって事にはならない。GUIだろうとほとんど同じ。

>>184
取り敢えず、厳格な書きかたが出来る。
局所化は、strictとは直接関係ない。
myだと、呼び出されるまで展開されないから軽い。
myはどのパッケージの名前空間にも属さない。

>>181
処理の規模にもよるが、データはテキストのほうが望ましい。
装備している武器などはそのまま保存すると共に、
攻撃力などは武器が変更された時にいっしょに変えてしまえば？
少々めんどうか？この方法は。
まぁ、どんな処理なのか分からんからなんとも言えん。

**nobodyさん** · 03/05/20 06:11

>>184
> 使うと変数の局所化が出来るようなのでつが

できません。

> 使ってる物を見た事が無いのですが

strictモジュールはコードの検査を行うものなので、リリース時にはコメントアウトするか消す人が多いだろうね。
無　駄　だ　か　ら

**nobodyさん** · 03/05/20 06:38

>>183
個人が持つ物じゃなくて全体に存在してるアイテムって言うのか、そうゆうのは記述内で定義するのが正解だよ。
もし、一つ一つ個性のある、複雑な効果のあるアイテムとかなら絶対に記述内で定義する必要がある。
たんに「値段」と「攻撃力」みたいな感じのデータのみだったら、テキストでデータを書き出しても良いかもしれない。

**nobodyさん** · 03/05/20 08:52

>181
ネトゲ板のCGIブラウザゲースレの奴か？

>●武器などのデータはテキストでデータ保存した方が良いでしょうか？
>●それとも、perl記述内で武器の効果や、強さ、金額などを直接定義したほうが良いでしょうか？
数による。
10や20なら中に記述した方がいいだろうが、1000や2000ならテキストデータにした方がいい。
数が多い場合は、テキストを分割する事で検索速度を速めよう。
例えば武器なら、1000の全武器＞とある武器データ、と検索させるより、200の武器データ＞とある武器データ、
と検索させる方が鯖に優しいのはわかるな？

>●起動ごとに攻撃力を算出させた方が良いでしょうか？
>●それとも算出された攻撃力はそのままテキストデータに保存してしまった方が良いでしょうか？
計算の度合いによる。
足し算の１回２回なら計算させた方がいい。
逆に剰余算や平方根を多用するようなら、保存させた方がいいかもしれない。
これらも計算の頻度やその処理の重さによる。
攻撃力を外部に保存させる場合、ローカルに攻撃力再計算用のスクリプトを作っておくといい。
バグが出た時に、データを一時ＤＬしてから再計算してＵＬし直せるように。
そうすればメンテ性も上がる。

つたないながらもCGIゲー経験者として。

**181** · 03/05/20 09:52

思ったよりたくさん返事が…。ありがとうございます。

>>188さん
＞ネトゲ板のCGIブラウザゲースレの奴か？
違うと思います。俺はム板とこの板にしか出現しません。

＞1000の全武器＞とある武器データ、と検索させるより、200の武器データ＞とある武器データ、
＞と検索させる方が鯖に優しいのはわかるな？
槍なら槍、剣なら剣と、種類ごとにデータを分けてしまえと言う事ですね？

＞足し算の１回２回なら計算させた方がいい。
はい、単純な足し算です。
ですから。起動ごとに計算させる事にします。
そのほうがバグや計算ミスもなく簡単に管理出来そうです。

＞攻撃力を外部に保存させる場合、ローカルに攻撃力再計算用のスクリプトを作っておくといい。
＞バグが出た時に、データを一時ＤＬしてから再計算してＵＬし直せるように。
ちょっと意味が分からなかったのですがこれは公開後、利用者のデータにバグが出た場合、
こちら側がデータを手動で直しやすいように。と言う意味でしょうか？

もう一つ質問なのですが、
>>187さんが細かいデータをテキストで保存するのはキツイとご指摘下さいました。
確かに「アイテム」や「魔法」などは一つ一つ違った働きをして、仕様出来る場所も違います。
武器や防具の場合はけっこう単純なのですが…。
>>188さんなら、これらをどこで定義しますでしょうか？
やはりテキストに書きますか？

ちなみに、終わった話（処理）ですがモンスターデータは全てテキストに書き出しました。
一行一モンスターの形式で書いたのですが、一行の文字数が300文字以上になって超見にくくなってしまいました。

**nobodyさん** · 03/05/20 10:06

>189
>違うと思います。俺はム板とこの板にしか出現しません。
違うのか、スマン。
ttp://game3.2ch.net/test/read.cgi/netgame/1031450575/115-
ちょうどここで似たような話題があったので勘違いした。
気を悪くしたなら許してくれ。

>こちら側がデータを手動で直しやすいように。と言う意味でしょうか？
大まかに言えばその通りだな。
ただ、本当に手動で100人以上のデータを修正していたら日が暮れるだろ？
それを自動でやってくれるスクリプトをローカル用に組んでおくと後で楽だよと。

>>>188さんなら、これらをどこで定義しますでしょうか？
>やはりテキストに書きますか？
繰り返しになるが、数による。
1000や2000のデータを内部で定義するとメモリを無駄に消費するからな。
俺ならアイテムや魔法のデータをテキストから読み出して、キャラデータと一緒に保存する。
アイテムが1000あっても、キャラクターが持つアイテムはおそらく50もないだろう。
そうすれば普段は50しか読み出しを行なわずに済む。
1000のアイテムを検索するのは、アイテム購入とか、新規でアイテム入手する時だけになるわけだ。
敵からアイテムを拾う場合は、敵データにアイテムデータも一緒に入れる。
あんたのやり方の場合はそれは向かないかもしれないけどね。
結局、システムごとにやり方なんか違うものだと思うぞ。
毎回必ず1000のアイテムを読み込む必要のあるシステムなら、それこそ内部に記述した方がいい。

**181** · 03/05/20 10:40

>>190
なるほど！
大変参考になりました。
＞アイテムが1000あっても、キャラクターが持つアイテムはおそらく50もないだろう。
まさにその通りです。

そこで思いついたのですがアイテムや魔法のIDや名前などの簡単に部分はテキストで保存し、
効果は以下のように定義しようと思いました。

#アイテム使用時のルーチン
sub item_001{
my ($item) = q['アイテム使用処理'];
eval "$item";
}
非常に大雑把な感じですが、処理はこんなイメージで進めていこうと思います。
大変参考になる話をありがとうございました。

**nobodyさん** · 03/05/20 10:41

ロックの問題があるから、どうにもテキストファイルを使うのは躊躇してしまう。
データベースの方が鯖に優しくはないが安全だよなあ。

**nobodyさん** · 03/05/20 10:43

楽したいだけだろ

**181** · 03/05/20 10:51

全体のデータ（モンスター集）などは、書きかえられる事がないので安全です。
個人のデータは個人で使っているので、他者と書き込みがかぶる事はありません。

それと、処理全体には一応実行ロックをかけ、
さらに同一人物は5秒以内の連打アクセスが出来ないようほどこしてあります。
（テスト中はジャマなので解除してますけど）

**nobodyさん** · 03/05/20 13:17

ネットゲームの意味が全くねーな。

**nobodyさん** · 03/05/20 14:21

フォームからIDを入れさせて、
入力したIDがあらかじめ用意されたIDと一致してるかどうかで
表示する画面を分岐させたいのですが

現状は、
IDをテキストファイルに
10000
10001
10002
　・
　・
という形で入れておいて
ループでIDファイルの一行と入力したIDが一致するか否かで
処理しています
処理が遅いので別の手段をとりたいのですが、
何かいい方法はありませんでしょうか？

IDは8桁のランダムな数字列で、
テストはID5000件と10000件でやりました

**nobodyさん** · 03/05/20 14:26

>>196
ID"だけ"で良いのならば。
ID名でファイルを作成し、ファイルが存在するか否かで処理。
何万件も処理するならDBを利用すべきでしょう。

**181** · 03/05/20 14:27

８桁でしたら、８個のファイルに分けてしまったらどうでしょう？

**nobodyさん** · 03/05/20 14:29

名前消すの忘れてた。
>>しかも197さんのが効率良いし。

**nobodyさん** · 03/05/20 14:32

すみません、初心者の質問答えてやってください｡
Perlによる普通の掲示板でログの先頭行のタイトルだけを
取るにはどういう構文にすればいいんでしょうか？