Creating an alpha-numeric string in Perl is easy, but having a quick function you can call is better!<\/p>\n
This is very useful for things like password generators.<\/p>\n
To see how to do this in Python, check out this post: …howto-create-a-random-alpha-numeric-string-in-python<\/a><\/p>\n To see how to do this in PHP, check out this post: …howto-create-a-random-alpha-numeric-string-in-php<\/a><\/p>\n Example:<\/p>\n This code sample: Will print something like this: Did you find this post useful or have questions or comments? Please let me know!<\/p><\/blockquote>\n","protected":false},"excerpt":{"rendered":" Creating an alpha-numeric string in Perl is easy, but having a quick function you can call is better! This is very useful for things like password generators. To see how to do this in Python, check out this post: …howto-create-a-random-alpha-numeric-string-in-python … Continue reading
\nsub makeID {
\n my $makeIDchars = ( $#_ >= 0 ? shift @_ : 6);
\n my @makeIDpool = ('a'..'z','A'..'Z',0..9);
\n return join '', map $makeIDpool[int(rand($#makeIDpool - 1))], 1..$makeIDchars;
\n}
\n<\/code><\/p>\n
\n
\nprint makeID().\"\\n\";
\nprint makeID(10).\"\\n\";
\nprint makeID(20).\"\\n\";
\nprint makeID(1).\"\\n\";
\n<\/code><\/p>\n
\n
\nQLNbMX
\n1wO6uBRbER
\nbjbYBJSMLONKOPU0SiQS
\np
\n<\/code><\/p>\n