Thanks to all that replied - Corion, great answer ~ I guess I am tired after a long week at work
#!/usr/bin/perl -w my @words; my $line; open (DICT, "< final.txt"); @words= <DICT>; close (DICT); foreach $line(@words) { if ($line =~ /s.*h/i) { if ( ($line =~ /s.*s/i) || ($line =~ /h.*h/i) ) { next; } print $line; } } exit;
Produces some great words ha ha!
asthmatic asthmatical asthmatically asthmatoid asthmogenic asthore asthorin astrachan astrakhan astraphobia astraphobic astrapophobia astrochronological ... crystallographically crystallography crystallophyllian crystograph ctesiphon cubbish cubbishly cuemanship cuish cultish cultishly culture shock cumshaw cunctatorship cuneoscaphoid cuproscheelite curateship curatorship curiosity killed the cat
Thanks! Nick
In reply to Re^2: Dictionary filter regex
by Linicks
in thread Dictionary filter regex
by Linicks
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |