パスワードを発行するには？

[上に] [前に] [次に]
てんてん 1998/01/06(火) 14:27:07
パスワードの発行する方法を模索中です

perlを使ってランダムに英数字を数文字（４文字を考えています）
を発行したいのですが、乱数をどうやって応用したらいいか
いい方法が思いつきません。

どうか教えて下さい
miyasiro [E-Mail] 1998/01/11(日) 02:57:13
@c = (0..9,'A'..'Z','a'..'z');
srand;
$passwd = '';
$passwd .= $c[rand(@c)] while length($passwd) < 4;
print $passwd;

という感じで、$passwd に４文字の英数字が得られます。
miyasiro 1998/01/11(日) 03:06:50
すいません、整数化するのを忘れてました。
上の４行目を下に代えて下さい。

$passwd .= $c[int(rand(@c))] while length($passwd) < 4;
てんてん 1998/03/02(月) 09:38:30
[[解決]]
大変遅くなりましたが、教えていただいた通りやったらできました。
ありがとうございました。
[上に] [前に] [次に]