超やっつけですが。 use strict; use warnings; my @letters = ('a'..'z', 'A'..'Z', 0..9); my $length = shift || 5; my $loop = shift || 1; for(1 .. $loop){ print $letters[int(rand(@letters))] for(1 .. $length); print "\n"; }$ perl randomstring…