#!/usr/bin/perl my?$characterset?=?'abcdefghijkmnopqrstuvwxyz23456789ABCDEFGHIJKLMNPQRSTUVWXYZ'; #$characterset?.=?'~!@$%^()_{},./<>?-'; #$characterset?.=?"~!@$%^&*()_+|{},./<>?-=\"; #$characterset?.=?'~!@#$%^*()_|{},./<>?-=\'; $characterset?.=?'@#%^*()_=-~,.?;:|'; my?$mininum?=?8; my?$maxinum?=?10; sub?MakePassword { my?($composition,?$lowlength,?$highlength)?=?@_; return?''?unless?$composition; my?@p?=?split?//,?$composition; my?$arraylength?=?@p; $lowlength?=?7?if?$lowlength?<?1; $highlength?=7?if?$highlength?<?1; if?($lowlength?>?$highlength)?{ ($highlength,?$lowlength)?=?($lowlength,?$highlength); } my?$length?=?int(rand($highlength?-?$lowlength?+?1)); $length?+=?$lowlength; my?$password?=?''; for?(1..$length)?{ my?$i?=?int(rand($arraylength)); $password?.=?$p[$i]; } return?$password; } my?$password?=?MakePassword?($characterset,?$mininum,?$maxinum); print?"$password\n";

--------------------------------------分割線--------------------------------------

知數堂 （http://zhishuedu.com）培訓是由資深MySQL專家葉金榮、吳炳錫聯合推出的專業優質培訓品牌，主要有MySQL DBA實戰優化和Python運維開發課程，是業內最有良心、最有品質的培訓課程。

總結

以上是生活随笔為你收集整理的利用Perl生成随机复杂密码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。