正規表現実用講座9

例10.ラテン語聖書創世記から人名と地名のインデックスを作ります。

海外の聖書はパブリックドメインがほとんどなのでインターネット上で誰でも自由に閲覧できます。
まずラテン語聖書の創世記を準備します。(検索ラベルの表示は当方で編集しました。)

GEN001-001【ラテン】in principio creavit Deuscaelum et terram
GEN001-002【ラテン】terra autem eratinanis et vacua et tenebrae super faciem abyssi et spiritus Deiferebatur super aquas
GEN001-003【ラテン】dixitqueDeus fiat lux et facta est lux
GEN001-004【ラテン】etvidit Deus lucem quod esset bona et divisit lucem actenebras
GEN001-005【ラテン】appellavitque lucem diemet tenebras noctem factumque est vespere et mane diesunus
GEN001-006【ラテン】dixit quoque Deus fiatfirmamentum in medio aquarum et dividat aquas abaquis
GEN001-007【ラテン】et fecit Deus firmamentumdivisitque aquas quae erant sub firmamento ab his quae erant superfirmamentum et factum estita
GEN001-008【ラテン】vocavitque Deus firmamentumcaelum et factum est vespere et mane diessecundus
GEN001-009【ラテン】dixit vero Deuscongregentur aquae quae sub caelo sunt in locum unum et appareatarida factumque est ita
GEN001-010【ラテン】etvocavit Deus aridam terram congregationesque aquarum appellavitmaria et vidit Deus quod essetbonum
GEN001-011【ラテン】et ait germinet terraherbam virentem et facientem semen et lignum pomiferum faciensfructum iuxta genus suum cuius semen in semet ipso sit superterram et factum est ita
GEN001-012【ラテン】etprotulit terra herbam virentem et adferentem semen iuxta genussuum lignumque faciens fructum et habens unumquodque sementemsecundum speciem suam et vidit Deus quod essetbonum
GEN001-013【ラテン】factumque est vespere etmane dies tertius
GEN001-014【ラテン】dixit autemDeus fiant luminaria in firmamento caeli ut dividant diem acnoctem et sint in signa et tempora et dies etannos
GEN001-015【ラテン】ut luceant in firmamentocaeli et inluminent terram et factum estita
GEN001-016【ラテン】fecitque Deus duo magnaluminaria luminare maius ut praeesset diei et luminare minus utpraeesset nocti et stellas
GEN001-017【ラテン】etposuit eas in firmamento caeli ut lucerent superterram
GEN001-018【ラテン】et praeessent diei acnocti et dividerent lucem ac tenebras et vidit Deus quod essetbonum
GEN001-019【ラテン】et factum est vespere etmane dies quartus
GEN001-020【ラテン】dixit etiamDeus producant aquae reptile animae viventis et volatile superterram sub firmamentocaeli
GEN001-021【ラテン】creavitque Deus cetegrandia et omnem animam viventem atque motabilem quam produxerantaquae in species suas et omne volatile secundum genus suum etvidit Deus quod essetbonum
GEN001-022【ラテン】benedixitque eis dicenscrescite et multiplicamini et replete aquas maris avesquemultiplicentur super terram
GEN001-023【ラテン】etfactum est vespere et mane diesquintus
GEN001-024【ラテン】dixit quoque Deusproducat terra animam viventem in genere suo iumenta et reptiliaet bestias terrae secundum species suas factumque estita
GEN001-025【ラテン】et fecit Deus bestias terraeiuxta species suas et iumenta et omne reptile terrae in genere suoet vidit Deus quod essetbonum
GEN001-026【ラテン】et ait faciamus hominem adimaginem et similitudinem nostram et praesit piscibus maris etvolatilibus caeli et bestiis universaeque terrae omnique reptiliquod movetur in terra
GEN001-027【ラテン】et creavitDeus hominem ad imaginem suam ad imaginem Dei creavit illummasculum et feminam creaviteos
GEN001-028【ラテン】benedixitque illis Deus etait crescite et multiplicamini et replete terram et subicite eamet dominamini piscibus maris et volatilibus caeli et universisanimantibus quae moventur superterram
GEN001-029【ラテン】dixitque Deus ecce dedivobis omnem herbam adferentem semen super terram et universa lignaquae habent in semet ipsis sementem generis sui ut sint vobis inescam
GEN001-030【ラテン】et cunctis animantibusterrae omnique volucri caeli et universis quae moventur in terraet in quibus est anima vivens ut habeant ad vescendum et factumest ita
GEN001-031【ラテン】viditque Deus cunctaquae fecit et erant valde bona et factum est vespere et mane diessextus 
<<<以下略>>>


