Perl的命令來生成下殼體，上殼體和數字的STR

Question

我必須修改該命令包括隨機數，和大寫：

perl -le "print map{('a'..'z')[rand 26]} 1..8" 

我嘗試這樣迄今：

perl -le "print map{('a'..'z')[rand 26]} map{(0..9)[rand 10]} 1..12" 

它只能使字符串變小並且不會在字符串中生成任何數字

Answer 1

將大寫字母和數字添加到您的map列表中，並將數字增加到63（52個字母加上10個數字小號加!）：

perl -le "print map{('a'..'z','A'..'Z',0..9,'!')[rand 62]} 1..12" 

高爾夫的樂趣:)

perl -E"say map{(a..z,A..Z,0..9,'!')[rand 63]}a..l" 

更新時間：從8個增加到12個，並增加!。