一个简单的perl脚本用以生成6位随机数字，可基于此做稍稍修改，生成各种不同的随机字符串。

 
  
  1. #!/usr/bin/perl -w 
  2. use strict; 
  3. use warnings; 
  4.  
  5. main(); 
  6.  
  7. sub main 
  8. { 
  9.         my $strlist = "0,1,2,3,4,5,6,7,8,9"; 
  10.         my @list = split(',', $strlist); 
  11.         my $out = ''; 
  12.                 for (my $x=0; $x<6; $x++) 
  13.                 { 
  14.                         my $i = randnum(); 
  15.                         $out .= $list[$i]; 
  16.                 } 
  17.         print $out; 
  18. } 
  19.  
  20. sub randnum 
  21. { 
  22.         my $n = rand(10); 
  23.         my $m = int($n); 
  24.         return $m; 
  25. }