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

[Lotus1]

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

update: And one more:

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

__DATA__
0123456789aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ

[ted.byers]

Thanks lotus and JohnGG. Both solutions are quite interesting.

Thanks

Ted