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”;’
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”;’
コメントを残す