mirror of
https://bitbucket.org/jsuto/piler.git
synced 2024-11-08 10:41:59 +01:00
14 lines
130 B
Perl
14 lines
130 B
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
|
||
|
|
@x = ('A'..'Z','a'..'z',0..9);
|
||
|
|
$iv = "";
|
||
|
|
|
||
|
|
srand;
|
||
|
|
|
||
|
|
for($i=0; $i<16; $i++){
|
||
|
|
$iv .= @x[rand @x];
|
||
|
|
}
|
||
|
|
|
||
|
|
print $iv;
|