perl生成6位随机数字

发布时间：2020-12-16 00:36:24 所属栏目：大数据来源：网络整理

导读：?一个简单的perl脚本用以生成6位随机数字，可基于此做稍稍修改，生成各种不同的随机字符串。 #!/usr/bin/perl?-w? use?strict;? use?warnings;? ? main();? ? sub?main? {? ????????my?$ strlist ?=? "0,1,2,3,4,5,6,7,8,9" ;? ????????my?@ list ?=? split

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

 
 
#!/usr/bin/perl?-w?
  
  use?strict;?
  
  use?warnings;?
  
  ?
  
  main();?
  
  ?
  
  sub?main?
  
  {?
  
  ????????my?$strlist?=?"0,1,2,3,4,5,6,7,8,9";?
  
  ????????my?@list?=?split(',',?$strlist);?
  
  ????????my?$out?=?'';?
  
  ????????????????for?(my?$x=0;?$x<6;?$x++)?
  
  ????????????????{?
  
  ????????????????????????my?$i?=?randnum();?
  
  ????????????????????????$out?.=?$list[$i];?
  
  ????????????????}?
  
  ????????print?$out;?
  
  }?
  
  ?
  
  sub?randnum?
  
  {?
  
  ????????my?$n?=?rand(10);?
  
  ????????my?$m?=?int($n);?
  
  ????????return?$m;?
  
  }?

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!