【Perl】初心者コーナーPart9

**名無しさん＠お腹いっぱい。** · 01/12/28 23:21

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

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

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

参考書籍はこちら【【Perl,CGI】参考書籍第２版】
http://pc.2ch.net/test/read.cgi/php/988809842/
CGIの質問はこちら【ＣＧＩだけど、なんか質問ある？part5】
http://pc.2ch.net/test/read.cgi/php/1009331505/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/

過去ログ、その他の役立ち情報は>>2-10を見よう。

**名無しさん＠お腹いっぱい。** · 01/12/28 23:32

**名無しさん＠お腹いっぱい。** · 01/12/28 23:34

[総合]
　・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 Recipes: http://www.effectiveperl.com/recipes/
　・Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm
　・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/
[Document&Tutorial]
　・Perl News: http://www.news.perl.org/
　・Perl Monks: http://www.perlmonks.org/
　・PerlMonth - Online Perl Magazine - : http://www.perlmonth.com/index.html
　・use Perl All The 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
　・Perl for Newbie: http://www.harukaze.net/~mishima/perl/index.html
　・Logical Choice Software, Home Page: http://www.logsoft.com/perltips/
　・Perlfect Solutions: http://perlfect.com/
　・The Perl Archive : http://www.perlarchive.com/

**名無しさん＠お腹いっぱい。** · 01/12/28 23:37

