|
|
@ -7,6 +7,9 @@ use constant depth => 5; |
|
|
|
$ARGV[0] =~ s/ /_/g; |
|
|
|
$ARGV[0] =~ s/ /_/g; |
|
|
|
|
|
|
|
|
|
|
|
mkdir $ARGV[0], 0755 unless -d $ARGV[0]; |
|
|
|
mkdir $ARGV[0], 0755 unless -d $ARGV[0]; |
|
|
|
|
|
|
|
foreach my $item ("Male", "Female", "Nonbinary", "Cyborg"){ |
|
|
|
|
|
|
|
mkdir $ARGV[0] . "/" . $item,"0755" unless -d $ARGV[0] . "/" . $item; |
|
|
|
|
|
|
|
} |
|
|
|
generate($ARGV[0], $ARGV[0], 1); |
|
|
|
generate($ARGV[0], $ARGV[0], 1); |
|
|
|
|
|
|
|
|
|
|
|
sub generate { |
|
|
|
sub generate { |
|
|
|