Perl Wordlist Generator

[0x30]

my ($word, $chars, $num, $fh) = ($_[0], $_[1], $_[2], $_[3]);

wird zu

my ($word, $chars, $num, $fh) = @_;

sub remove_duplicates {
  my @array = split('', $_[0]);
  my $chars = '';
  
  foreach (@array) {
    if ($chars !~ /$_/) {
      $chars .= $_;
    }
  }
  
  return $chars;
}

wird zu

sub remove_duplicates {
  my @dub = split('', shift);
  my %tmp = map{$_, 1) @array;
  my @uni = keys(%tmp);
  return @uni;
}

ungetestet.