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