プログラム
#【ラテン】まで消去する
s/^.*【ラテン】/ /
#大文字で始まる単語以外を削除して改行する
s/ [^A-Z][^ ]+//g
#既存のプログラムでソートする
既存のソートプログラム
#同一行の繰り返しを1行に
:loop
$q
N
s/^\(.*\)\n\1$/\1/
t loop
P
s/^.*\n//
b loop


上記のプログラムを実行すると下記の770件のリストが出来ます。

Abdeel
Abel
Abelfratrem
Abida
Abimahel
Abimelech
Abimelechetiam
Abimelechnescivi
Abimelechper
Abrae
Abrahae
Abraham
Abrahamabiit
Abrahamadpendit
Abrahamcogitavi
Abrahamet
Abrahampro
Abrahamsanavit
Abrahamseptem
Abrahamvoci
Abram
Abramet
Abramfilium
Abramhabitavit
Abraminique
Abramnon
Abrampostquam
Abramsicut
Abramtabernaculum
Abundantiam
Acham
Achobor
Ada
Adad
Adadregnavit
Adae
Adam
Adama
Adamae
Adamcentum
Adamnominibus
Aduram
Aegypti
Aegyptiae
Aegyptiafamula
Aegyptiamancillam
Aegyptii
Aegyptiis
Aegyptividerim
Aegypto
Aegyptofestinate
Aegyptovenerunt
Aegyptum
Aegyptumipse
Aegyptumquia
Aegyptus
Aelam
Aelamitarum
Aethiopiae
Agar
Ahaiaet
Ahod
Ahuith
Ai
Alva
Alvamet
Amalech
Amalechitarum
Amatheum
Amdan
Ammanitarum
Ammon
Amorrei
Amorreorumusque
Amorreos
Amorreum
Amrafel
Amrafelregem
Amul
Ana
Anaefiliae
Anam
Anamim
Anan
Aner
Araceum
Arach
Aradium
Aram
Aran
Arbee
Archad
Ared
Areli
Arfaxad
Arioch
Armeniae
Arodi
Asarmoth
Asasonthamar
Asbel
Aschenezet
Aseneth
Aser
Assur
Assuret
Assurim
Assyrios
Astharothcarnaim
Atadquae
Azau
Baalanam
Babel
Babylon
Badadi
Bala
Balaan
Balae
Balam
Balamdederat
Bale
Bara
Barad
Basemath
Basemathquoque
Basemathuxoris
Bathuel
Bathuelis
Bechor
Beeri
Bela
Beniamin
Benoni
Beor
Beria
Bersa
Bersabee
Bersabeeusque
Bethel
Bethleem
Bosra
Buzfratrem
Caath
Cades
Cain
Cainad
Cainagricola
Cainan
Cainanpostquam
Cainanseptuaginta
Cainvehementer
Cainvero
Calumniam
Camuhel
Capthurim
Castra
Castris
Cedar
Cedma
Cedmoneos
Cenez
Cenezeos
Cesluimde
Cetthim
Cetthurae
Cetthuram
Chalanne
Chaldeorum
Chale
Chanaan
Chanaanbenedixitque
Chanaanin
Chanaanminimus
Chanaanservus
Chananeis
Chananeorum
Chananeos
Chananeus
Chananitidis
Charan
Charmi
Chased
Chodorlahomor
Chorreos
Chus
Cineos
Core
Dadan
Damasci
Damascus
Dan
Dan
Debbora
Decla
Dei
Deiad
Deiaeterni
Deies
Deiesto
Deiet
Deifactus
Deiferebatur
Deifilias
Denaba
Deo
Deoambulavit
Deoqui
Deum
Deumfortis
Deummeum
Deus
Deusad
Deuscaelum
Deuscivitates
Deuscongregentur
Deusdote
Deusexcelsus
Deusmercedem
Deusomnem
Deusomnipotens
Deuspatris
Deuspreces
Deusproducat
Deusquae
Deusquid
Deusquod
Deussoporem
Deussubstantiam
Deusterram
Deusvocem
Dina
Dinae
Dinafilia
Dinam
Disan
Disanisti
Dison
Dodanim
Domine
Dominesi
Domini
Dominifactus
Domino
Dominoet
Dominonimis
Dominum
Dominus
Dominusad
Dominuscivitatem
Dominusdomui
Dominusex
Dominusfilio
Dominusin
Dominusodorem
Dominuspropter
Dominusvidebit
Domus
Dothain
Duma
Ebal
Eber
Eden
Edom
Efratham
Ehi
Ela
Eldaa
Eliezer
Eliphaz
Elisa
Elom
Emim
Emor
Emorpatrem
Enoch
Enochcum
Enos
Epha
Ephraim
Ephratae
Ephratam
Ephron
Ephronfilii
Ephronin
Ephronis
Esau
Esauan
Esaueo
Esaufilium
Esaufrater
Esauprimogenitus
Esausermonibus
Esauvalde
Esauvero
Esban
Eschol
Esebon
Eser
Eser
Esrom
Ettheum
Eufraten
Eufrates
Evei
Eveum
Evila
Evilat
Evilausque
Faleg
Falegtriginta
Ferezeis
Ferezeos
Ferezeus
Fichol
Ficholdux
Fletus
Fortissimum
Fortissimus
Fut
Gad
Galaad
Gaom
Gatham
Gazam
Gentium
Geon
Gera
Gerara
Gerarae
Geraram
Geraris
Gergeseos
Gergeseum
Gerson
Gessen
Gessenquod
Gether
Gomer
Gomorrae
Gomorraeterga
Gomorram
Gregis
Guni
Haggi
Ham
Haran
Hava
Havamuxorem
Hebal
Heber
Hebraeis
Hebraeo
Hebraeorum
Hebron
Heliopoleos
Heliopoleosegressus
Helmodad
Helon
Heman
Her
Heret
Heri
Heth
Hethdicens
Hethibi
Hethquadringentos
Hetthei
Hettheo
Hettheos
Hevilaet
Hielom
Hieser
Hieus
Hieuset
Hiram
Hiras
Hoba
Horrei
Horreihabitatores
Horreorum
Hul
Hus
Husan
Iabel
Iaboc
Iachin
Iacob
Iacoba
Iacobabsentibus
Iacobaudivi
Iacobautem
Iacobconfiteri
Iacobcum
Iacobdicentes
Iacobduodecim
Iacobet
Iacobparentibus
Iacobpulmentum
Iacobquare
Iacobusque
Iacobuxorem
Iacobvirgas
Iafeth
Iafethmaiore
Iahelel
Iamin
Iamne
Iare
Iared
Iasihel
Iavan
Idumeorum
Iebuseos
Iebuseum
Iectan
Iedlaph
Iemuhel
Iesboch
Ieschae
Iesuaet
Iesui
Ietheth
Iethran
Iexan
Inimicitias
Inlustrem
Iob
Iobab
Iobabomnes
Iobabregnavit
Iordanem
Iordanis
Ioseph
Iosephde
Iosephdispensatori
Iosephfilii
Iosephfrater
Iosephiam
Iosephnovissimos
Iosephnumquid
Iosephnuntiavit
Iosephpater
Iosephprinceps
Iosephvero
Irad
Iram
Isaac
Isaacdominum
Isaacfilio
Isaacfilium
Isaacpatrem
Isaacprofectus
Isaacquando
Isachar
Ismahel
Ismahelem
Ismahelis
Ismahelitarum
Ismahelitas
Ismahelitis
Israhel
Israhelfratres
Itur
Iubal
Iuda
Iudae
Iudamante
Iudamcessavitque
Iudamet
Iudas
Iudasconfidenter
Iudasdenuntiavit
Iudasfratribus
Iudasquid
Iudith
Iuramenti
Laabim
Laban
Labaninveniam
Labannon
Labanperegrinatus
Labanquid
Labantabernaculum
Lamech
Lathusim
Latitudo
Lesa
Levi
Lia
Liaconcipiens
Liae
Liam
Lianumquid
Loommim
Loth
Lotham
Lothan
Lothde
Lothoculis
Lothregionem
Lothvehementissime
Lud
Ludim
Luza
Luzam
Luzavocabatur
Maacha
Mabdiel
Mabsam
Mabsar
Machir
Madai
Madan
Madian
Madianei
Madianitis
Maeleth
Magoget
Malalehel
Malalehelpostquam
Malalehelsexaginta
Mambre
Manaim
Manasse
Manassen
Manasses
Maneeth
Maserecha
Masma
Massa
Mathusalae
Mathusalam
Mathusalamcentum
Mathusalampostquam
Matred
Matusahel
Matusahelgenuit
Maviahel
Meezabel
Melcha
Melchae
Melchihel
Melchisedech
Merari
Mes
Mesfat
Mesopotamiam
Mesopotamiamsororem
Mesraim
Messa
Meza
Mizaab
Moab
Moabitarum
Mophim
Mosoch
Naaman
Naath
Nabaioth
Nahor
Nahorfratri
Nahorquem
Naphis
Nemrod
Nemrodipse
Nepthalim
Nepthuim
Nineven
Ninevenet
Noe
Noecunctarumque
Noedicens
Noeet
Noein
Noemma
Noeomnia
Ochozath
Odollamita
Odollamitem
Omar
Omardux
Omnipotens
Onam
Onamfilium
Onan
Oolibama
Oolibamafiliae
Oolibamauxoris
Opher
Ophir
Opphim
Palestini
Palestinorum
Phalluet
Phanuhel
Pharan
Pharao
Pharaoascende
Pharaocaput
Pharaonem
Pharaoni
Pharaoniconsilium
Pharaonidicamque
Pharaonis
Pharaoniset
Pharaonisexploratores
Pharaonisin
Pharaopossidet
Phares
Phau
Pheldas
Phetrusim
Philisthim
Philisthinorum
Phinon
Phisonipse
Phuaet
Planctus
Ponti
Putiphar
Putiphare
Rafaim
Rahel
Raheladoraverunt
Rahelconparavit
Rahelet
Raheli
Rahelis
Ramesses
Rauhel
Rauhelfilii
Rauhelin
Rebecca
Rebeccae
Rebeccaequae
Rebeccaet
Rebeccafratrem
Rebeccam
Rebeccaquoque
Regis
Regma
Resen
Reu
Rifath
Roma
Rooboth
Ros
Ruben
Rubenait
Rubenduos
Saba
Sabatha
Sabathaca
Saher
Salade
Sale
Salem
Saleph
Salis
Sallem
Salvatorem
Samariten
Sara
Sarai
Saraisterilis
Sared
Sarra
Sarrae
Sarrafilium
Sarram
Sarrauxore
Sarug
Saul
Save
Savecariathaim
Sebeon
Seboim
Segor
Seir
Sela
Selafilius
Sella
Sellae
Sem
Semeber
Semet
Semla
Semma
Semron
Semsecundum
Sennaab
Sennaar
Sephar
Sephi
Sephion
Sephu
Seth
Sethcentum
Sethdicens
Sidone
Sidonem
Silvestrem
Silvestri
Silvestrishabebat
Sineum
Sobal
Soccoth
Soccothubi
Sodomam
Sodomis
Sodomitaepessimi
Sodomorum
Soor
Suae
Sue
Suni
Sur
Sychem
Sychemfilius
Sycimis
Sycimorum
Symeon
Syri
Syriae
Syriam
Syrorum
Tabee
Tabernacula
Testimonii
Testis
Thaas
Thadal
Thamar
Thamarquod
Thamna
Thamnaconcubina
Thamnam
Thamnas
Thare
Thareducentorum
Thareseptuaginta
Tharsis
Thema
Theman
Themanorum
Thiras
Thogorma
Thola
Thubal
Thubalcain
Tigris
Timor
Timorem
Tu
Ur
Us
Usim
Uzal
Visionis
Viventis
Zabulon
Zamram
Zara
Zare
Zelphaalterum
Zelphae
Zelphaeuxorum
Zelpham
Zevan
Zuzim

ラテン語聖書創世記の固有名詞インデックスが出来ました。