Re^2: How to generate random sequence of UTF-8 characters

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

Here's another way:

my @chars = ( 0..9,'a'..'z','A'..'Z' );
print @chars;

__DATA__
0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
[download]

update: And one more:

my $string = join '',0..9,'a'..'z';
$string =~ s/([a-z])/$1\u$1/g;
print $string;

__DATA__
0123456789aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ
[download]

In Section Seekers of Perl Wisdom