[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
　・CGI and Security http://www.japu.org/cgi/security/
　・Perl security和訳：http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlsec.html
　・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/

**_gunzip** · 01/12/28 23:46

ごめん。ついでにこれも。

Perl6 & Parrot VM についての情報
http://dev.perl.org/perl6/

--------------------
Parrot Hello world!
--------------------
# hello.pasm
print "Parrot Hello world!\n"
end

**名無しさん＠お腹いっぱい。** · 01/12/29 00:20

PERLでSharedMemory使ったりセマフォ切りたい
時のお勧めサイトって有る？

**名無しさん＠お腹いっぱい。** · 01/12/29 01:08

>>5
TryAndCatch萌え　ヽ(´ー｀)ノ

FILE *handle1 = NULL, *handle2 = NULL, *handle3 = NULL;
try {
handle1 = fopen ( ... );
handle2 = fopen ( ... );
handle3 = fopen ( ... );
...
}
catch ( ... ) {
if ( handle1 ) close ( handle1 );
if ( handle2 ) close ( handle2 );
if ( handle3 ) close ( handle3 );
throw;
}

**名無しさん＠お腹いっぱい。** · 01/12/29 14:21

try-catchはいいやね。
文字列検索よりは早そうだし。

**名無しさん＠お腹いっぱい。** · 01/12/29 22:51

age

**名無しさん＠お腹いっぱい。** · 01/12/30 08:01

>1
スレ立てお疲れ様です。
さっそく質問させていただきます。

Win98にActivePerlをインストールしましたが、
DOSプロンプトから起動できません。
「コマンドまたはファイル名が違います」と言われてしまいます。

sample.plをダブルクリックすると、一瞬だけですが起動するので
Perl自体のインストールは出来ていると思いますが……。

何がおかしいのか、考えられることを教えてください。

**名無しさん＠お腹いっぱい。** · 01/12/30 11:13

>>10
DOSプロンプトから perl -v でVersion情報が出力されますか？
問題無く出力されるようなら、
　perl C:\somewhere\sample.pl
で実行できるはずですが。(C:\somewhere\は適当に読み替えて下さい)

**デフォルトの名無しさん** · 01/12/30 11:16

スクリプトの多分岐にわたる
セッションのテストってどんな風にしてます?
モンキーレンチとか使えるのかなぁ･････

**名無しさん＠お腹いっぱい。** · 01/12/30 12:59

>>10
PATHが通ってないだけじゃないの？

**名無しさん＠お腹いっぱい。** · 01/12/30 13:56

ちょっと読んだ
能動的な型付けとか、最適化に関わる所が結構突っ込まれてるのかな
Class eq Package じゃ無くなるってのも中々よさげ
今よりずっとOOusefulになると良いな

でもオペレータ変更しすぎなんだよ先生よぅ・・・・
%hash{foo} ← これが参照外したスカラーなんて・・・　（死

**名無しさん＠お腹いっぱい。** · 01/12/30 13:59

あ、>>5 @ _gunzipさんね
>>10
同じくPATHに一票
SETENVだかPATHだかでSET出来たかな(適当)
キーワード書くから調べて栗　ｗ
「PATH」「環境変数」「DOS」「追加」「SET」

**名無しさん** · 01/12/30 14:54

>14
間違えてんぞ～
$hash->{foo} が $hash{foo} or $hash.{foo} だろ、んで
$hash{foo} が %hash{foo} だよん
つーか嫌すぎこれ

**名無しさん＠お腹いっぱい。** · 01/12/30 14:57

%tmp = ("aa0"=>"00","aa1"=>"11","aa2"=>"22");
foreach(0..2){$tmp[$_] = $tmp{aa$_};}
みたいな事をやりたいのですが、
foreach(0..2){$tmp = "aa$_"; $tmp[$_] = $tmp{$tmp};}
しかわかりません。
もっとスマートな方法があれば教えて下さい m(_ _)m

**名無しさん** · 01/12/30 15:05

WEB上でアイコンがUP出来る掲示板とかありますか？

**名無しさん** · 01/12/30 15:18

>17
ん？
foreach(0..2){$tmp[$_] = $tmp{aa$_};}
　　↓
foreach(0..2){$tmp[$_] = $tmp{aa.$_};}

17 · 01/12/30 15:42

>19
あっ、そうですね。恥。。
即レスどうもありがとうございます。

10 · 01/12/30 17:17

>11、>13、>15
どうもお答えありがとうございます。
カレント\binでは、perl -vもちゃんと動いていましたが、
他の場所からでは起動できませんでした。
だからアドバイスどおり、PATHが通っているかをまず疑いました。

autoexec.batには、SETで始まる\binまでの行がちゃんとありました。
しかし実際にはうまくいっていないため、
試みにこの行を上の方にもってきて、再起動をすると、なぜかうまくいきました。

というわけで(一応無事に)解決したようです。
どうも助かりました。ありがとうございました。

**名無しさん＠お腹いっぱい。** · 01/12/30 23:56

open DAT,">>$file";
上の様に追記でファイルをオープンした場合
ファイル内容が空になる瞬間というのはあるのですか？

**名無しさん＠お腹いっぱい。** · 01/12/31 00:40

>>22
ある。

* 他のプロセスが空にする。
* 自分で空にする。

**ダメ男** · 01/12/31 03:34

その他では、新規ファイル作成時も

22 · 01/12/31 03:42

今2個のプロセスで追記しまくった所
平気だったです。

22 · 01/12/31 04:42

もう一個質問よろしいですか？
$tmp = "o(";
@data=grep(!/$tmp/,@data);
↑これを実行するとエラーとなるんですが、
何故でしょうか？

**ダメ男** · 01/12/31 05:07

$tmp= "o(";
　　↓
$tmp = "o\\(";

**名無しさん＠お腹いっぱい。** · 01/12/31 12:50

"("はRegexpのメタ文字なんだよ。

22 · 01/12/31 15:02

$tmpの部分は入力フォームから入力してもらい、
さらにgrepした後入力を表示させたいのですが、
こういう場合$tmpに格納されている文字はただの文字として
検索するという方法は無いのでしょうか？
またo(以外にも「ソ」もエラーになるのは文字コードが
メタ文字とかぶっているからですか？

22 · 01/12/31 15:27

とりあえず
@data=grep{($tmp1,$tmp2)=split /\t/,$_;$tmp1 ne $tmp}@data;
で緊急避難しました。
29の方法あったら教えて下さい。

**デフォルトの名無しさん** · 01/12/31 15:51

>22
無い。但し存在しないファイルならサイズはO
>30
キーワード出たら検索な
http://www.google.com/search?hl=ja&q=PERL+%83%81%83%5E%95%B6%8E%9A+%83G%83%89%81%5B&lr=lang_ja

**名無しさん＠お腹いっぱい。** · 01/12/31 15:59

>>30=22
CGIかなにかだと思うけど、内部の処理でS-JISを使用するのはお勧めしない。
入出力と内部の処理は分けて、内部ではEUCなんかを使うのが吉。

あと参考までに、quotemeta() や \Q も調べておくとよいでしょう。
　perldoc -f quotemeta
　perldoc perlre

22 · 01/12/31 21:02

>>31
どうもすいませんです;;
と検索どうもです。
>>32
なるほどです。
quotemeta()　調べてみます。

ご親切にどうもありがとうございました。

**おねがいします！** · 02/01/01 02:00

超初心者なんですが、、、。
逆スラッシュが打てません。
\になっちゃうんです。
どうしたらよいのでしょうか？

**名無しさん＠お腹いっぱい。** · 02/01/01 02:43

http://www.kt.rim.or.jp/~ksk/yen2bs/indexj.html
これをインストールしよう！

**名梨さん** ◆FkWCoMC. · 02/01/01 02:44

>>34-35
34のOSのバージョンわかんないじゃん。。
ちゃんとそれくらい言おうよ>>34

**名無しさん＠お腹いっぱい。** · 02/01/01 02:55

>>34
おれにはちゃんと逆スラッシュに見えてるが？

３４ · 02/01/01 02:57

>36
すみません。
Mac OS 9.04
MacJPerl 5.2.Or4 J1
です。
よろしく！

**名無しさん＠お腹いっぱい。** · 02/01/01 03:01

みなさん、おめでとうございます！
perlfuncだとdbm～～の変わりにtie,untieを使えと書かれてますが
レンタルサーバでモジュールの依存関係(標準も入ってないdeath)何かが面倒な時
はdbm～を使っても良いですか?
1000件程度なんでそれ程速度も気になりません

>>34
\のままで良いよ　(^-^
全角はダメだよ

02/01/01 06:07

@char=('0'..'9','a'..'z','A'..'Z');

という62文字を使って 1 （あるいは 0）から ZZZZZZZZ までの
62進数を順番に生成したいのですが、上手にやる方法はありますか?

**デフォルトの名無しさん** · 02/01/01 16:51

>40
ハードコーディングで良いなら
push (@value,0) for (1..8);
これを初期値(つまり$value[0]が1桁目、$value[1]が2桁目)にして
値を1増やす関数と、@valueを分解しながら$char[$value[$_]]とかして
表示する関数を書いてみ。
それが出来たら桁とか@charを可変に出来る様にしてみよう。

**名無しさん＠お腹いっぱい。** · 02/01/01 22:46

Benchmarkモジュールについて教えて下さい。

Benchmark: timing 10000 iterations of for,foreach...
for: 27 secs (27.18usr 0.00 sys = 27.18 cpu)
foeach: 11 secs (10.54usr 0.00 sys = 10.54 cpu)

この出力結果はどういう意味なんでしょうか。forとforeachというアイテム?を比べて、
forが27秒かかってforeachは11秒、これはforeachの方がお得だね、というのは判るんですが、
usrとsysの意味が判らないです。この二つからcpuの使用率を出してるようなんですけど…

**名無しさん＠お腹いっぱい。** · 02/01/02 02:17

usrが動かしてるべんちに掛かった時間じゃﾈｰﾉ
んでsysが他のプロセスが使った時間じゃﾈｰﾉ
んでcpuがトータルのCPU時間って事じゃﾈｰﾉ
適当に想像だけどね
つーかその結果の方が気になるわっ　（ｗ

42 · 02/01/03 02:53

なるほど、何やってもsysが0のままなのが不思議でした。
ありがとうございました。

02/01/03 23:06

>>39
dbmかndbm入っているんだったら、dbmopen使ったって別にいいんじゃないかと思うけど。
将来のバージョンでの対応が保証がされないだけで(笑)
動けばいいやっていうんだったら、全然かまわないかと。

**名無しさん＠お腹いっぱい。** · 02/01/04 00:04

>>1 参照不能と言いつつ参照できるぞ

**名無しさん＠お腹いっぱい。** · 02/01/04 00:16

皆が2ch用ブラウザを利用しているわけではない。

**名無しさん＠お腹いっぱい。** · 02/01/04 12:28

3Gくらいのテキストファイル処理をしたくすったもんだやっています。
GDBMを使ってDB化（？）しているのですが、
tell & seek のサイズ限界にひっかかっているようです。
この場合は、ファイルを分割するしかないのでしょうか？
初心者です。よろしくお願いします。

**名無しさん＠お腹いっぱい。** · 02/01/04 14:01

Tie::Handle::BigFileを自分で実装してみるとか。
なかなか面白そうだ。

48 · 02/01/04 14:14

ぐぅ～　そんな力も時間もないでちゅ・・・・・

48 · 02/01/04 14:15

わしのIDｶｺｲｲな。

48 · 02/01/04 14:30

>>49
教えてちゃんですみません。ロジックのヒントをお願いします。

**名無しさん＠お腹いっぱい。** · 02/01/04 14:49

既出かもしれませんが。教えてください。
あるCGIで生成した結果を表示後それをHTMLファイルとして保存するにはどうしたらよろしいでしょうか？

**名無しさん＠お腹いっぱい。** · 02/01/04 14:51

ファイル(F)→名前を付けて保存(A)...

53 · 02/01/04 14:51

追記
HTMLとして保存するスクリプト、または関数をご存知の方お教えください

53 · 02/01/04 14:53

>>54たぶんそんなつっこみがくるとおもってました。(藁
追記です
HTMLとして保存できるスクリプトか関数をお教えください

**初心者** · 02/01/04 14:58

>>53
初心者だけど。

HTMLで結果吐いて、
同じ内容をtimeなりでファイル名決めて書き出せばいいのでは？

**初心者** · 02/01/04 14:58

あとは自分で調べる努力を。

53 · 02/01/04 15:04

>>57
マジ、わからないんですが、おっしゃられているのは「ファイル(F)→名前を付けて保存(A)...」
で保存してってことですか？

**名無しさん＠お腹いっぱい。** · 02/01/04 15:09

>53
ﾀﾞｲｼﾞｮｳﾌﾞ？

**初心者** · 02/01/04 15:10

この辺とか。
http://www.google.com/search?num=100&hl=ja&q=perl+%83t%83@%83C%83%8B%83n%83%93%83h%83%8B+print&lr=lang_ja

あとは自分で調べる努力を。

53 · 02/01/04 15:18

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

**名無しさん＠お腹いっぱい。** · 02/01/04 16:04

板にgzipをとり入れようと思うんだけど
どのように記述すればいいんでせう？
よろしくお願いします。

**名無しさん＠お腹いっぱい。** · 02/01/04 16:05

それPerlの質問か？

**名無しさん＠お腹いっぱい。** · 02/01/04 16:14

>>48
分割したファイルが一つのファイルのように見えるようにインターフェイスを整えるのだ。
だから本当に大きなファイルが扱えるわけではない。
それでいいならちょいと書いてみるが？

**名無しさん＠お腹いっぱい。** · 02/01/04 16:33

KENTのPetitBoardに新記事のマークを付けるにはどうしたらようのでしょうか？

48 · 02/01/04 16:33

>>65
ありがとうございます。お願いいたします。　；；

ファイルサイズはこの先大きくなる一方なのですが、分割していくしかないでしょうか？
もしくは、データベースに突っ込むか・・・・・・

「Cで書け！」と言われてしまいました。
齢20代後半で今からCは身に付くでしょうか？　ソース見てもｸﾗｸﾗします　；；

65 · 02/01/04 16:58

そんなに期待されると…(汗

あくまでも個人的に面白いと思うから作るだけなんで。
だからといって適当な物を書くわけじゃないですが。

ついでに言うと*DBM_Fileとの連携は出来ないかと。

**名無しさん＠お腹いっぱい。** · 02/01/04 17:16

166 名前：名無しさん＠お腹いっぱい。投稿日：02/01/04 16:48 ID:ZcIQHoBD
KENTのPetitBoardに新記事のマークを付けるにはどうしたらようのでしょうか？？？

167 名前：名無しさん＠お腹いっぱい。投稿日：02/01/04 16:51 ID:???
↑何でマルチすんだよ糞ガキ消えろ

168 名前：名無しさん＠お腹いっぱい。投稿日：02/01/04 16:56 ID:ZcIQHoBD
うるせぇ俺は20歳だ。そんだけ気になっとんだ。

169 名前：名無しさん＠お腹いっぱい。投稿日：02/01/04 16:57 ID:ZcIQHoBD
そんな事より即効で文句言うてめぇの方がガキだ。

**名無しさん＠お腹いっぱい。** · 02/01/04 17:37

>>67
バイナリで書くよりはCの方が簡単です。

まぁマジレスすると身につかないことは無い。
構文自体はPerlに似てるし。ただ、Perlに比べて
もっと「プログラムらしい規約」が多々出てくるので
Perl以外にプログラムをやったことが無かったら
馴染めないかもね。

おれは逆にZ80からCやFortran、RINGOやAppleScript等を
経てからPerlに来て、なかなかPerlに馴染めなかったけど。

48 · 02/01/04 18:02

>>68
すみません。ヒント程度の気楽なもので十分です。
ありがとうございます。
やりたいのはレコードの検索なので、DBMと連携なりは、考えます。

>>70
ありがとうございます。道のりの割に、使う機会が少なそうで・・・・
でも追い込まれないと勉強しないし・・・・・
自分は、N88BASIC -> 永い永い月日 -> Perl, PHP, VBScript群
しょぼ。

65 · 02/01/04 19:28

とりあえず

・配列にファイルハンドル(以下FH)を入れておく

・そのFHを通じて何か書き込みをする度にサイズをチェック(stat()してもいいし長さを記録しておいても良い)
・サイズが一定値を超えたら新しいファイルを作成して配列に新しいFHを追加
・seek()やらtell()やらは合計ファイルサイズを考慮して計算
・これらのことを通常のIOインターフェイスを通じて行えるようにタイクラスに閉じ込める。

って感じで(超適当な説明だが)

DBMと連携するにはまた別のことを考えなきゃいけないね。
複数のDBMハッシュを保持したタイハッシュクラスを考えればいけるんじゃないだろうか。

02/01/04 19:32

PostgreSQL使ってみるとか。

02/01/04 19:36

後は検索ルーチン次第だけど、検索項目ごとにインデックス用のDBM作って、
メインデータは、データのカテゴリごとに分割する。
データ自体に一意のID振っておけば、それでデータの抽出が出来る。
そもそも、そんな巨大なデータをwhileとかで回しても、効率よくないだろうし。

48 · 02/01/06 14:51

>72
うをー！　ありがとうです！　ｴﾝｼﾞﾝかかってきた！　やるでー！！

>73　>74
ありがとー
DBに入れるのも考えましたが、ディスク資源も既に虫の息なので、ﾎﾝﾄﾂﾗｲです。

**名無しさん＠お腹いっぱい。** · 02/01/07 23:02

>>75
シーラカンス本（約\3,500）説明ﾜｶﾘﾔｽｲﾖ.
プログラミング一から勉強するよりよっぽど楽勝ですし。

**名無しさん＠お腹いっぱい。** · 02/01/08 16:04

アクセスカウンターやその他のデータを
ファイルに記録する時などでファイルを
open (FILE,"+<$file");
で開いて変更するのと

open (FILE,"$file");
書き換え作業
open (FILE,">$file");

という方法だと後者だと良くないのでしょうか？

**名無しさん＠お腹いっぱい。** · 02/01/08 16:06

良くなくない

**名無しさん＠お腹いっぱい。** · 02/01/08 16:11

>>77
どういう考えでそういう結論に至ったのか問い詰めたい

**名無しさん＠お腹いっぱい。** · 02/01/08 16:20

即レスどうもです。
いろいろスクリプト見てると前者の方が多いと感じまして
後者の方はいかんのかな？と思ったです。
特に問題は無いと考えて良いみたいですね。
他に美しくない、負荷がかかる、なんかの問題も
無いのでしたら、何故前者の方がよく使われてるのでしょうか？

**名無しさん＠お腹いっぱい。** · 02/01/08 16:35

前者の方がコードが簡単だからではないだろうか。
処理中に落ちてデータが壊れる確率も大差ない気がする。

消えにくいようにするならこれかな？

open IN, "<$file" or die;
# ...
close IN;
open OUT ">$file.tmp" or die;
# ...
close OUT;
rename "$file.tmp" => "$file" or die;

**名無しさん＠お腹いっぱい。** · 02/01/08 16:36

>処理中に落ちてデータが壊れる確率も大差ない気がする。

後者の方が壊れる確率高いよ。

**名無しさん＠お腹いっぱい。** · 02/01/08 17:03

1度のopenで、ファイルに書き込むデータのサイズが
減る可能性がある場合はtruncateは必須なんでしょうか？

**名無しさん＠お腹いっぱい。** · 02/01/08 17:09

>>83
まず自分で試して見れ。

**名無しさん＠お腹いっぱい。** · 02/01/08 17:11

どう言う意味が分からないよぅ。
ファイルサイズを揃えておきたい時なんかはそのまま書き出して
閉じたりするよ
必須と聞かれればNOになる

**名無しさん＠お腹いっぱい。** · 02/01/08 17:28

>>84-85
ごめんです
試したら思いっきり変になりました。
これってOSによって実装されてない場合あるんですよね？
あんま使いたくなかったなぁ。
レスどうもでした。

**名無しさん＠お腹いっぱい。** · 02/01/08 17:45

すいません。もう１つ質問よろしいでしょか？
皆さんはチャットやらカウンターなんか作らない
かもしれないですが、
カウンターの場合は読み書き両用で1度だけopenするのに対して
チャットなんかだと読み込みのみでopenして
書きこみはまた後で書き込みのみでopenしてるのですが
この違いは何なのでしょうか？

**名無しさん＠お腹いっぱい。** · 02/01/08 17:48

作ったヤツに聞け。

**デフォルトの名無しさん** · 02/01/08 18:06

カウンターだからチャットだからと言う事は無い
ただCGI(だよな??)は排他とかトランザクション取らなきゃならないので
色んな手法でデータの同一性を保証出来るようなコードを書く必要は有る
チャット位ならどうって事ないような気がするが

**どなたか** · 02/01/09 12:29

指定した個数の固有な乱数を効率良く得る方法ってありますか？
例えば1から100の範囲で４つ乱数を生成して、それを一つの配列に入れたいんですが。

$max = 乱数の最大値
$num = 個数
@kekka = 得られた乱数を[0..($num-1)]で格納する配列

という風にしたいんですが、どうしてもうまくいきません。
単純に指定個数の乱数を作って配列に入れるならできるんですが、
重複を許さないためにifやwhileで今までの結果を参照させようと
するとうまいコードが思い浮かびません。
もしかしたら簡単な解決方法があるのかと思いここに書き込ませてもらいました。

**デフォルトの名無しさん** · 02/01/09 13:06

uniqな値って事かな

until ($n == $max) {
　$r = rand(100);
　push(@ary,$r) and $n++ if(!grep /$r/,@ary);
}

**デフォルトの名無しさん** · 02/01/09 13:08

あ、ちょっと違うか
until (my $n == $num) {
　my $r = rand($max);
　push(@kekka,$r) and $n++ if(!grep /$r/,@kekka);
}

**名無しさん＠お腹いっぱい。** · 02/01/09 13:19

なんとなく90は「整数を」欲しがってるきがするので、その書き方をしてみる。

my @kekka;
my $max = 100;
my $num = 4;

die('$max の値が $num より多いとダメだから注意な。') if $num > $max;

my %temp;
my $rnd;
my $n = $num;
!$temp{($rnd = int(rand $max) + 1)}++ and push(@kekka, $rnd) and --$n while $n;

93 · 02/01/09 13:20

あ、dieのメッセージが逆だ（ｗ

90 · 02/01/09 13:23

おお！早速有り難うございます。そうです、uniqueな値を指定個数生成したいんです。
でも実行してみたらループしてる・・・うーん、どっか変数間違えたかな。
こんな感じでやってみたんですが

#ここから

$max="10";
$num="4";

until (my $n == $num) {
my $r = int(rand($max));
push(@kekka,$r) and $n++ if(!grep /$r/,@kekka);
};

print "@kekka";

#ここまで

これってgrepの結果が真だった場合は同じ$nでまたループしてるんですよね。
ということは、grepが真を返してない（？_？）

**名無しさん＠お腹いっぱい。** · 02/01/09 13:25

ちかごろは、srand;しないでも良くなったんですか？

90 · 02/01/09 13:26

お！！！93さんの動いた！！！
助かった～～～
91さんも93さんも有り難うございます。
解読して考え方を参考にしますね。

90 · 02/01/09 13:27

>>96
perl5だといらないそうです

**名無しさん＠お腹いっぱい。** · 02/01/09 13:28

>96
らしき話をどこぞで見たような。

90 · 02/01/09 13:31

自己レス。 5.004　以降だとsrandが無い場合は最初のrandが自動的に
呼び出しているそうです。その場合はtimeとprocess IDを元にsrandしている
ことになるそうです。受け売り。

**名無しさん＠お腹いっぱい。** · 02/01/09 13:54

>>98-100
なるほど～、ありがとうございます。
5.003以前だとsrandしないといけないって事ですね。
バージョン依存は難しいです、いろいろ。。。