Got Mac version of do.ot and mine.ot running again
This commit is contained in:
parent
1f7be6801b
commit
8f72d003de
|
@ -6,16 +6,19 @@ $| = "\n";
|
|||
use utf8;
|
||||
#use open IN => ":utf8", OUT => ":utf8";
|
||||
use open IO => ":utf8";
|
||||
use File::Find ;
|
||||
use File::Find ;
|
||||
use FindBin '$Bin';
|
||||
use Cwd ;
|
||||
|
||||
my ($pwd, $d, $textEditor, $repoPath, $browser) = (cwd(), "\\");
|
||||
my ($pwd, $d, $textEditor, $repoPath, $browser) = ($Bin, "\\");
|
||||
if ($^O eq "darwin" || $^O eq "linux") {$d = "/"}
|
||||
|
||||
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;
|
||||
|
||||
open (my $defaults, "<:utf8", "User${d}$udf") or die "User${d}$udf:\n$!";
|
||||
|
||||
GetUserDefaults();
|
||||
|
|
|
@ -38,7 +38,7 @@ Ecclesiastes 1:9:
|
|||
|
||||
Ecclesiastes 1:10:
|
||||
[time](other,time)
|
||||
[ages](other,age)
|
||||
[ages](other,time)
|
||||
|
||||
Ecclesiastes 1:11:
|
||||
[times](other,time)
|
||||
|
@ -337,12 +337,13 @@ Ecclesiastes 3:20:
|
|||
|
||||
Ecclesiastes 3:21:
|
||||
[knows](other,know)
|
||||
[spirit](kt,spirit)
|
||||
[mankind](kt,sonofman)
|
||||
[animals](other,beast)
|
||||
[earth](other,earth)
|
||||
|
||||
Ecclesiastes 3:22:
|
||||
[realized](other,understand)
|
||||
[realized](other,know)
|
||||
[better](kt,good)
|
||||
[work](kt,works)
|
||||
[assignment](other,assign)
|
||||
|
@ -378,13 +379,12 @@ Ecclesiastes 4:6:
|
|||
[shepherd](other,shepherd)
|
||||
|
||||
Ecclesiastes 4:7:
|
||||
[returned](other,return)
|
||||
[returned](other,turn)
|
||||
[meaningless](other,vain)
|
||||
|
||||
Ecclesiastes 4:8:
|
||||
[]()
|
||||
[person](kt,soul)
|
||||
[son](kt,son)
|
||||
[brother](kt,brother)
|
||||
[satisfied](kt,filled)
|
||||
[wealth](other,prosper)
|
||||
|
@ -481,7 +481,7 @@ Ecclesiastes 5:8:
|
|||
[just](kt,justice)
|
||||
[province](other,province)
|
||||
[astonished](other,amazed)
|
||||
[watch](other,biblicaltimewatch)
|
||||
[watch](other,watch)
|
||||
|
||||
Ecclesiastes 5:9:
|
||||
[land](other,earth)
|
||||
|
@ -509,7 +509,6 @@ Ecclesiastes 5:13:
|
|||
Ecclesiastes 5:14:
|
||||
[wealth](other,prosper)
|
||||
[bad](kt,evil)
|
||||
[son](kt,son)
|
||||
[fathered](other,father)
|
||||
|
||||
Ecclesiastes 5:15:
|
||||
|
@ -659,6 +658,7 @@ Ecclesiastes 7:7:
|
|||
Ecclesiastes 7:8:
|
||||
[matter](other,word)
|
||||
[patient](other,patient)
|
||||
[spirit](kt,spirit)
|
||||
[better](kt,good)
|
||||
[proud](other,proud)
|
||||
|
||||
|
@ -818,7 +818,7 @@ Ecclesiastes 8:8:
|
|||
[rescue](other,deliverer)
|
||||
|
||||
Ecclesiastes 8:9:
|
||||
[realized](other,understand)
|
||||
[realized](other,know)
|
||||
[heart](kt,heart)
|
||||
[work](kt,works)
|
||||
[time](other,time)
|
||||
|
@ -1085,7 +1085,6 @@ Ecclesiastes 10:17:
|
|||
[blessed](kt,bless)
|
||||
[land](other,earth)
|
||||
[king](other,king)
|
||||
[son](kt,son)
|
||||
[nobles](other,noble)
|
||||
[leaders](other,commander)
|
||||
[time](other,time)
|
||||
|
@ -1125,7 +1124,7 @@ Ecclesiastes 11:3:
|
|||
[earth](other,earth)
|
||||
|
||||
Ecclesiastes 11:4:
|
||||
[watches](other,biblicaltimewatch)
|
||||
[watches](other,watch)
|
||||
[plant](other,sow)
|
||||
|
||||
Ecclesiastes 11:5:
|
||||
|
@ -1159,7 +1158,7 @@ Ecclesiastes 11:9:
|
|||
[good](kt,good)
|
||||
[desires](other,lust)
|
||||
[know](other,know)
|
||||
[judgment](kt,judge)
|
||||
[judgment](kt,justice)
|
||||
|
||||
Ecclesiastes 11:10:
|
||||
[]()
|
||||
|
@ -1230,7 +1229,6 @@ Ecclesiastes 12:11:
|
|||
[shepherd](other,shepherd)
|
||||
|
||||
Ecclesiastes 12:12:
|
||||
[son](kt,son)
|
||||
[aware](other,admonish)
|
||||
[many](other,multiply)
|
||||
[books](other,scroll)
|
||||
|
@ -1244,7 +1242,7 @@ Ecclesiastes 12:13:
|
|||
[mankind](kt,sonofman)
|
||||
|
||||
Ecclesiastes 12:14:
|
||||
[judgment](kt,judge)
|
||||
[judgment](kt,justice)
|
||||
[thing](kt,works)
|
||||
[good](kt,good)
|
||||
[evil](kt,evil)
|
||||
|
|
|
@ -28,15 +28,15 @@ while (<IN>) {
|
|||
|
||||
close IN;
|
||||
|
||||
my $fileText = read_file "$Bin${d}Output${d}Entries_not_handled.txt";
|
||||
my $fileText = read_file "$Bin${d}Output${d}Entries_not_handled.txt" or die "$Bin${d}Output${d}Entries_not_handled.txt: $!";
|
||||
|
||||
say $fileText;
|
||||
|
||||
foreach my $thisNum (sort keys %num) {
|
||||
$fileText =~ s/(\t$thisNum)(\r?\t)/$1\t||$2/g;
|
||||
$fileText =~ s/(\t$thisNum)(\r?\n)/$1\t||$2/g;
|
||||
}
|
||||
|
||||
open OUT, ">$Bin${d}Output${d}Entries_not_handled.txt";
|
||||
open OUT, ">$Bin${d}Output${d}Entries_not_handled.txt" or die "$Bin${d}Output${d}Entries_not_handled.txt: $!";
|
||||
|
||||
print OUT "$fileText";
|
||||
|
||||
|
|
|
@ -1,2 +1,5 @@
|
|||
# Connects the URL, Strong's number, and ref for anomalous entries.
|
||||
here=$PWD
|
||||
#echo $here
|
||||
cd $here
|
||||
perl "Mine.URL.Strong.Verse.OT.2.pl"
|
|
@ -1,22 +0,0 @@
|
|||
#include <fstream>
|
||||
#include <iostream>
|
||||
using namespace std;
|
||||
|
||||
int main () {
|
||||
char data[100];
|
||||
|
||||
// open a file in write mode.
|
||||
ofstream outfile;
|
||||
outfile.open("Temp/Temp_data.txt");
|
||||
|
||||
cout << "Writing to the file" << endl;
|
||||
cout << "Enter line from exceptions file: ";
|
||||
cin.getline(data, 100);
|
||||
|
||||
// write inputted data into the file.
|
||||
outfile << data << endl;
|
||||
|
||||
// close the opened file.
|
||||
outfile.close();
|
||||
return 0;
|
||||
}
|
Binary file not shown.
Binary file not shown.
|
@ -0,0 +1 @@
|
|||
Backup*.docx
|
Loading…
Reference in New Issue