- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
sub GenRandomHash()
{
my $self=shift;
my $number=shift||10;
my $plain='';
my @chars=('0','1','2','3','4','5','6','7','8','9','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','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');
for (my $i=0;$i<$number;$i++)
{
$plain.=$chars[rand(59)+2];
}
return $plain;
}
Lure Of Chaos 30.11.2011 16:28 # 0
Alikus 30.11.2011 16:30 # 0
Lure Of Chaos 30.11.2011 16:45 # +2
roman-kashitsyn 30.11.2011 16:34 # 0
А друг это программа - результат работы однострочника на перле? ;)
Alikus 30.11.2011 16:35 # 0
Dummy00001 30.11.2011 17:02 # 0
и $i там тоже не нужна:
santa_microbe 30.11.2011 17:54 # 0
Alikus 30.11.2011 18:04 # 0
santa_microbe 30.11.2011 20:32 # 0
bugmenot 30.11.2011 20:55 # 0
roman-kashitsyn 30.11.2011 18:06 # +1
Alikus 30.11.2011 18:07 # 0
guest 02.12.2011 17:05 # 0
А 0 и 1 - действительно, какие-то неинтересные символы, нам, товарищи, такие символы не нужны!
eth0 02.12.2011 18:46 # 0
mac-t 08.12.2011 18:36 # 0
roman-kashitsyn 08.12.2011 18:39 # +1
MAKAKA 30.10.2019 22:29 # 0
ёбаные абизяны
bagrinho 31.10.2019 00:48 # 0
А в каких ЯП ещё такое есть?
guest8 31.10.2019 01:27 # −999