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
|