【Perl 】初心者コーナーPart5

このエントリーをはてなブックマークに追加
809 ：名無しさん＠お腹いっぱい。：
昔、偏りのある乱数を出すスクリプト書いたとき
807と同じ方法を使ったよ。

んでも805の場合は
出力する値が数字.txtとなってて一体感があるから
$num = int( rand((100) ) + 1; #1-100までのランダムな数字がはいる
$dareka = "$num.txt";

でいいんじゃないかな？