close
#!/usr/bin/perl
@list = (0..9, a..z, A..Z,'!','@','#','$','%','^','&','*','(',')');
print $list[rand(@list)] foreach (1..10);
@list = (0..9, a..z, A..Z,'!','@','#','$','%','^','&','*','(',')');
print $list[rand(@list)] foreach (1..10);
來源:奇科電腦Ben老師 http://www.geego.com.tw
全站熱搜
留言列表