Random letter in perl

Random letter in perl

Upper and lower from an alphabet:

my @alphabet = ( 'a' .. 'z', 'A' .. 'Z' );
print $alphabet[rand@alphabet], $/;

Just upper from chr:

print chr( rand(26) + 65 ), $/;

[close] Permanent link · http://querylog.com/q/Random+letter+in+perl

Suggested HTML for linking:
<a title="QueryLog: Random letter in perl" href="http://querylog.com/q/Random+letter+in+perl">Random letter in perl</a> Link preview: Random letter in perl

11 August 2005 · Internet & computing

The page found by the original query:
Efficient and simple random quote CGI in 4…