Songmu · December 20, 2010 09:00
diff --git a/string_ramdom_sample.pl b/string_ramdom_sample.pl
 #!/usr/bin/perl
 use String::Random;
 use utf8;
 use Encode qw/ encode decode /;

 my $rand_maker = String::Random->new;
 print encode('cp932', String::Random->rand_maker->randregex('[ーァ-ヶ]{3,6}')) ."\n" for 1..5;
	#!/usr/bin/perl
	use String::Random;
	use utf8;
	use Encode qw/ encode decode /;

	my $rand_maker = String::Random->new;
	print encode('cp932', String::Random->rand_maker->randregex('[ーァ-ヶ]{3,6}')) ."\n" for 1..5;
No results found