2012年6月4日月曜日

Perl - CPANモジュール "String::Random" サンプルコード


String::Randomでランダムな文字列を生成


サンプルコード 


#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use feature qw/say/;
use Encode qw/decode encode/;
use String::Random;

my $string_random = String::Random->new;
for ( 1..10 ) {
    say encode( 'utf-8', $string_random->randregex('[0-9a-zA-Zあいうえお]{7}') );
}


実行結果


$ perl string_random.pl
cえ42fLあ
NMwe79a
M0NO81b
zHFlBPk
QいLt0R2
46うw9ns
ltpえLX6
14Ih1p7
ういuPJs2
HnMyzhC

0 件のコメント:

コメントを投稿