PDF Zech 1-2

MAST_tW_PDF_Updater/FilesForUpdates/Obviate_consistent_deletes_in_new_book.pl

@@ -0,0 +1,47 @@
+# Mark in Entries_not_handled.txt those Strong's numbers listed in the Consistent_Deletes.txt
+
+use 5.12.0;
+use File::Slurp;
+$| = "\n";
+use utf8;
+#use open IN => ":utf8", OUT => ":utf8";
+use open IO => ":utf8";
+use File::Find ;
+use FindBin '$Bin';
+use Cwd ;
+
+my ($pwd, $d, $textEditor, $repoPath, $browser) = (cwd(), "\\");
+if ($^O eq "darwin" || $^O eq "linux") {$d = "/"}
+
+my (@deletes);
+	
+open LOG, ">:utf8", "$Bin${d}Logs${d}log.log" or die;
+
+#	my $fileText = read_file("Exceptions${d}Consistent_Deletes.txt", binmode => 'utf8');
+	#say LOG $fileText;
+	#@deletes = split /\r?\n/, $fileText;
+	#say LOG "\@deletes: @deletes";
+
+	my %obviates;
+	open IN, ("$Bin${d}Exceptions${d}Consistent_Deletes.txt") or die "$!\n$Bin${d}Exceptions${d}Consistent_Deletes.txt";
+		while (<IN>) {
+			chomp;
+			$obviates{$_} = $_ unless exists $obviates{$_}
+		}
+	close IN;
+	
+	my $fileText = read_file("$Bin${d}Output${d}Entries_not_handled.txt", binmode => 'utf8');
+	#foreach my $thisNo (@deletes) {
+	#	$fileText =~ s/(\t$thisNo)(\r?\n)/$1\t||$2/g;
+	#}
+	foreach my $thisNo (sort keys %obviates) {
+		$fileText =~ s/(\t$obviates{$thisNo})(\r?\n)/$1\t||$2/g;
+	}
+	
+	open OUT, ">$Bin${d}Output${d}Entries_not_handled.txt" or die;
+	say OUT $fileText;
+	close OUT;
+
+close LOG;
+
+say "Done."