ランダム文字列

srand;
@array = a .. z;
@new;

while ( @array ) {
push( @new, splice(@array , rand @array , 1) );
}
print @new, "\n\n";
print "<br>";
print @new, "\n\n";
print "<br>";
print @new, "\n\n";

↑のような感じでランダム文字列の作成を考えています。

上記スクリプトですと、
aewpodigtusnkjycfxvmzqrlhb
aewpodigtusnkjycfxvmzqrlhb
aewpodigtusnkjycfxvmzqrlhb
↑のようにどの行も同一文字列になってしまいます。これを、行毎に異なった8文字のランダム文字列にしたいのですが、方法がわかりません。
いっぺんに100行のランダム文字列を生成する必要があります。どうぞよろしくお願いいたします。

No.1 ベストアンサー 回答者： Werner 回答日時： 2006/11/20 04:10

> 行毎に異なった8文字のランダム文字列にしたい

行ごとにランダム文字列を新たに生成するようにしてください。
今のスクリプトだと、最初に文字列(配列？)を1つ生成して
それを3回出力しているだけです。

また、今のままだと8文字ではなくてarrayの要素数分の長さになるので、
whileのループ回数を8回に変える必要があります。

以下はサンプルコード。
--------------------------------------------------------
srand;
#文字数8の文字列を3行出力
for(my $i=0;$i<3;$i++){
　　print randstr(8)."\n";
}

sub randstr($){
　　my $len = $_[0];　　#文字数
　　my @alphabet = "a" .. "z";　　#文字列に使用する文字群
　　my $str="";
　　for(my $i=0;$i<$len;$i++){
　　　　$str.=$alphabet[rand @alphabet];
　　　　#同じ文字を2回以上出現させたくないなら
　　　　#$str.=splice(@alphabet , rand @alphabet , 1);
　　}
　　return $str;
}

この回答へのお礼

ご回答有難うございます。おかげ様で上手くいきました。あと一つお聞きしたいのですが、
$pass1 = 'ランダム文字列';
$pass2 = 'ランダム文字列';
$pass3 = 'ランダム文字列';
以下$pass100までと、100個まで作りたいのですが、以下のように作成すればよろしいのでしょうか？1～100まで番号が付けられればと、$count 行番号で検索して調べてみましたが、どうもうまくいきませんでした。以下の方法でもやりたいことはできたのですが、素人のために、適当なやり方で以下のようにしてみたので、他に良い方法があればご教授いただけると幸いです。
for(my $i=0;$i<1;$i++){
print "\$pass1 = '";
print randstr(8)."';<br>\n";
}
for(my $i=0;$i<1;$i++){
print "\$pass2 = '";
print randstr(8)."';<br>\n";
}
for(my $i=0;$i<1;$i++){
print "\$pass3 = '";
print randstr(8)."';<br>\n";
}
以下$pass100まで。

お礼日時：2006/11/20 12:08

No.2 回答者： asock 回答日時： 2006/11/20 14:42

for(my $i=0;$i<1;$i++){

print "\$pass1 = '";
print randstr(8)."';<br>\n";
}

これだと forループが$i=0のときの１回のみしか回っていないのでforの意味がありません。 "$passXX = 'alkerkjr' <br />"; と文字列を羅列表示するだけであれば#1さんのrandstrをお借りして以下のようにすればよいです。

for(my $i=1;$i<=100;$i++){
print "\$pass$i = '" . randstr(8). "';<br>\n";
}

この回答へのお礼

ご回答有難うございます。おかげ様で解決することができました。

お礼日時：2006/11/21 00:47