You're viewing old version number 1. - Current version
Perl code to create random string of characters
mixed-case, alphanumeric, 8 chars long
#!/usr/bin/perl -wT
use strict;
my @chars = ("A".."Z", "a".."z", "0" .. "9");
my $string;
$string .= $chars[rand @chars] for 1..8;
print $string . "\n";
From JR's : articles
31 words - 208 chars
created on
- #
source
- versions
Related articles
Perl programming tools to test - Nov 14, 2014
Looping through Perl data types - Nov 25, 2013
Perl and OAuth - Dec 03, 2013
Perl Dancer Framework - Dec 19, 2013
Interview with Mojo Mail author - November 2002 - Jul 18, 2014
more >>