Perl

From CleanPosts

Jump to: navigation, search

Find all the unique four-letter words in a text file

cat love.txt | perl -ne 'print map("$_\n", m/\w+/g);' | tr A-Z a-z | sort | uniq | awk 'length($1) == 4 {print}'

Personal tools
Strangers In Paradise