Posted by & filed under 未分類.


perl -e ‘$l=8;@c=(33,35..38,40..126);print chr(39) . join(“”, map{chr($c[int(rand(scalar(@c)))])} (1) x $l) . chr(39) . “n”;’

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です