Generating a random string with Perl

Abhi — Fri, 20 May 2016 05:13:20 -0500

#!/usr/bin/perl

# This function generates random strings of a given length
sub generate_random_string
{
	my $length_of_randomstring=shift;# the length of 
			 # the random string to generate

	my @chars=('a'..'z','A'..'Z','0'..'9','_');
	my $random_string;
	foreach (1..$length_of_randomstring) 
	{
		# rand @chars will generate a random 
		# number between 0 and scalar @chars
		$random_string.=$chars[rand @chars];
	}
	return $random_string;
}

#Generate the random string
my $random_string=&generate_random_string(11);

print "Random string: ".$random_string."\n";
print "Length: ".length($random_string)."\n";

Comment by Jit

Jit — Fri, 20 May 2016 05:17:01 -0500

Hmmm interesting, but I prefer Perl module String::Random;

use String::Random;
my $pass = String::Random->new;
print "Your password is ", $pass->randpattern("CCcc!ccn"), "\n";

This would output something like this:

Your password is UDwp$tj5

BOL: Generating a random string with Perl

Generating a random string with Perl

Comment by Jit