name_generator: initial

name_generator

@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+use strict;
+
+#open(my $fh, '<', '/usr/share/dict/cracklib-small') or die($!);
+#open(my $fh, '<', '/home/scp1/doc/wordlist_swedish.txt');
+open(my $fh, '<', '/home/scp1/doc/wordlists/big');
+my @words = grep{ (length($_) > 4) && lc(chomp($_)) } (<$fh>);
+
+my $re = shift;
+
+for my $w( sort{ length($a) <=> length($b) } grep{ m/$re/ } @words) {
+  print "$w\n";
+}
+