Skip to content

Instantly share code, notes, and snippets.

@likhatskiy
Created November 18, 2009 14:48
Show Gist options
  • Save likhatskiy/237915 to your computer and use it in GitHub Desktop.
Save likhatskiy/237915 to your computer and use it in GitHub Desktop.
generate random string, length 8
sub gen_name {
my $tt = [0..9,'a'..'z','A'..'Z'];
return join '', map {$tt->[rand @$tt]} 1..8;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment