in reply to How to generate random sequence of UTF-8 characters

Here's a string containing every Unicode word character (i.e. alphanumeric plus underscore) in a random order.

use List::Util 'shuffle';

my $all = join q[], grep /^\w$/, map chr, shuffle 0 .. 0x10FFFF;

[download]

Now split that up into parts of whatever length you like!

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Replies are listed 'Best First'.
Re^2: How to generate random sequence of UTF-8 characters
by ted.byers (Monk) on Dec 20, 2012 at 20:44 UTC

    Thanks. I will experiment with that.

    Thanks

    Ted

[reply]

In Section Seekers of Perl Wisdom