String::Random

ランダムな文字列生成モジュール。
自分で実装しろよwって話もあるけど、使ってみたら意外と融通が効いたので、ご紹介。

#!/usr/bin/perl

use strict;
use warnings;

use String::Random;

local $\ = "\n";
my $rand = String::Random->new;
print $rand->randpattern('c' x 32);
print $rand->randregex('[a-zA-Z0-9]{32}');

で下記のような結果になります。

utfjtdmvnkjvqcclefoorqftuonklbzf
ezAmL2ZaV599QLasO92PcAHuae2RnoNv

正規表現で指定出来たりするのは凄い便利ですよねぇ。