Takes any file as an input and adds it to a file thats acts as a wordlist. This word list has several "uses"... I shall not tell about these uses as it might give some wannabies ideas but those who need it shall know it...
#!/usr/bin/perl -w
print "Input: ";
chomp ($input = <>);
print "Output: ";
chomp ($output = <>);
chmod 0700, "$input";
chmod 0700, "$output";
open (OUTPUT, ">> $output") || die "Error opening Output: $!\n";
open (INPUT, "< $input") || die "Error opening Input: $!\n";
while (<INPUT>) {
print OUTPUT join("\n",split(/\W+/g, $_));
}
The in you see in jeffa's post is a filename.. you can actually use any number of input filenames as in
perl -F'\W+' -ane 'print join $/,@F' in1 in2 in3 in4 in5 in6 in7 >> wordlist
Personally I would amend this to read
perl -F'\W+' -alne '@word{@F}=(); END { print sort keys %word }' in >> wordlist
which outputs only unique words, sorted alphanumerically.
