Perl

Print all the four letter words in the Bible

cat kjv.txt | perl -ne ‘print map(“$_\n”, m/\w+/g);’ | tr A-Z a-z | sort | uniq | awk ‘length($1) == 4 {printf “%s “, $0}’

About Linuxgal

Need a spiritual home? Consider joining us at Mary Queen of the Universe Latter-day Buddhislamic Free Will Christian UFO Synagogue of Vishnu
This entry was posted in Uncategorized. Bookmark the permalink.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s