Perl 随机数和随机密码的产生

本文介绍Perl中生成随机数及随机密码的方法。利用rand()函数实现不同范围内的随机数生成,包括0到1之间的浮点数、指定范围内的整数等。同时,通过示例代码展示如何生成包含字母、数字及特殊字符的随机密码。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

Perl 随机数和随机密码的产生

  Perl有着强大的随机数产生函数rand(),下面的代码详细介绍其应用

#!/usr/bin/perl
 use strict;
  use warnings;
# 0~1之间
   $random_number = rand();

  print $random_number . "\n";

#大范围
 $range = 100;

   $random_number = rand($range);

  print $random_number . "\n";

#整数
 $range = 300;

   $random_number = int(rand($range));

  print $random_number . "\n";

#offset
   $range = 300;
   $minimum = 1;

   $random_number = int(rand($range)) + $minimum;

  print $random_number . "\n";

# 某范围间的随机整数 25,75
$random = int( rand( $Y-$X+1 ) ) + $X;
 #起止范围
$random = int( rand(51)) + 25; print "$random\n";

 

#随机密码

@chars = ( "A" .. "Z", "a" .. "z", 0 .. 9, qw(qin yang liu _ ! @ $ % ^ & *) );
$password = join("", @chars[ map { rand @chars } ( 1 .. 8 ) ]);
print "\t$password\n";

 

#从数组生成随机密码

@array=qw,323 dd ddae oiljef 43,;
$elt = $array[ rand @array ];
print "$elt\n";
$elt = $array[ int( rand(
0+@array) ) ];
print "$elt\n";

 

#随机密码,任意长度

sub randomPassword {
my $password;
my $_rand;

my $password_length = $_[0];
    if (!$password_length) {
        $password_length = 10;
    }

my @chars = split(" ",
    "a b c d e f g h i j k l m n o
    p q r s t u v w x y z - _ % # |
    0 1 2 3 4 5 6 7 8 9 秦");

srand;

for (my $i=0; $i <= $password_length ;$i++) {
    $_rand = int(rand 41);
    $password .= $chars[$_rand];
}
return $password;
}

 

#产生六位数的随机密码
 my $password = randomPassword(6);
 # with 60 length
 print "password = ", randomPassword(60);

 

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值