forked from WycliffeAssociates/en_tw
Moved from repo.
This commit is contained in:
parent
d7b7a09279
commit
865a7333e2
|
@ -1,39 +0,0 @@
|
|||
# Combines most recent ULB with KJV with codes.
|
||||
|
||||
use 5.12.0;
|
||||
|
||||
my ($ulb, $nasb) = ("/Users/Henry/Google Drive/WA/Test/Unlocked Bible/ULB text.txt", "/Users/Henry/Google Drive/WA/Test/data/NASB.Strongs.txt");
|
||||
my ($ref, $val);
|
||||
my (%codes);
|
||||
|
||||
open LOG, ">:utf8", "/Users/Henry/Google Drive/WA/Test/out/log.log" or die;
|
||||
open OUT, ">:utf8", "/Users/Henry/Google Drive/WA/Test/data/ULB.NASB.Strongs.txt" or die;
|
||||
|
||||
open (my $file, "<:utf8", "$nasb") or die "$nasb:\n$!";
|
||||
|
||||
while (my $line = <$file>) {
|
||||
chomp $line;
|
||||
if ($line =~ /^([^\t]*)\t(.*)$/) {
|
||||
($ref, $val) = ($1, $2);
|
||||
$codes{$1} = $2;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
open ($file, "<:utf8", "$ulb") or die "$ulb:\n$!";
|
||||
|
||||
while (my $line = <$file>) {
|
||||
chomp $line;
|
||||
if ($line =~ /^([^\t]*)\t(.*)$/) {
|
||||
($ref, $val) = ($1, $2);
|
||||
if (exists $codes{$ref}) {
|
||||
say OUT "$ref\t$val\n $codes{$ref}"
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
close OUT;
|
||||
close LOG;
|
||||
|
||||
system 'open -a /Applications/BBEdit.app "/Users/Henry/Google Drive/WA/Test/data/ULB.NASB.Strongs.txt"';
|
||||
print "\n\tDone\n\n\tOutput is in /Users/Henry/Google Drive/WA/Test/data/ULB.NASB.Strongs.txt\n\n";
|
File diff suppressed because it is too large
Load Diff
|
@ -1,19 +0,0 @@
|
|||
use 5.12.0;
|
||||
|
||||
my $files = "open -a /Applications/BBEdit.app ";
|
||||
|
||||
open(IN, "/Users/Henry/Google Drive/WA/tN instructions/mismatched_snippets.html") or die "$!/Users/Henry/Google Drive/WA/tN instructions/mismatched_snippets.html";
|
||||
|
||||
while (<IN>) {
|
||||
chomp;
|
||||
# say $_;
|
||||
if (/<p><b>(.*)<\/b><\/p>/) {
|
||||
$files .= "$1 "
|
||||
}
|
||||
}
|
||||
|
||||
close IN;
|
||||
|
||||
say $files;
|
||||
|
||||
system ($files)
|
|
@ -1,224 +0,0 @@
|
|||
# Before running this program, run
|
||||
# find -s . "*.md"
|
||||
# on
|
||||
# /Users/Henry/Documents/git.Door43/en_tn/
|
||||
# and paste the output into dir.dir in that directory
|
||||
|
||||
use 5.12.0;
|
||||
use File::Slurp;
|
||||
use utf8;
|
||||
#use open IN => ":utf8", OUT => ":utf8";
|
||||
use open IO => ":utf8";
|
||||
use Cwd;
|
||||
use File::Find ;
|
||||
|
||||
$" = "\n";
|
||||
|
||||
my $pwd = cwd();
|
||||
my $topDir = "/Users/Henry/Documents/git.Door43/en_tn";
|
||||
|
||||
my (@filesToRun, @array);
|
||||
my $filePattern = '*.md' ;
|
||||
my (%abbrev, %full, %ulb);
|
||||
|
||||
find( sub { push @filesToRun, $File::Find::name if ( m/^(.*)$filePattern$/ && !m/(LICENSE|README|intro)\.$filePattern$/ ) }, $topDir) ;
|
||||
|
||||
my %toDummy = (" \\.\\.\\. ", ".*", "\\?", "QM", "\"", "QD", "\'", "QS", "\!", "XM", "\\(", "QOXP", "\\)", "QCP");
|
||||
my %fromDummy = ("\\.\\*", " ... ", "QM", "?", "QD", "\"", "QS", "'", "XM", "!", "QOXP", "(", "QCP", ")");
|
||||
|
||||
|
||||
open LOG, ">/Users/Henry/Google Drive/WA/Test/out/log.log" or die;
|
||||
|
||||
#open output
|
||||
open OUT, ">/Users/Henry/Google Drive/WA/tN instructions/mismatched_snippets.html" or die;
|
||||
|
||||
#Read in ULB
|
||||
|
||||
ReadData();
|
||||
ReadULB();
|
||||
ProcessFiles();
|
||||
|
||||
sub ReadData {
|
||||
while (<DATA>) {
|
||||
chomp;
|
||||
if (/([^\t]*)\t([^\t]*)\t(.*)/) {
|
||||
($abbrev{$3}, $full{$2}) = ($2, $3)
|
||||
}
|
||||
}
|
||||
#foreach my $key (sort keys %abbrev) {say LOG "$key\t$abbrev{$key}"}
|
||||
#foreach my $key (sort keys %full) {say LOG "$key\t$full{$key}"}
|
||||
}
|
||||
|
||||
sub ReadULB {
|
||||
open IN, "/Users/Henry/Google Drive/WA/Test/Unlocked Bible/ULB text.txt" or die;
|
||||
my ($checkText, $thisChunkText, $thisRef, $thisBook, $thisChap, $thisVerse, $id, $thisText, $tempText, $thisKey);
|
||||
while (<IN>) {
|
||||
chomp;
|
||||
#say LOG ">$_<";
|
||||
if (/^([^\t]*)\t(.*)$/) {
|
||||
my ($tempID, $tempText) = ($1, $2);
|
||||
#say LOG "<$tempID>\t|$tempText|";
|
||||
#say LOG "\$id, \$thisText\t$id, $thisText";
|
||||
($id) = ($tempID);
|
||||
if ($id =~ /^([^:]*) (\d+):(\d+)/) {
|
||||
($thisBook, $thisChap, $thisVerse) = ($1, $2, $3);
|
||||
if ($thisBook ne "Psalms") {
|
||||
while (length $thisChap < 2) {$thisChap =~ s/^/0/};
|
||||
while (length $thisVerse < 2) {$thisVerse =~ s/^/0/}
|
||||
} else {
|
||||
while (length $thisChap < 3) {$thisChap =~ s/^/0/};
|
||||
while (length $thisVerse < 3) {$thisVerse =~ s/^/0/}
|
||||
}
|
||||
$thisBook = $abbrev{$thisBook};
|
||||
}
|
||||
$id = "$thisBook/$thisChap/$thisVerse";
|
||||
$tempText =~ s/\\f \+.*?\\f\*//g;
|
||||
#say LOG $tempText;
|
||||
$tempText =~ s/ {2,}/ /g;
|
||||
$ulb{$id} .= "$tempText ";
|
||||
$ulb{$id} =~ s/— /—/g;
|
||||
$ulb{$id} =~ s/ —/—/g;
|
||||
#say LOG "\$id = $id\n\$ulb{$id} = $ulb{$id}";
|
||||
}
|
||||
}
|
||||
close IN;
|
||||
#say LOG "Hi";
|
||||
#foreach my $key (sort keys %ulb) {say LOG "|$key|\t<$ulb{$key}>"}
|
||||
}
|
||||
|
||||
# assign passages as values to chunk keys
|
||||
|
||||
#Read in each file
|
||||
sub ProcessFiles {
|
||||
foreach my $slice (@filesToRun) {
|
||||
#say LOG ">>\$slice: $slice<<";
|
||||
my ($thisText, $thisNote, $textReserved, $curRef, $tb, $ct, $vt, $anchor);
|
||||
if ($slice =~ /^.*\/(([^\.]*)\/([^\.]*)\/([^\.]*)).md$/) {
|
||||
$curRef = $1;
|
||||
$anchor = $1;
|
||||
($tb, $ct, $vt) = ($2, $3, $4);
|
||||
$tb = $full{$tb};
|
||||
$ct =~ s/^0+//;
|
||||
$vt =~ s/^0+//;
|
||||
#say LOG ">3>$anchor > $tb $ct:$vt<3<";
|
||||
$thisText = $ulb{$anchor};
|
||||
#say LOG ">5>\$anchor: $anchor; \$thisText:\n$thisText<5<";
|
||||
}
|
||||
#my $tN = read_file("$slice", binmode => 'utf8') or die "|$slice|\n$!";
|
||||
my $tN = read_file("$slice", binmode => 'utf8');
|
||||
#my $tN = read_file("$slice", binmode => 'utf8') or next DoFile;
|
||||
#say LOG ">6>\$slice: $slice; \$tN:\n$tN<6<";
|
||||
foreach my $key (sort keys %toDummy) {
|
||||
#say LOG "$key\t|$toDummy{$key}|";
|
||||
$tN =~ s/$key/$toDummy{$key}/g;
|
||||
$thisText =~ s/$key/$toDummy{$key}/g;
|
||||
}
|
||||
$tN =~ s/# ((General Information|Connecting Statement|translationWords):?)[^\r\n]*\r?\n//g;
|
||||
$tN =~ s/\* \[\[[^\r\n]*\r?\n//g;
|
||||
$tN =~ s/(#[^\r\n]*\r?\n)[^\r\n]*\r?\n[^\r\n]*\r?\n/$1/g;
|
||||
# ">7>\n\n\n\$curRef: $curRef\n\$thisText:$thisText\n\$tN: $tN<7<";
|
||||
while ($tN =~ /# ([^\r\n]*)\r?\n/g) {
|
||||
$thisNote = $1;
|
||||
#say LOG ">8>\t>\t|$thisNote|\n$thisText<8<";
|
||||
$thisText =~ s/ {2,}/ /g;
|
||||
#say LOG ">9>\t>\t|$thisNote|\n$thisText<9<";
|
||||
unless ($thisText =~ /$thisNote/) {
|
||||
say LOG ">A>\n$tb $ct:$vt\n$slice\n$thisNote\n$thisText\n<A<";
|
||||
foreach my $key (sort keys %fromDummy) {
|
||||
$thisNote =~ s/$key/$fromDummy{$key}/g;
|
||||
$thisText =~ s/$key/$fromDummy{$key}/g;
|
||||
}
|
||||
push @array, "\n<p>$tb $ct:$vt</p>\n<p><b>$slice</b></p>\n<p><i>$thisNote</i></p>\n<p>$thisText</p>";
|
||||
#push @array, "\t$thisNote";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
print OUT "<?xml version=\"1.0\" encoding=\"utf-8\"?>
|
||||
<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"
|
||||
\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">
|
||||
<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\" lang=\"en\">
|
||||
<head>
|
||||
<meta http-equiv=\"content-type\" content=\"text/html; charset=utf-8\" />
|
||||
<title>Mismatched Snippets</title>
|
||||
<meta name=\"generator\" content=\"BBEdit 8.5\" />
|
||||
</head>
|
||||
<body>
|
||||
@array
|
||||
</body>
|
||||
</html>";
|
||||
close OUT;
|
||||
|
||||
close LOG;
|
||||
|
||||
say "Done.";
|
||||
|
||||
__DATA__
|
||||
01 gen Genesis
|
||||
02 exo Exodus
|
||||
03 lev Leviticus
|
||||
04 num Numbers
|
||||
05 deu Deuteronomy
|
||||
06 jos Joshua
|
||||
07 jdg Judges
|
||||
08 rut Ruth
|
||||
09 1sa 1 Samuel
|
||||
10 2sa 2 Samuel
|
||||
11 1ki 1 Kings
|
||||
12 2ki 2 Kings
|
||||
13 1ch 1 Chronicles
|
||||
14 2ch 2 Chronicles
|
||||
15 ezr Ezra
|
||||
16 neh Nehemiah
|
||||
17 est Esther
|
||||
18 job Job
|
||||
19 psa Psalms
|
||||
20 pro Proverbs
|
||||
21 ecc Ecclesiastes
|
||||
22 sng Song of Songs
|
||||
23 isa Isaiah
|
||||
24 jer Jeremiah
|
||||
25 lam Lamentations
|
||||
26 ezk Ezekiel
|
||||
27 dan Daniel
|
||||
28 hos Hosea
|
||||
29 jol Joel
|
||||
30 amo Amos
|
||||
31 oba Obadiah
|
||||
32 jon Jonah
|
||||
33 mic Micah
|
||||
34 nam Nahum
|
||||
35 hab Habakkuk
|
||||
36 zep Zephaniah
|
||||
37 hag Haggai
|
||||
38 zec Zechariah
|
||||
39 mal Malachi
|
||||
41 mat Matthew
|
||||
42 mrk Mark
|
||||
43 luk Luke
|
||||
44 jhn John
|
||||
45 act Acts
|
||||
46 rom Romans
|
||||
47 1co 1 Corinthians
|
||||
48 2co 2 Corinthians
|
||||
49 gal Galatians
|
||||
50 eph Ephesians
|
||||
51 php Philippians
|
||||
52 col Colossians
|
||||
53 1th 1 Thessalonians
|
||||
54 2th 2 Thessalonians
|
||||
55 1ti 1 Timothy
|
||||
56 2ti 2 Timothy
|
||||
57 tit Titus
|
||||
58 phm Philemon
|
||||
59 heb Hebrews
|
||||
60 jas James
|
||||
61 1pe 1 Peter
|
||||
62 2pe 2 Peter
|
||||
63 1jn 1 John
|
||||
64 2jn 2 John
|
||||
65 3jn 3 John
|
||||
66 jud Jude
|
||||
67 rev Revelation
|
||||
|
|
@ -1,36 +0,0 @@
|
|||
use 5.12.0;
|
||||
use File::Slurp;
|
||||
use File::Find ;
|
||||
use Cwd ;
|
||||
use utf8;
|
||||
#use open IN => ":utf8", OUT => ":utf8";
|
||||
use open IO => ":utf8";
|
||||
|
||||
my $book;
|
||||
my @bookList;
|
||||
|
||||
open (my $file, "<:utf8", "/Users/Henry/Google Drive/WA/Test/data/tW.work.dat") or die "$/Users/Henry/Google Drive/WA/Test/data/tW.work.dat:\n$!";
|
||||
|
||||
while (my $line = <$file>) {
|
||||
chomp $line;
|
||||
if ($line =~ /^([^#][^\t\n]*)\t([^\t\n]*)\t[^\t\n]*$/) {
|
||||
$book = "$1";
|
||||
push @bookList, $book;
|
||||
}
|
||||
}
|
||||
|
||||
close $file;
|
||||
|
||||
|
||||
say "Removing old Extract.txt";
|
||||
|
||||
system `rm \"/Users/Henry/Google Drive/WA/Test/Unlocked Bible/Extract.txt\"`;
|
||||
|
||||
say "Grepping the list of books.";
|
||||
|
||||
foreach $book (@bookList) {
|
||||
say $book;
|
||||
system `grep \"^$book [0-9]*:[0-9]*.*$\" \"/Users/Henry/Google Drive/WA/Test/Unlocked Bible/ULB text.txt\" >> \"/Users/Henry/Google Drive/WA/Test/Unlocked Bible/Extract.txt\"`;
|
||||
}
|
||||
|
||||
say "Done."
|
|
@ -1,106 +0,0 @@
|
|||
use 5.12.0;
|
||||
use utf8;
|
||||
use Cwd;
|
||||
use File::Slurp;
|
||||
use open IO => ":utf8";
|
||||
$| = 1;
|
||||
$" = "\n";
|
||||
|
||||
my ($inDir, $outDir) = ("/Users/Henry/Documents/git.Door43/en_ulb", "out");
|
||||
my ($pwd, $os, $fileSpec) = (cwd(), $^O, "\.usfm");
|
||||
my (@array, @usfmLines);
|
||||
my (%hash);
|
||||
my ($d, $whatami, $inFile);
|
||||
my ($book, $chap, $vers, $text, $outText, $newV, $newC, $newB, $outFile, $usfmText, $metathesis);
|
||||
###
|
||||
if ($os eq "darwin" || $os eq "linux") {$d = "/"}
|
||||
else {$d = "\\"}
|
||||
|
||||
#if (-e $outDir) {
|
||||
# -d _ || die "$whatami: $outDir is not a directory!\n";
|
||||
# -r _ && -w _ && -x _ || die "$whatami: $outDir is inaccessible!\n";
|
||||
# chdir $outDir;
|
||||
# my $glob = unlink glob "*.*";
|
||||
# chdir "$pwd";
|
||||
#}else{
|
||||
# mkdir($outDir, 0755) || die "$whatami: Can't create $outDir!\n";
|
||||
#}
|
||||
|
||||
chdir("$inDir");
|
||||
opendir THISDIR, "." or die "serious dainbramage: $!";
|
||||
my @infiles = grep /$fileSpec$/i, readdir *THISDIR;
|
||||
closedir THISDIR;
|
||||
chdir("$pwd");
|
||||
|
||||
open(LOG, ">:utf8", "$outDir${d}log.log") or die "$outDir${d}log.log:\n$!";
|
||||
say "$outDir${d}log.log open";
|
||||
ProcessFiles();
|
||||
say "Done.";
|
||||
close LOG;
|
||||
|
||||
sub ProcessFiles {
|
||||
my $thisLine;
|
||||
open(OUT, ">:utf8", "/Users/Henry/Google Drive/WA/Test/Unlocked Bible/ULB text.txt") or die "/Users/Henry/Google Drive/WA/Test/Unlocked Bible/ULB text.txt:\n$!";
|
||||
my $finalTextForm;
|
||||
@infiles = sort @infiles;
|
||||
foreach $inFile (@infiles) {
|
||||
my $thisFile;
|
||||
say $inDir . "/" . $inFile;
|
||||
|
||||
$usfmText = read_file("$inDir${d}$inFile", binmode => 'utf8') or die;
|
||||
$usfmText =~ s/\r?\n([^\\ \r\n])/ $1/g;
|
||||
$usfmText =~ s/\\f \+.*?\\f\*//g;
|
||||
$usfmText =~ s/\\pi/\\p/g;
|
||||
$usfmText =~ s/\\((ide?)|(toc.)|(mt|sp)|(c \\d+))[^\r\n]*\r?\n//g;
|
||||
$usfmText =~ s/\r?\n\\(m|pi?|(q\d?)) ([^\r\n]*)\r\n/$3/g;
|
||||
$usfmText =~ s/ +\n/\n/g;
|
||||
$usfmText =~ s/(\n\\v \d+)\n/$1 \[blank\]\n/g;
|
||||
$usfmText =~ s/ —/—/g;
|
||||
#say LOG $usfmText;
|
||||
#say LOG "$usfmText\n=====\n";
|
||||
@usfmLines = "";
|
||||
@usfmLines = split /\r?\n/, $usfmText;
|
||||
foreach $thisLine (@usfmLines) {
|
||||
chomp $thisLine;
|
||||
#say LOG ">\t$thisLine";
|
||||
$thisLine =~ s/^(\\q)[\t ]$/$1/;
|
||||
#say LOG "<\t$thisLine";
|
||||
$thisLine = SearchAndReplace($thisLine);
|
||||
$thisFile .= $thisLine;
|
||||
}
|
||||
$thisFile =~ s/\r?\n>>\t/ /g;
|
||||
$thisFile =~ s/>\t//g;
|
||||
$thisFile =~ s/(\r?\n){2,}/\n/;
|
||||
$thisFile =~ s/— /—/g;
|
||||
$thisFile =~ s/\\q\d//g;
|
||||
$thisFile =~ s/\\p//g;
|
||||
$thisFile =~ s/\\q //g;
|
||||
$thisFile =~ s/\\qs( .*)\\qs\* ?/$1/g;
|
||||
$thisFile =~ s/\n{2,}/\n/g;
|
||||
$thisFile =~ s/ {2,}/ /g;
|
||||
say OUT $thisFile;
|
||||
}
|
||||
close OUT;
|
||||
}
|
||||
|
||||
sub SearchAndReplace {
|
||||
my $thisxLine = shift;
|
||||
#say LOG $thisxLine;
|
||||
$thisxLine =~ s/\\s5.*$/\n-------\n/;
|
||||
if ($thisxLine =~ s/\\h (.+) *$//) {$book = $1;$newB = 1}
|
||||
elsif ($thisxLine =~ s/\\c (\d+)//) {$chap = $1; $newC = 1}
|
||||
elsif ($thisxLine =~ s/\\v (\d+(-\d+)?) (.*)$/$3/) {
|
||||
#print OUT "\n$outText\n";
|
||||
$vers = $1;
|
||||
$newV = 1;
|
||||
$thisxLine = "\n$book $chap:$vers\t$metathesis$thisxLine";
|
||||
$metathesis = ""
|
||||
#say LOG ">\t<$book> $chap:$vers\t$thisxLine";
|
||||
}
|
||||
elsif ($thisxLine =~ s/^\\q\d? (.*)$/ $1/) {}
|
||||
elsif ($thisxLine =~ s/^\\m (.*)$/ $1/) {}
|
||||
elsif ($thisxLine =~ s/^\\d (.*)//) {$metathesis = "$1 "}
|
||||
elsif ($thisxLine =~ s/^\\[qpm]$//) {}
|
||||
#say LOG $thisxLine;
|
||||
return $thisxLine;
|
||||
}
|
|
@ -1,166 +0,0 @@
|
|||
# Routine to take missing.log entries and link to UGNT and ULB.KJV.Strongs
|
||||
|
||||
use 5.12.0;
|
||||
use File::Slurp;
|
||||
$| = "\n";
|
||||
use utf8;
|
||||
#use open IN => ":utf8", OUT => ":utf8";
|
||||
use open IO => ":utf8";
|
||||
use File::Find ;
|
||||
use Cwd ;
|
||||
|
||||
binmode(STDOUT, "encoding(UTF-8)");
|
||||
|
||||
|
||||
my ($outputFiles, $topDir, $xmlFile, $txtFile, $lbsBk, $dataFile, $xmlDir, $doFlag) = (
|
||||
"/Users/Henry/Documents/git.Door43/en_tw/bible/",
|
||||
"/Users/Henry/Documents/git.Door43/en_tw/bible",
|
||||
"",
|
||||
"/Users/Henry/Google Drive/WA/Test/data/ULB.NASB.Strongs.txt",
|
||||
"",
|
||||
"/Users/Henry/Google Drive/WA/Test/data/tW.work.OT.dat",
|
||||
"/Users/Henry/Google Drive/WA/OSHB"
|
||||
);
|
||||
|
||||
my ($missingLine, $bk, $ch, $vs, $ref, $sn, $strong, $word, $flag, $tNid, $abbr, $xfAbr);
|
||||
my (%bkAbr, %bkFull, %wa);
|
||||
|
||||
open LOG, ">:utf8", "/Users/Henry/Google Drive/WA/Test/out/mine.log.log" or die;
|
||||
#open OUT, ">:utf8", $outputFile or die;
|
||||
|
||||
while (<DATA>) {
|
||||
chomp;
|
||||
if (/([^\t]*)\t([^\t]*)\t([^\t]*)/) {
|
||||
$bkAbr{$1} = $2;
|
||||
$bkFull{$2} = $1;
|
||||
$wa{$1} = $3;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
ParseLine();
|
||||
#FindURL();
|
||||
FindVerse($ref);
|
||||
#ChecktWPages($word);
|
||||
#Finish();
|
||||
#close OUT;
|
||||
close LOG;
|
||||
|
||||
print "\n\tDone.\n\n";
|
||||
|
||||
sub ParseLine {
|
||||
say "\n\n\033[0;1;31mEnter line from missing.log:\033[m\n";
|
||||
$missingLine = <STDIN>; # I moved chomp to a new line to make it more readable
|
||||
chomp $missingLine; # Get rid of newline character at the end
|
||||
exit 0 if ($missingLine eq ""); # If empty string, exit.
|
||||
#$missingLine = "Mark 11:6 kt/command";
|
||||
if ($missingLine =~ /^(([^:]*) (\d+):(\d+))\t(\d+)/) {
|
||||
($ref, $bk, $ch, $vs, $sn, $xfAbr) = ($1, $2, $3, $4, $5, $bkAbr{$1});
|
||||
say LOG "\$bk: $bk";
|
||||
open (my $file, "<:utf8", "$dataFile") or die "$dataFile:\n$!";
|
||||
|
||||
while (my $line = <$file>) {
|
||||
chomp $line;
|
||||
if ($line =~ /^(# )?([^\t]*)\t([^\t]*)\t([^\t]*)$/) {
|
||||
my ($fullBk, $numBk, $abr) = ($2, $3, $4);
|
||||
say LOG "\$fullBk: |$fullBk|, \$numBk: $numBk, \$abr: $abr, \$bk: |$bk|";
|
||||
if ($fullBk eq $bk) {
|
||||
say LOG "\$fullBk: |$fullBk|, \$bk: |$bk|";
|
||||
$lbsBk = $abr;
|
||||
$abbr = lc $numBk;
|
||||
say LOG "\$abbr: $abbr";
|
||||
my $mxl;
|
||||
if ($bk eq "Psalms?") {$mxl = 3}
|
||||
else {$mxl = 2}
|
||||
while (length $ch < $mxl) {$ch =~ s/^/0/}
|
||||
while (length $vs < $mxl) {$vs =~ s/^/0/}
|
||||
$xmlFile = "/Users/Henry/Google Drive/WA/OSHB/${numBk}.xml";
|
||||
say LOG "\$abbr/\$ch/\$vs: $abbr/$ch/$vs";
|
||||
system `open -a /Applications/BBEdit.app /Users/Henry/Documents/git.Door43/en_tn/$wa{$fullBk}/$ch/$vs.md`;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
close $file;
|
||||
|
||||
} else {
|
||||
die "\n\tInput unreadable.\n"
|
||||
}
|
||||
#say LOG "Looking for $sn in $xmlFile";
|
||||
#say "Looking to open \$lbsBk\${ch}.\$vs: $lbsBk${ch}.$vs";
|
||||
# say LOG "\$missingLine: $missingLine, \$ref: $ref, \$bk: $bk, \$ch: $ch, \$vs: $vs, \$url: $url\n\n";
|
||||
#system `open -a /Applications/Logos.app "logosres:esv;ref=BibleESV.$lbsBk${ch}.$vs"`;
|
||||
system `open -a /Applications/Logos.app "logos4:TextComparison;ref=BibleESV.$lbsBk${ch}.$vs;res=esv,niv2011,niv,nasb95,nrsv,gs-netbible,nlt,leb,kjv1900"`;
|
||||
}
|
||||
|
||||
sub FindVerse {
|
||||
|
||||
my $fileText = read_file("$txtFile", binmode => 'utf8');
|
||||
|
||||
say LOG "FindVerse |$strong|.";
|
||||
|
||||
if ($flag && $fileText =~ /$ref\t[^\n]*\n[^\n]*\n/) {
|
||||
say LOG "$ref\n$&";
|
||||
say $&;
|
||||
exit 0;
|
||||
} else {
|
||||
if ($fileText =~ /$ref([^\n]*\n )([^\n]*<)$strong(.?>[^\n]*)/) {
|
||||
my ($fore, $precon, $aft) = ($1, $2, $3);
|
||||
say LOG "\$ref: $ref\n\$fore: $fore\n\$precon:\n$precon\n\$aft: $aft";
|
||||
my $preprecon;
|
||||
if ($precon =~ /^(.*([,>\w\'\"\- —;] |['";\.\?\!]))([\w\-]+) (<[^<>]*> )?<$/) {
|
||||
($preprecon, $word) = ($1, $3);
|
||||
say LOG "\$&: $&\n\$preprecon: $preprecon\n\$word: $word";
|
||||
}
|
||||
say "$ref$fore$preprecon\033[0;0;32m$word\033[m <\033[0;1;31m$strong\033[m$aft\n";
|
||||
}
|
||||
else {
|
||||
say "\n\nThe Strong's code <<$strong>> is not found in $ref.\n\n";
|
||||
system ("bbfind -g \"${ref}\\t[^\\n]*\\n[^\\n]*\" '/Users/Henry/Google Drive/WA/Test/data/ULB.NASB.Strongs.txt'") or die "$!";
|
||||
system ("find $topDir -name \"*.md\" -exec grep -H --color \"$strong\[, \\n\\r\]\" {} \\;");
|
||||
#system ("find $topDir -name \"*.md\" -exec grep -H --color \"$strong\$\" {} \\;");
|
||||
}
|
||||
}
|
||||
return $word;
|
||||
}
|
||||
|
||||
__DATA__
|
||||
1 Chronicles 1Chr 1ch
|
||||
1 Kings 1Kgs 1ki
|
||||
1 Samuel 1Sam 1sa
|
||||
2 Chronicles 2Chr 2ch
|
||||
2 Kings 2Kgs 2ki
|
||||
2 Samuel 2Sam 2sa
|
||||
Amos Amos amo
|
||||
Daniel Dan dan
|
||||
Deuteronomy Deut deu
|
||||
Ecclesiastes Eccl ecc
|
||||
Esther Esth est
|
||||
Exodus Exod exo
|
||||
Ezekiel Ezek ezk
|
||||
Ezra Ezra ezr
|
||||
Genesis Gen gen
|
||||
Habakkuk Hab hab
|
||||
Haggai Hag hag
|
||||
Hosea Hos hos
|
||||
Isaiah Isa isa
|
||||
Jeremiah Jer jer
|
||||
Job Job job
|
||||
Joel Joel jol
|
||||
Jonah Jonah jon
|
||||
Joshua Josh jos
|
||||
Judges Judg jdg
|
||||
Lamentations Lam lam
|
||||
Leviticus Lev lev
|
||||
Malachi Mal mal
|
||||
Micah Mic mic
|
||||
Nahum Nah nam
|
||||
Nehemiah Neh neh
|
||||
Numbers Num num
|
||||
Obadiah Obad oba
|
||||
Proverbs Prov pro
|
||||
Psalms Ps psa
|
||||
Ruth Ruth rut
|
||||
Song of Songs Song sng
|
||||
Zechariah Zech zec
|
||||
Zephaniah Zeph zep
|
|
@ -1,202 +0,0 @@
|
|||
# Routine to take missing.log entries and link to UGNT and ULB.KJV.Strongs
|
||||
|
||||
use 5.12.0;
|
||||
use File::Slurp;
|
||||
$| = "\n";
|
||||
use utf8;
|
||||
#use open IN => ":utf8", OUT => ":utf8";
|
||||
use open IO => ":utf8";
|
||||
use File::Find ;
|
||||
use Cwd ;
|
||||
|
||||
binmode(STDOUT, "encoding(UTF-8)");
|
||||
|
||||
my ($outputFiles, $topDir, $usfmFile, $txtFile, $lbsBk, $dataFile, $doFlag) = (
|
||||
"/Users/Henry/Documents/git.Door43/en_tw/bible/",
|
||||
"/Users/Henry/Documents/git.Door43/en_tw/bible",
|
||||
"",
|
||||
"/Users/Henry/Google Drive/WA/Test/data/ULB.NASB.Strongs.txt",
|
||||
"",
|
||||
"/Users/Henry/Google Drive/WA/Test/data/tW.work.dat"
|
||||
);
|
||||
|
||||
my ($missingLine, $bk, $ch, $vs, $ref, $url, $strong, $word, $flag, $putative, $tNid, $abbr);
|
||||
|
||||
open LOG, ">:utf8", "/Users/Henry/Google Drive/WA/Test/out/mine.log.log" or die;
|
||||
#open OUT, ">:utf8", $outputFile or die;
|
||||
|
||||
ParseLine();
|
||||
FindURL();
|
||||
FindVerse($ref);
|
||||
ChecktWPages($word);
|
||||
Finish();
|
||||
#close OUT;
|
||||
close LOG;
|
||||
|
||||
print "\n\tDone.\n\n";
|
||||
|
||||
sub ParseLine {
|
||||
say "\n\n\033[0;1;31mEnter line from missing.log:\033[m\n";
|
||||
$missingLine = <STDIN>; # I moved chomp to a new line to make it more readable
|
||||
chomp $missingLine; # Get rid of newline character at the end
|
||||
exit 0 if ($missingLine eq ""); # If empty string, exit.
|
||||
#$missingLine = "Mark 11:6 kt/command";
|
||||
if ($missingLine =~ /^(([^:]*) (\d+):(\d+))\t([^\/]*\/([^\t]*))/) {
|
||||
($ref, $bk, $ch, $vs, $url, $putative) = ($1, $2, $3, $4, $5, $6);
|
||||
$outputFiles .= "${url}.md ";
|
||||
say LOG "\$bk: $bk";
|
||||
open (my $file, "<:utf8", "$dataFile") or die "$dataFile:\n$!";
|
||||
|
||||
while (my $line = <$file>) {
|
||||
chomp $line;
|
||||
if ($line =~ /^(# )?([^\t]*)\t([^\t]*)\t([^\t]*)$/) {
|
||||
my ($fullBk, $numBk, $abr) = ($2, $3, $4);
|
||||
say LOG "\$fullBk: |$fullBk|, \$numBk: $numBk, \$abr: $abr, \$bk: |$bk|";
|
||||
if ($fullBk eq $bk) {
|
||||
say LOG "\$fullBk: |$fullBk|, \$bk: |$bk|";
|
||||
$lbsBk = $abr;
|
||||
if ($numBk =~ /(\d\d)-(...)/) {
|
||||
$abbr = lc $2;
|
||||
say LOG "\$abbr: $abbr";
|
||||
my $mxl;
|
||||
if ($bk eq "Psalms?") {$mxl = 3}
|
||||
else {$mxl = 2}
|
||||
while (length $ch < $mxl) {$ch =~ s/^/0/}
|
||||
while (length $vs < $mxl) {$vs =~ s/^/0/}
|
||||
}
|
||||
$usfmFile = "/Users/Henry/Documents/git.Door43/UGNT/${numBk}.usfm";
|
||||
say LOG "\$abbr/\$ch/\$vs: $abbr/$ch/$vs";
|
||||
system `open -a /Applications/BBEdit.app /Users/Henry/Documents/git.Door43/en_tn/$abbr/$ch/$vs.md`;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
close $file;
|
||||
|
||||
} else {
|
||||
die "\n\tInput unreadable.\n"
|
||||
}
|
||||
say LOG "Looking for $putative in $usfmFile";
|
||||
say LOG "\$missingLine: $missingLine, \$ref: $ref, \$bk: $bk, \$ch: $ch, \$vs: $vs, \$url: $url\n\n";
|
||||
#system `open -a /Applications/Logos.app "logosres:esv;ref=BibleESV.$lbsBk${ch}.$vs"`;
|
||||
system `open -a /Applications/Logos.app "logos4:TextComparison;ref=BibleESV.$lbsBk${ch}.$vs;res=esv,niv2011,niv,nasb95,nrsv,gs-netbible,nlt,leb,kjv1900"
|
||||
`;
|
||||
}
|
||||
sub FindURL {
|
||||
|
||||
my ($thisChap, $thisVers);
|
||||
|
||||
open (my $file, "<:utf8", "$usfmFile") or die "$usfmFile:\n$!";
|
||||
|
||||
while (my $line = <$file>) {
|
||||
chomp $line;
|
||||
if ($line =~ /\\mt (.*)$/) {
|
||||
my $thisBook = $1;
|
||||
if ($thisBook eq $bk) {
|
||||
say LOG "\$thisBook: $thisBook\t\$bk: $bk";
|
||||
$doFlag = 1;
|
||||
} else {
|
||||
say LOG "\nThe wrong book is being searched.\n"
|
||||
}
|
||||
} elsif ($doFlag && $line =~ /^\\c (\d+)$/) {
|
||||
$thisChap = $1
|
||||
} elsif ($doFlag && $line =~ /^\\v (\d+)$/) {
|
||||
$thisVers = $1
|
||||
} elsif ($doFlag && $thisChap == $ch && $thisVers == $vs) {
|
||||
say LOG "$thisChap:$thisVers $line";
|
||||
if ($line =~ /strong="([GH]....)(.).*$url/) {
|
||||
say "\n\$line:\n$line\n";
|
||||
$strong = $1;
|
||||
my $test = $2;
|
||||
if ($test ne "0") {die "\n\t\tStrong's number won't work.\n\n"}
|
||||
unless ($strong =~ /^.+$/) {die "\nThe Strong's number <$strong> is not found.\n"}
|
||||
while ($strong =~ s/([GH])0/$1/) {}
|
||||
if ($strong =~ /^.+$/) {
|
||||
say "\033[0;1;31m$strong\033[m\n";
|
||||
last
|
||||
}
|
||||
} elsif ($line =~ /\\k-s[^\n]*$url/) {
|
||||
say "\n\t$url is part of a phrase\n";
|
||||
$flag = 1;
|
||||
}
|
||||
} elsif ($line =~ /\\mt (.*)$/) {
|
||||
$doFlag = 0
|
||||
}
|
||||
}
|
||||
|
||||
close $file;
|
||||
|
||||
}
|
||||
|
||||
|
||||
sub FindVerse {
|
||||
|
||||
my $fileText = read_file("$txtFile", binmode => 'utf8');
|
||||
|
||||
say LOG "FindVerse |$strong|.";
|
||||
|
||||
if ($flag && $fileText =~ /$ref\t[^\n]*\n[^\n]*\n/) {
|
||||
say LOG "$ref\n$&";
|
||||
say $&;
|
||||
exit 0;
|
||||
} else {
|
||||
if ($fileText =~ /$ref([^\n]*\n )([^\n]*<)$strong(.?>[^\n]*)/) {
|
||||
my ($fore, $precon, $aft) = ($1, $2, $3);
|
||||
say LOG "\$ref: $ref\n\$fore: $fore\n\$precon:\n$precon\n\$aft: $aft";
|
||||
my $preprecon;
|
||||
if ($precon =~ /^(.*([,>\w\'\"\- —;] |['";\.\?\!]))([\w\-]+) (<[^<>]*> )?<$/) {
|
||||
($preprecon, $word) = ($1, $3);
|
||||
say LOG "\$&: $&\n\$preprecon: $preprecon\n\$word: $word";
|
||||
}
|
||||
say "$ref$fore$preprecon\033[0;0;32m$word\033[m <\033[0;1;31m$strong\033[m$aft\n";
|
||||
}
|
||||
else {
|
||||
say "\n\nThe Strong's code <<$strong>> is not found in $ref.\n\n";
|
||||
system ("bbfind -g \"${ref}\\t[^\\n]*\\n[^\\n]*\" '/Users/Henry/Google Drive/WA/Test/data/ULB.NASB.Strongs.txt'") or die "$!";
|
||||
system ("find $topDir -name \"*.md\" -exec grep -H --color \"$strong\[, \\n\\r\]\" {} \\;");
|
||||
#system ("find $topDir -name \"*.md\" -exec grep -H --color \"$strong\$\" {} \\;");
|
||||
}
|
||||
}
|
||||
return $word;
|
||||
}
|
||||
|
||||
sub ChecktWPages{
|
||||
|
||||
say LOG "<<$word>>";
|
||||
die "\n\$word is empty.\n" if $word eq "";
|
||||
my $topDir = "/Users/Henry/Documents/git.Door43/en_tw/bible";
|
||||
|
||||
my @filesToRun = ();
|
||||
my $filePattern = '*.md' ;
|
||||
find( sub { push @filesToRun, $File::Find::name if ( m/^(.*)$filePattern$/ ) }, $topDir) ;
|
||||
|
||||
foreach my $file ( @filesToRun ) {
|
||||
my $fileText = read_file("$file", binmode => 'utf8');
|
||||
# While finds entries and Strong's numbers
|
||||
while ($fileText =~ /($strong)[^\d]|^(# [^\n]*\b$word\b)/g) {
|
||||
#system `clear`;
|
||||
my $abb = $file;
|
||||
$abb =~ s/.md$//;
|
||||
say "\033[0;1;31m$abb\033[m";
|
||||
$outputFiles .= "$file "
|
||||
}
|
||||
}
|
||||
}
|
||||
sub Finish {
|
||||
say "\nLooking for $strong.";
|
||||
# find $topDir -name "*.md" -exec grep -H '($strong[^\d]|$strong$)' {} +
|
||||
system ("find $topDir -name \"*.md\" -exec grep -H --color \"$strong\[, \\n\\r\]\" {} \\;");
|
||||
system ("find $topDir -name \"*.md\" -exec grep -H --color \"$strong\$\" {} \\;");
|
||||
#system ("find $topDir -name \"*.md\" -exec grep -H --color \"\($strong\[, \\n\\r\]\|$strong\$\)\" {} \\;");
|
||||
say "\nLooking for $putative.";
|
||||
#system ("find $topDir -name \"*.md\" -exec grep -Hi --color \"^# $putative\[^A-Za-z\]\" {} \\;");
|
||||
#system ("find $topDir -name \"*.md\" -exec grep -Hi --color \"^# .*\[^A-Za-z\]$putative\[^A-Za-z\]\" {} \\;");
|
||||
system ("find $topDir -name \"*.md\" -exec egrep -Hi --color \"^# (.*\[^A-Za-z\])?$putative\[^A-Za-z\]\" {} \\;");
|
||||
say "\nLooking for $word.";
|
||||
#system ("find $topDir -name \"*.md\" -exec grep -Hi --color \"^#$word\[^A-Za-z\]\" {} \\;");
|
||||
#system ("find $topDir -name \"*.md\" -exec grep -Hi --color \"^# .*\[^A-Za-z\]$word\[^A-Za-z\]\" {} \\;");
|
||||
system ("find $topDir -name \"*.md\" -exec egrep -Hi --color \"^# (.*\[^A-Za-z\])?$word\[^A-Za-z\]\" {} \\;");
|
||||
say "Opening .md files.";
|
||||
system `open -a /Applications/Firefox.app https://www.blueletterbible.org/lang/lexicon/lexicon.cfm?strongs=$strong`;
|
||||
system `open -a /Applications/BBEdit.app $outputFiles`;
|
||||
}
|
|
@ -1,11 +0,0 @@
|
|||
# opens files with mismatched snippets
|
||||
|
||||
use 5.12.0;
|
||||
use File::Slurp;
|
||||
my $openString = "";
|
||||
my $fileText = read_file("/Users/Henry/Google Drive/WA/tN instructions/mismatched_snippets.html", binmode => 'utf8');
|
||||
while ($fileText =~ /<p><b>(.*)<\/b><\/p>/g) {
|
||||
$openString .= "$1 " unless $openString =~ /$1/;
|
||||
}
|
||||
say "\n\nopen -a /Applications/BBEdit.app $openString\n";
|
||||
system 'open -a /Applications/BBEdit.app $openString';
|
|
@ -1,33 +0,0 @@
|
|||
use 5.12.0;
|
||||
|
||||
my ($bk, $ch, $vs, $outputFile, $ulb, $tw, $dir, $ref) = ("", "", "", "/Users/Henry/Documents/git.Door43/en_tw/ForPDF/tWs.for.PDF.txt");
|
||||
|
||||
open LOG, ">:utf8", "/Users/Henry/Google Drive/WA/Test/out/log.log" or die;
|
||||
open OUT, ">:utf8", $outputFile or die;
|
||||
say OUT "Book,Chapter,Verse,Term,Dir,Ref";
|
||||
|
||||
open (my $file, "<:utf8", "/Users/Henry/Google Drive/WA/Test/out/output.dat") or die "/Users/Henry/Google Drive/WA/Test/out/output.dat:\n$!";
|
||||
|
||||
while (my $line = <$file>) {
|
||||
chomp $line;
|
||||
#say LOG $line;
|
||||
if ($line =~ /^([^:]*) (\d+):(\d+):$/) {
|
||||
($bk, $ch, $vs) = ($1, $2, $3);
|
||||
say LOG $line;
|
||||
} elsif ($line =~ /^\[([^\]]*)\]\(([^\)]*)\)$/) {
|
||||
($ulb, $tw) = ($1, $2);
|
||||
if ($tw =~ /^([^\/]*)\/([^\/]*)$/) {
|
||||
($dir, $ref) = ($1, $2)
|
||||
}
|
||||
say OUT "$bk,$ch,$vs,\"$ulb\",$dir,$ref"
|
||||
}
|
||||
}
|
||||
|
||||
close $file;
|
||||
|
||||
close OUT;
|
||||
close LOG;
|
||||
|
||||
system 'open -a /Applications/BBEdit.app $outputFile';
|
||||
|
||||
print "\n\tDone.";
|
|
@ -1,61 +0,0 @@
|
|||
# Updating the tW list for PDFs
|
||||
|
||||
These procedures work on my Mac. If a version is needed for another machine, I can adapt it, as can anyone familiar with scripts.
|
||||
|
||||
## Files needed
|
||||
|
||||
I have put the files I use in the Git. The directory structures assumed by the scripts will have to be changed if the work is done on another machine. (At some point I'll need to make this a single-directory package.)
|
||||
|
||||
### Shell scripts (Batch files in Windows)
|
||||
|
||||
do.sh
|
||||
mine.sh
|
||||
update.sh
|
||||
waa.sh
|
||||
|
||||
### Perl scripts
|
||||
|
||||
CombineULBandNASBwithCodes.pl
|
||||
ExtractLinksFromScratchPad.pl
|
||||
FindMismatchedULBSnippets.2.noChunks.pl
|
||||
GrepBook.pl
|
||||
MakeULB.2.pl
|
||||
Mine.URL.Strong.Verse.pl
|
||||
OpenMismatchedFiles.pl
|
||||
Output.to.csv.pl
|
||||
|
||||
### Exceptions file
|
||||
|
||||
Exceptions.tWs.from.UGNT.txt
|
||||
|
||||
## Procedures
|
||||
|
||||
**First run do.sh**
|
||||
|
||||
>sh do.sh
|
||||
|
||||
This will pull the latest of all files down, update the ULB, and check for missing key words.
|
||||
|
||||
**For each missing keyword pair in the missing.log file**
|
||||
|
||||
* Select the line, including the EOL
|
||||
* Run mine.sh
|
||||
|
||||
>sh mine.sh
|
||||
|
||||
* Paste the copied line to answer the prompt
|
||||
* Choose the best alternative
|
||||
* change key word associated with the Strong's number
|
||||
* specify ULB text to go with that key word
|
||||
* comment out the key word so it is not in the tW list
|
||||
|
||||
**After dealing with all missing words**
|
||||
|
||||
* Push all changes to the Git
|
||||
* Run do.sh again to make sure no new errors have been introduced
|
||||
* Run waa.sh to check for and correct ULB–tN snippet mismatches
|
||||
|
||||
**After all corrections have been made**
|
||||
|
||||
* Run Output.to.csv.pl to update the local repo
|
||||
* Commit all changes
|
|
@ -1,5 +0,0 @@
|
|||
sh update.sh
|
||||
#perl "/Users/Henry/Google Drive/WA/Test/tWs.from.UGNT.4.pl"
|
||||
#perl "/Users/Henry/Google Drive/WA/Test/tWs.from.UGNT.5.pl"
|
||||
#perl "/Users/Henry/Google Drive/WA/Test/tWs.from.UGNT.6.pl"
|
||||
perl "/Users/Henry/Google Drive/WA/Test/tWs.from.UGNT.7.pl"
|
|
@ -1,2 +0,0 @@
|
|||
# Connects the URL, Strong's number, and ref for anomalous entries.
|
||||
perl "/Users/Henry/Google Drive/WA/Test/Mine.URL.Strong.Verse.pl"
|
|
@ -1,4 +0,0 @@
|
|||
perl "/Users/Henry/Google Drive/WA/Test/MakeULB.2.pl"
|
||||
perl "/Users/Henry/Google Drive/WA/Test/CombineULBandNASBwithCodes.pl";
|
||||
perl "/Users/Henry/Google Drive/WA/Test/GrepBook.pl";
|
||||
#perl "/Users/Henry/Google Drive/WA/Test/GrepBook.0.pl";
|
|
@ -1,21 +0,0 @@
|
|||
cd "/Users/Henry/Documents/git.Door43/en_ulb"
|
||||
git pull
|
||||
cd "/Users/Henry/Documents/git.Door43/en_udb"
|
||||
git pull
|
||||
cd "/Users/Henry/Documents/git.Door43/en_tw"
|
||||
git pull
|
||||
cd "/Users/Henry/Documents/git.Door43/en_tn"
|
||||
git pull
|
||||
cd "/Users/Henry/Documents/git.Door43/en_hq"
|
||||
git pull
|
||||
cd "/Users/Henry/Google Drive/WA/Test/"
|
||||
perl "/Users/Henry/Google Drive/WA/Test/MakeULB.2.pl"
|
||||
perl "/Users/Henry/Google Drive/WA/Test/FindMismatchedULBSnippets.2.noChunks.pl"
|
||||
# cp "/Users/Henry/Google Drive/WA/Test/out/output.dat" "/Users/Henry/Google Drive/WA/tN instructions/mismatched_snippets.html"
|
||||
#perl "/Users/Henry/Google Drive/WA/Test/CombineULBandKJVwithCodes.pl"
|
||||
perl "/Users/Henry/Google Drive/WA/Test/CombineULBandNASBwithCodes.pl"
|
||||
open -a /Applications/Firefox.app "/Users/Henry/Google Drive/WA/tN instructions/mismatched_snippets.html"
|
||||
#open -a /Applications/BBEdit.app "/Users/Henry/Google Drive/WA/tN instructions/mismatched_snippets.html"
|
||||
perl "/Users/Henry/Google Drive/WA/Test/OpenMismatchedFiles.pl"
|
||||
open -a /Applications/BBEdit.app "/Users/Henry/Google Drive/WA/Test/Unlocked Bible/ULB text.txt"
|
||||
perl "/Users/Henry/Google Drive/WA/Test/ExtractLinksFromScratchPad.pl"
|
30410
ForPDF/tWs.for.PDF.txt
30410
ForPDF/tWs.for.PDF.txt
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue