Hello
How about:
open(LIST, ">wordlist.txt"); while (<>) { length($_) >= 5 or next; s/(\W|[1-9])//g; $i++; print LIST "$_\n"; } close(LIST); print "$i words found. Saved in wordlist.txt\n";
In reply to RE: Wordlist maker
by Zarathustra
in thread Wordlist maker
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |