Perlの乱数について

RedHat Linux ES2.1のperl v5.6.1にて初めてのプログラムを書いているものです。
Oracle9iに格納するDATE型のデータを大量に乱数にて作成しようとしているのですが、うまくいきません。

作成しようとしているのは2004年度か2005年度のある日付です(30日まで)。
例)
04-01-30
05-07-12
04-09-28
04-12-11

質問1.下のプログラムだと、年度が00,01,02,03,04,05の値をとり得てしまう。これを04か05に限定するにはどうすればよいか。

質問2.月・日が1桁の場合は0を頭につけたい。下のプログラムでは05-12-1となったり04-5-30となったりしてしまう。

#!/usr/bin/perl

$a = 1;

while($a < 100000){

$year_rand = int(rand(5));
$month_rand = int(rand(12))+1;
$day_rand = int(rand(30))+1;

print "0$year_rand-";
print "$month_rand-";
print "$day_rand,";
print "\n";

$a = $a+1;

}

宜しくお願い致します。

No.5 ベストアンサー 回答者： leaz024 回答日時： 2004/07/13 19:17

質問１について

$r = int(rand(N)) では、0≦$r＜N という範囲で乱数が発生しますので、
> これを04か05に限定する
には、その振れ幅である２を指定し（０か１が発生する）、最低値である４を足せばよいことになります。
つまり、
$year_rand = int(rand(2)) + 4;

質問２について
このような場合は printf が便利です。
printf では出力形式を指定することができ、２桁で頭を０埋めして出力、なども簡単にできます。

４行のprint文の代わりに、次のようにしてみてください。
printf "%02d-%02d-%02d,\n", $year_rand, $month_rand, $day_rand;

この回答へのお礼

leaz024さん明快なご回答有難うございました。
大変助かりました。

お礼日時：2004/07/23 09:39

No.7 回答者： karyn 回答日時： 2004/07/16 00:44

Karynです。

ちなみに一箇所だけバグを入れてあるのは全てを教えちゃいけないという親心です。
実行結果を見るとすぐに判ると思いますよ。

この回答へのお礼

karynさん有難うございました。
無事にデータを作成することができました。

お礼日時：2004/07/23 09:38

No.6 回答者： karyn 回答日時： 2004/07/16 00:26

視点を変えてこんなのはどうでしょう？

#!/usr/bin/perl

require "timelocal.pl";

$time20040101=&timelocal(0,0,0,1,0,104);
$time20051231=&timelocal(59,59,23,31,11,105);

for(1..100)
{
$time=$time20040101+int(rand($time20051231-$time20040101));
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime($time);
if($mday>30) continue;
printf("%02d-%02d-%02d\n",$year,$mon+1,$mday);
}

要約すると以下のとおりです。
timelocal.plというシステム関数を使います。

2004/01/01から2005/12/31までの日付を秒数に変換して、その差を乱数に与えます。
そうすると2年間のどこかの秒が得られます。
得られた乱数を2004/01/01の秒数に加えて得られた秒数をもう一度日付に変換します。
日が31日になったやつはもう一度やり直す。

どんな範囲の日付も簡単に作り出せますよ。
これがスマートなアルゴリズムというやつです。

No.4 回答者： Dpop 回答日時： 2004/07/13 19:11

rand は rand(作りたい数) を与えます。

ここでは、04と05 の2つのなので、2が入ります。
しかし、これでは0と1しか返って来ないので、ゲタを履かせます。それが+3です。

表示部分ですが、printf 関数を利用してしまった方が簡単でしょう。
多少、処理速度は落ちますが、あまり気にするほどの物でもありません。(中身は、C の printf です。)

\- は、- をマイナス記号と判定されない様に\を入れましたが、必要ないかも知れません(^_^;;)

$a = $a + 1;

は、

$a++;

の方が微妙にですが効率が良いです。


#!/usr/bin/perl

$a = 1;

while($a < 100000){

$year_rand = int(rand(2))+3;
$month_rand = int(rand(12))+1;
$day_rand = int(rand(30))+1;


printf("%02d\-%02d\-%02d\n", $year_rand, $month_rand, $day_rand);

$a++;

}

この回答へのお礼

Dpopさん、ご回答有難うございました。
大変助かりました。

お礼日時：2004/07/23 09:40

No.3 回答者： edomin 回答日時： 2004/07/13 19:10

＃１です。

もう一度・・・

条件判断は、
if($month_rand>9){print "0";}
と、
if($day_rand>9){print "0";}

で良いかと・・・
（それぞれを、月と日付のprint文の前に挿入する。）

No.2 回答者： edomin 回答日時： 2004/07/13 19:06

＃１です。

間違えました。

$year_rand=int(rand(1.9))+4;
こっちの方が良いかと。
０～１．９までの乱数を発生させて整数化するので０か１しか出来ません。それに４を加えてやる。
「日付については、条件判断で、」
月についても、条件判断で・・・

No.1 回答者： edomin 回答日時： 2004/07/13 18:57

０４と０５に限定するなら、

$year_rand=int(rand(2))+3;
で強制的に１か２を発生させて、３を加えれば良いかと。
日付については、条件判断で、９以下なら
print "0$day_rand,";
１０以上なら
print "$day_rand,";
で出来ませんか？