See in Reader
366 lines
3.0 KiB
Perl
366 lines
3.0 KiB
Perl
use 5.12.0;
|
|
use File::Slurp;
|
|
use File::Find ;
|
|
use Cwd ;
|
|
|
|
my %value;
|
|
|
|
open LOG, ">log/log.log" or die;
|
|
|
|
while (<DATA>) {
|
|
chomp;
|
|
if (/^(.*)$/) {
|
|
$value{$1} = $1
|
|
}
|
|
}
|
|
|
|
my $fileText = read_file("/Users/Henry/Documents/WACS/Tips_and_Hacks/MAST_tW_PDF_Updater/FilesForUpdates/Temp/ULB_text.txt", binmode => 'utf8');
|
|
|
|
$fileText = "\n" . $fileText;
|
|
|
|
foreach my $thisWord (sort keys %value) {
|
|
print $thisWord . "\n";
|
|
if ($fileText =~ /\n([^\n\t]*)\t[^\n]*$thisWord\b/) {
|
|
say LOG $thisWord . ", " . $1;
|
|
}
|
|
|
|
}
|
|
|
|
close LOG;
|
|
|
|
__DATA__
|
|
Aaron
|
|
Abel
|
|
Abiathar
|
|
Abijah
|
|
Abimelek
|
|
Abner
|
|
Abraham
|
|
Absalom
|
|
Adam
|
|
Adonijah
|
|
Ahab
|
|
Ahaz
|
|
Ahaziah
|
|
Ahijah
|
|
Ai
|
|
Amalek
|
|
Amaziah
|
|
Ammon
|
|
Amnon
|
|
Amorite
|
|
Amos
|
|
Amoz
|
|
Andrew
|
|
Annas
|
|
Antioch
|
|
Apollos
|
|
Aquila
|
|
Arabah
|
|
Arabia
|
|
Aram
|
|
Ararat
|
|
Artaxerxes
|
|
Asa
|
|
Asaph
|
|
Ashdod
|
|
Asher
|
|
Asherah
|
|
Ashkelon
|
|
Asia
|
|
Assyria
|
|
Athaliah
|
|
Azariah
|
|
Baal
|
|
Baasha
|
|
Babel
|
|
Babylon
|
|
Balaam
|
|
Barabbas
|
|
Barnabas
|
|
Bartholomew
|
|
Baruch
|
|
Bashan
|
|
Bathsheba
|
|
Beelzebul
|
|
Beersheba
|
|
Benaiah
|
|
Benjamin
|
|
Berea
|
|
Beth Shemesh
|
|
Bethany
|
|
Bethel
|
|
Bethlehem
|
|
Bethuel
|
|
Boaz
|
|
Caesar
|
|
Caesarea
|
|
Caiaphas
|
|
Cain
|
|
Caleb
|
|
Cana
|
|
Canaan
|
|
Capernaum
|
|
Carmel
|
|
Chaldea
|
|
Cilicia
|
|
Colossae
|
|
Corinth
|
|
Cornelius
|
|
Crete
|
|
Cush
|
|
Cyprus
|
|
Cyrene
|
|
Cyrus
|
|
Damascus
|
|
Dan
|
|
Daniel
|
|
Darius
|
|
David
|
|
Delilah
|
|
Eden
|
|
Edom
|
|
Egypt
|
|
Ekron
|
|
Elam
|
|
Eleazar
|
|
Eliakim
|
|
Elijah
|
|
Elisha
|
|
Elizabeth
|
|
En Gedi
|
|
Enoch
|
|
Ephesus
|
|
Ephraim
|
|
Ephrath
|
|
Esau
|
|
Esther
|
|
Ethiopia
|
|
Euphrates River
|
|
Eve
|
|
Ezekiel
|
|
Ezra
|
|
Gabriel
|
|
Gad
|
|
Galatia
|
|
Galilee
|
|
Gath
|
|
Gaza
|
|
Gerar
|
|
Geshur
|
|
Gethsemane
|
|
Gibeah
|
|
Gibeon
|
|
Gideon
|
|
Gilead
|
|
Gilgal
|
|
Girgashites
|
|
Golgotha
|
|
Goliath
|
|
Gomorrah
|
|
Goshen
|
|
Greece
|
|
Greek
|
|
Habakkuk
|
|
Hagar
|
|
Haggai
|
|
Ham
|
|
Hamath
|
|
Hamor
|
|
Hananiah
|
|
Hannah
|
|
Haran
|
|
Hebron
|
|
Hermon
|
|
Herod
|
|
Herodias
|
|
Hezekiah
|
|
Hilkiah
|
|
Hittite
|
|
Hivite
|
|
Horeb
|
|
Hosea
|
|
Hoshea
|
|
Iconium
|
|
Isaac
|
|
Isaiah
|
|
Ishmael
|
|
Issachar
|
|
Jacob
|
|
James
|
|
Japheth
|
|
Jebus
|
|
Jehoiachin
|
|
Jehoiada
|
|
Jehoiakim
|
|
Jehoram
|
|
Jehoshaphat
|
|
Jehu
|
|
Jephthah
|
|
Jeremiah
|
|
Jericho
|
|
Jeroboam
|
|
Jerusalem
|
|
Jesse
|
|
Jethro
|
|
Jezebel
|
|
Jezreel
|
|
Joab
|
|
Joash
|
|
Job
|
|
Joel
|
|
John
|
|
John Mark
|
|
Jonah
|
|
Jonathan
|
|
Joppa
|
|
Joram
|
|
Jordan River
|
|
Joseph
|
|
Joshua
|
|
Josiah
|
|
Jotham
|
|
Judah
|
|
Judas.*Iscariot
|
|
Judas son of James
|
|
Judea
|
|
Kadesh
|
|
Kedar
|
|
Kedesh
|
|
Kerethites
|
|
Kidron Valley
|
|
Korah
|
|
Laban
|
|
Lamech
|
|
Lazarus
|
|
Leah
|
|
Lebanon
|
|
Levi
|
|
Leviathan
|
|
Lot
|
|
Luke
|
|
Lystra
|
|
Maakah
|
|
Macedonia
|
|
Maker
|
|
Malachi
|
|
Manasseh
|
|
Martha
|
|
Mary
|
|
Mary
|
|
Mary.*Magdalene
|
|
Matthew
|
|
Mede
|
|
Melchizedek
|
|
Memphis
|
|
Meshech
|
|
Mesopotamia
|
|
Micah
|
|
Michael
|
|
Midian
|
|
Miriam
|
|
Mishael
|
|
Mizpah
|
|
Moab
|
|
Molech
|
|
Mordecai
|
|
Moses
|
|
Mount of Olives
|
|
Naaman
|
|
Nahor
|
|
Nahum
|
|
Naphtali
|
|
Nathan
|
|
Nazareth
|
|
Nebuchadnezzar
|
|
Negev
|
|
Nehemiah
|
|
Nile River
|
|
Nineveh
|
|
Noah
|
|
Obadiah
|
|
Omri
|
|
Paddan Aram
|
|
Paran
|
|
Paul
|
|
Peor
|
|
Perizzite
|
|
Persia
|
|
Peter
|
|
Pharaoh
|
|
Philip
|
|
Philippi
|
|
Philistia
|
|
Philistines
|
|
Phinehas
|
|
Phoenicia
|
|
Pilate
|
|
Pontus
|
|
Potiphar
|
|
Priscilla
|
|
Rabbah
|
|
Rachel
|
|
Rahab
|
|
Ramah
|
|
Ramoth
|
|
Rebekah
|
|
Rehoboam
|
|
Reuben
|
|
Rimmon
|
|
Rome
|
|
Ruth
|
|
Salt Sea
|
|
Samaria
|
|
Samson
|
|
Samuel
|
|
Sarah
|
|
Saul
|
|
Sea of Galilee
|
|
Sea of Reeds
|
|
Sennacherib
|
|
Seth
|
|
Sharon
|
|
Sheba
|
|
Shechem
|
|
Shem
|
|
Shiloh
|
|
Shimei
|
|
Shinar
|
|
Sidon
|
|
Silas
|
|
Simeon
|
|
Simon the Zealot
|
|
Sinai
|
|
Sodom
|
|
Solomon
|
|
Stephen
|
|
Sukkoth
|
|
Syria
|
|
Tamar
|
|
Tarshish
|
|
Tarsus
|
|
Terah
|
|
Thessalonica
|
|
Thomas
|
|
Timothy
|
|
Tirzah
|
|
Titus
|
|
Troas
|
|
Tubal
|
|
Tychicus
|
|
Tyre
|
|
Ur
|
|
Uriah
|
|
Uzziah
|
|
Vashti
|
|
Xerxes
|
|
Zacchaeus
|
|
Zadok
|
|
Zebedee
|
|
Zebulun
|
|
Zechariah
|
|
Zedekiah
|
|
Zephaniah
|
|
Zerubbabel
|
|
Zoar
|