Skip to content

Instantly share code, notes, and snippets.



Created Oct 23, 2018
What would you like to do?
Random string generator
perl -e 'sub rndStr{ join"",@_[ map{rand @_}1..shift]};for($i=0;$i<$ARGV[0];$i++){ print rndStr($ARGV[1],'A'..'Z')."\n";}' 1 254
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.