一个小脚本mark一下 :生成随机不重复字符串

hu145165

1. 
   
2. use strict;
   
3. use warnings;
   
4. my @str = (0..9,'a'..'z','A'..'Z');
   
5. my $randstr;
   
6. foreach (1..8){
   
7.     my $flag = int( rand($#str) );
   
8.     $randstr .= splice( @str, $flag, 1 );
   
9. }
   
10. substr($randstr, int(rand(length($randstr)))+1, 1) = "=";
    
11. print $randstr;
    

复制代码

兰花仙子

1. perl -le '@x=(0..9,"a".."z","A".."Z"); print join "",map {$x[int rand @x]} 0..7'

复制代码

hu145165

回复 2# 兰花仙子
仙子的貌似有重复的吧

兰花仙子

变通一下就可以去重复吧~

1. perl -le '@x=(0..9,"a".."z","A".."Z"); %h=map {$x[int rand @x],1} 0..@x;print substr(join("",keys %h),0,8)'

复制代码

guap514

1. 
   
2. @arr = (0..9,'a'..'z','A'..'Z');
   
3. foreach (0..7){
   
4.     my $rand = int rand $#arr;
   
5.     @arr[$_, $rand] = @arr[$rand,$_];
   
6. }
   
7. print join '', @arr[0..7];
   

复制代码