See in Reader
This commit is contained in:
parent
06a8936a90
commit
f6d9dd9810
|
|
@ -11,18 +11,28 @@ use File::Find ;
|
|||
use FindBin '$Bin';
|
||||
use Cwd ;
|
||||
|
||||
my ($pwd, $d, $textEditor, $repoPath, $browser) = ($Bin, "\\");
|
||||
my ($d) = ("\\");
|
||||
my ($workDir, $textEditor, $repoPath, $browser, $blbRef) = ($Bin, "\\");
|
||||
my %abbr;
|
||||
|
||||
if ($^O eq "darwin" || $^O eq "linux") {$d = "/"}
|
||||
|
||||
open LOG, ">:utf8", "Logs${d}mine_log.log" or die ("$!");
|
||||
|
||||
while (<DATA>) {
|
||||
chomp;
|
||||
if (/^([^\t]*)\t([^\t]*)\t([^\t]*)$/) {
|
||||
$abbr{$3} = $2;
|
||||
}
|
||||
}
|
||||
|
||||
my ($udf) = "User_defaults.windows.txt";
|
||||
if ($^O eq "linux") {$udf = "User_defaults.linux.txt"}
|
||||
elsif ($^O eq "darwin") {$udf = "User_defaults.mac.txt"}
|
||||
|
||||
chdir $Bin;
|
||||
|
||||
$pwd = cwd(); say "\$pwd: $pwd"; die;
|
||||
if ($^O eq "MSWin32" || $^O eq "MSWin64") {say $^O; $workDir =~ s/\//\\/g}
|
||||
|
||||
open (my $defaults, "<:utf8", "User${d}$udf") or die "User${d}$udf:\n$!";
|
||||
|
||||
|
|
@ -103,6 +113,7 @@ sub ParseLine {
|
|||
if ($missingLine =~ /^(([^:]*) (\d+):(\d+))\t(\d+)/) {
|
||||
($ref, $bk, $ch, $vs, $sn, $xfAbr) = ($1, $2, $3, $4, $5, $bkAbr{$1});
|
||||
($sch, $svs) = ($ch, $vs);
|
||||
$blbRef = "https://www.blueletterbible.org/net/$abbr{$bk}/$ch/$vs";
|
||||
$strong = "H$sn";
|
||||
say LOG "\$missingLine: $missingLine, \$ref: $ref, \$bk: $bk, \$ch: $ch, \$vs: $vs\n\n";
|
||||
say LOG "\$bk: $bk";
|
||||
|
|
@ -244,7 +255,9 @@ sub Finish {
|
|||
|
||||
say OUT "<p>";
|
||||
foreach my $file ( @tWfiles ) {
|
||||
my $fileText = read_file("$file", binmode => 'utf8');
|
||||
if ($^O eq "MSWin32" || $^O eq "MSWin64") {$file =~ s/\//\\/g}
|
||||
|
||||
my $fileText = read_file("$file", binmode => 'utf8') or die "$!";
|
||||
# While finds entries and Strong's numbers
|
||||
if ($fileText =~ /([^\n]*)($strong\b)([^\n]*)/g) {
|
||||
my ($pre, $found, $post) = ($1, $2, $3);
|
||||
|
|
@ -284,7 +297,78 @@ sub Finish {
|
|||
system `START "" $textEditor $outputFiles`;
|
||||
say "\$excFile: $excFile";
|
||||
system `START "" $textEditor $excFile`;
|
||||
$displayFile =~ s/\//\\/g;
|
||||
say "\$blbRef $blbRef";
|
||||
system `START "" $browser $blbRef`;
|
||||
say "\$displayFile $displayFile";
|
||||
system `START "" $browser $displayFile`;}
|
||||
# if ($^O eq "linux") {system `$browser $displayFile`};
|
||||
}
|
||||
|
||||
__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 Solomon
|
||||
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
|
||||
|
|
|
|||
Loading…
Reference in New Issue