forked from hmw3/Tips_and_Hacks
See in Reader
PDF 1 Kings
This commit is contained in:
parent
80e41049f6
commit
201a155e9a
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,266 @@
|
|||
1 Kings 11:8 2076
|
||||
1 Kings 11:11 6680
|
||||
1 Kings 11:14 7854
|
||||
1 Kings 11:17 1272
|
||||
1 Kings 11:18 4428
|
||||
1 Kings 11:21 6547
|
||||
1 Kings 11:23 7854
|
||||
1 Kings 11:24 1416
|
||||
1 Kings 11:24 2026
|
||||
1 Kings 11:24 4427
|
||||
1 Kings 11:26 5650
|
||||
1 Kings 11:34 4687
|
||||
1 Kings 11:40 4428
|
||||
1 Kings 11:43 8010
|
||||
1 Kings 12:4 7186
|
||||
1 Kings 12:13 3289
|
||||
1 Kings 12:16 5159
|
||||
1 Kings 12:18 553
|
||||
1 Kings 12:27 2077
|
||||
1 Kings 12:32 2076
|
||||
1 Kings 13:7 5582
|
||||
1 Kings 13:11 1
|
||||
1 Kings 13:21 4687
|
||||
1 Kings 13:21 6680
|
||||
1 Kings 13:29 2205
|
||||
1 Kings 13:33 2655
|
||||
1 Kings 14:6 7186
|
||||
1 Kings 14:10 3379
|
||||
1 Kings 14:11 3379
|
||||
1 Kings 14:24 8441
|
||||
1 Kings 14:25 4714
|
||||
1 Kings 14:27 7323
|
||||
1 Kings 14:28 7323
|
||||
1 Kings 15:2 4427
|
||||
1 Kings 15:2 53
|
||||
1 Kings 15:10 4427
|
||||
1 Kings 15:10 53
|
||||
1 Kings 15:20 3672
|
||||
1 Kings 15:22 5355
|
||||
1 Kings 16:3 1197
|
||||
1 Kings 16:7 4639
|
||||
1 Kings 16:9 7910
|
||||
1 Kings 16:10 4191
|
||||
1 Kings 17:1 8453
|
||||
1 Kings 17:18 5771
|
||||
1 Kings 17:22 2421
|
||||
1 Kings 18:15 6635
|
||||
1 Kings 18:29 5012
|
||||
1 Kings 18:30 7495
|
||||
1 Kings 18:34 5930
|
||||
1 Kings 18:45 6937
|
||||
1 Kings 19:1 5030
|
||||
1 Kings 19:10 6635
|
||||
1 Kings 19:11 2389
|
||||
1 Kings 19:11 6561
|
||||
1 Kings 19:14 6635
|
||||
1 Kings 20:6 4261
|
||||
1 Kings 20:10 8168
|
||||
1 Kings 20:11 2296
|
||||
1 Kings 20:12 5650
|
||||
1 Kings 20:14 4082
|
||||
1 Kings 20:15 4082
|
||||
1 Kings 20:16 7910
|
||||
1 Kings 20:17 4082
|
||||
1 Kings 20:19 4082
|
||||
1 Kings 20:32 2296
|
||||
1 Kings 20:33 5172
|
||||
1 Kings 20:38 2664
|
||||
1 Kings 20:40 2782
|
||||
1 Kings 21:7 3478
|
||||
1 Kings 21:8 2715
|
||||
1 Kings 21:10 1100
|
||||
1 Kings 21:13 1100
|
||||
1 Kings 21:26 8581
|
||||
1 Kings 22:10 1637
|
||||
1 Kings 22:27 3608
|
||||
1 Kings 22:27 3906
|
||||
1 Kings 22:30 2664
|
||||
1 Kings 22:44 2076
|
||||
1 Kings 22:46 1197
|
||||
2 Kings 1:2 2421
|
||||
2 Kings 1:13 2603
|
||||
2 Kings 2:24 8034
|
||||
2 Kings 3:4 5349
|
||||
2 Kings 3:14 6635
|
||||
2 Kings 3:19 3510
|
||||
2 Kings 3:21 6817
|
||||
2 Kings 3:21 2296
|
||||
2 Kings 4:13 2729
|
||||
2 Kings 4:13 2731
|
||||
2 Kings 4:23 7965
|
||||
2 Kings 4:26 7965
|
||||
2 Kings 4:27 1920
|
||||
2 Kings 4:27 4843
|
||||
2 Kings 4:29 2296
|
||||
2 Kings 4:38 8239
|
||||
2 Kings 4:39 6398
|
||||
2 Kings 4:42 1061
|
||||
2 Kings 5:2 1416
|
||||
2 Kings 5:2 7617
|
||||
2 Kings 5:3 1404
|
||||
2 Kings 5:17 6776
|
||||
2 Kings 5:21 7323
|
||||
2 Kings 5:21 7965
|
||||
2 Kings 5:22 7965
|
||||
2 Kings 5:24 6076
|
||||
2 Kings 6:26 3467
|
||||
2 Kings 6:27 3467
|
||||
2 Kings 6:32 7523
|
||||
2 Kings 6:32 3905
|
||||
2 Kings 7:2 7991
|
||||
2 Kings 7:3 8179
|
||||
2 Kings 7:9 216
|
||||
2 Kings 7:9 5771
|
||||
2 Kings 7:15 2648
|
||||
2 Kings 7:17 7991
|
||||
2 Kings 7:19 7991
|
||||
2 Kings 8:3 6817
|
||||
2 Kings 8:5 6817
|
||||
2 Kings 8:8 2421
|
||||
2 Kings 8:9 4853
|
||||
2 Kings 8:9 2421
|
||||
2 Kings 8:10 2421
|
||||
2 Kings 8:14 2421
|
||||
2 Kings 8:19 5216
|
||||
2 Kings 8:20 6586
|
||||
2 Kings 8:20 4428
|
||||
2 Kings 8:21 168
|
||||
2 Kings 9:1 2296
|
||||
2 Kings 9:6 4886
|
||||
2 Kings 9:8 3478
|
||||
2 Kings 9:11 7965
|
||||
2 Kings 9:15 7495
|
||||
2 Kings 9:18 4397
|
||||
2 Kings 9:23 4820
|
||||
2 Kings 9:25 7991
|
||||
2 Kings 9:25 6776
|
||||
2 Kings 9:31 2026
|
||||
2 Kings 9:33 8058
|
||||
2 Kings 10:11 8300
|
||||
2 Kings 10:20 6942
|
||||
2 Kings 10:25 7323
|
||||
2 Kings 11:2 269
|
||||
2 Kings 11:5 4931
|
||||
2 Kings 11:6 7323
|
||||
2 Kings 11:6 4931
|
||||
2 Kings 11:11 7323
|
||||
2 Kings 11:13 7323
|
||||
2 Kings 11:16 4428
|
||||
2 Kings 11:19 7323
|
||||
2 Kings 12:15 530
|
||||
2 Kings 13:5 3467
|
||||
2 Kings 13:5 168
|
||||
2 Kings 13:7 7273
|
||||
2 Kings 13:9 3101
|
||||
2 Kings 13:12 3101
|
||||
2 Kings 13:13 3101
|
||||
2 Kings 13:14 3101
|
||||
2 Kings 13:14 1058
|
||||
2 Kings 13:20 1416
|
||||
2 Kings 13:21 1416
|
||||
2 Kings 13:21 2421
|
||||
2 Kings 13:23 7355
|
||||
2 Kings 13:25 3101
|
||||
2 Kings 14:6 4872
|
||||
2 Kings 14:7 8034
|
||||
2 Kings 14:9 7429
|
||||
2 Kings 14:12 168
|
||||
2 Kings 14:20 3389
|
||||
2 Kings 14:26 4784
|
||||
2 Kings 14:27 3101
|
||||
2 Kings 15:10 4191
|
||||
2 Kings 15:13 5818
|
||||
2 Kings 15:14 4191
|
||||
2 Kings 15:20 1368
|
||||
2 Kings 15:30 4191
|
||||
2 Kings 15:32 5818
|
||||
2 Kings 15:34 5818
|
||||
2 Kings 16:6 3064
|
||||
2 Kings 16:10 1823
|
||||
2 Kings 16:13 5262
|
||||
2 Kings 16:13 8002
|
||||
2 Kings 16:15 1239
|
||||
2 Kings 16:17 7112
|
||||
2 Kings 16:17 4526
|
||||
2 Kings 17:4 4714
|
||||
2 Kings 17:4 3608
|
||||
2 Kings 17:7 4428
|
||||
2 Kings 17:8 2708
|
||||
2 Kings 17:13 4687
|
||||
2 Kings 17:13 8451
|
||||
2 Kings 17:13 6680
|
||||
2 Kings 17:15 5749
|
||||
2 Kings 17:15 6680
|
||||
2 Kings 17:16 6635
|
||||
2 Kings 17:17 7081
|
||||
2 Kings 17:17 5172
|
||||
2 Kings 17:19 2708
|
||||
2 Kings 17:21 5080
|
||||
2 Kings 17:31 433
|
||||
2 Kings 17:34 3372
|
||||
2 Kings 17:36 3372
|
||||
2 Kings 17:36 2076
|
||||
2 Kings 18:4 3807
|
||||
2 Kings 18:8 4013
|
||||
2 Kings 18:16 3063
|
||||
2 Kings 18:19 982
|
||||
2 Kings 18:20 6098
|
||||
2 Kings 18:21 4938
|
||||
2 Kings 18:21 7533
|
||||
2 Kings 18:21 4428
|
||||
2 Kings 18:26 3066
|
||||
2 Kings 18:32 3323
|
||||
2 Kings 18:36 4687
|
||||
2 Kings 19:7 8052
|
||||
2 Kings 19:21 3932
|
||||
2 Kings 19:22 1442
|
||||
2 Kings 19:24 6979
|
||||
2 Kings 19:25 5327
|
||||
2 Kings 19:26 2865
|
||||
2 Kings 19:26 7054
|
||||
2 Kings 19:31 6635
|
||||
2 Kings 20:3 577
|
||||
2 Kings 20:7 8384
|
||||
2 Kings 20:7 2421
|
||||
2 Kings 20:19 571
|
||||
2 Kings 21:2 8441
|
||||
2 Kings 21:3 6635
|
||||
2 Kings 21:5 6635
|
||||
2 Kings 21:6 3049
|
||||
2 Kings 22:11 5612
|
||||
2 Kings 22:13 1
|
||||
2 Kings 22:14 899
|
||||
2 Kings 22:19 5002
|
||||
2 Kings 23:4 6635
|
||||
2 Kings 23:5 6635
|
||||
2 Kings 23:6 1854
|
||||
2 Kings 23:7 5422
|
||||
2 Kings 23:12 7323
|
||||
2 Kings 23:15 1854
|
||||
2 Kings 23:17 6725
|
||||
2 Kings 23:19 4639
|
||||
2 Kings 23:24 3049
|
||||
2 Kings 23:24 1544
|
||||
2 Kings 23:24 1197
|
||||
2 Kings 23:25 8451
|
||||
2 Kings 23:25 4872
|
||||
2 Kings 23:27 3988
|
||||
2 Kings 23:29 6578
|
||||
2 Kings 23:30 1
|
||||
2 Kings 23:33 6066
|
||||
2 Kings 24:2 1416
|
||||
2 Kings 24:7 6578
|
||||
2 Kings 24:10 5650
|
||||
2 Kings 24:11 5650
|
||||
2 Kings 24:13 7112
|
||||
2 Kings 24:15 193
|
||||
2 Kings 24:15 352
|
||||
2 Kings 24:15 1473
|
||||
2 Kings 24:16 1368
|
||||
2 Kings 25:1 1785
|
||||
2 Kings 25:15 4289
|
||||
2 Kings 25:21 4191
|
||||
2 Kings 25:25 3064
|
||||
2 Kings 25:27 3608
|
||||
2 Kings 25:30 4428
|
||||
|
|
@ -3,7 +3,7 @@
|
|||
|
||||
## 01 Genesis gen Ge
|
||||
## 02 Exodus exo Ex
|
||||
03 Leviticus lev Le
|
||||
#03 Leviticus lev Le
|
||||
## 04 Numbers num Nu
|
||||
## 05 Deuteronomy deu De
|
||||
#06 Joshua jos Jos
|
||||
|
|
@ -11,8 +11,8 @@
|
|||
#08 Ruth rut Ru
|
||||
#09 1 Samuel 1sa 1Sa
|
||||
#10 2 Samuel 2sa 2Sa
|
||||
## 11 1 Kings 1ki 1Ki
|
||||
## 12 2 Kings 2ki 2Ki
|
||||
11 1 Kings 1ki 1Ki
|
||||
12 2 Kings 2ki 2Ki
|
||||
#13 1 Chronicles 1ch 1Ch
|
||||
#14 2 Chronicles 2ch 2Ch
|
||||
#15 Ezra ezr Ezr
|
||||
|
|
|
|||
|
|
@ -9,7 +9,7 @@
|
|||
|
||||
# Make sure the correct input file is $ULBfile. Run script.
|
||||
# Output is in $output file.
|
||||
# Check the $missing
|
||||
# Check the $not_handled
|
||||
# file for needed corrections, probably lines needing to be added to the
|
||||
# $exceptions file.
|
||||
# Change from ver. 2 in that this uses converted MAST_HB files.
|
||||
|
|
@ -40,7 +40,7 @@ elsif ($^O eq "darwin") {$udf = "User_defaults.mac.txt"}
|
|||
|
||||
open (my $defaults, "<:utf8", "$pwd${d}User${d}$udf") or die "$pwd${d}User${d}$udf:\n$!";
|
||||
|
||||
my ($cv, $ULBfile, $exceptions, $missing, $exc_log, $tW_log, $log, $output, $workFile) =
|
||||
my ($cv, $ULBfile, $exceptions, $not_handled, $exc_log, $tW_log, $log, $output, $workFile) =
|
||||
("00000",
|
||||
"$Bin${d}Temp${d}Extract.txt",
|
||||
"$Bin${d}Exceptions${d}Exceptions_tWs_from_MAST_HB.txt",
|
||||
|
|
@ -66,7 +66,7 @@ my (@MAST_HBfileList);
|
|||
chdir("$pwd");
|
||||
open LOG, ">:utf8", "$exc_log" or die "\$log: $exc_log: $!";
|
||||
open OUT, ">:utf8", $output or die "$!";
|
||||
open MISSING, ">$missing" or die "$!";
|
||||
open MISSING, ">$not_handled" or die "$!";
|
||||
|
||||
while (<DATA>) {
|
||||
chomp;
|
||||
|
|
@ -93,7 +93,7 @@ close MISSING;
|
|||
close OUT;
|
||||
close LOG;
|
||||
|
||||
if ($^O eq "darwin") {system ("$textEditor $missing")}
|
||||
if ($^O eq "darwin") {system ("$textEditor $not_handled")}
|
||||
|
||||
print "\n\tDone.\n\n";
|
||||
|
||||
|
|
@ -300,10 +300,12 @@ sub LinkSNsToULBtextViaEntries {
|
|||
$listOfPages{$thisCV} = "";
|
||||
#say LOG "\$SNsInCV{$thisCV}: |$SNsInCV{$thisCV}|\n$text{$thisCV}";
|
||||
#say LOG "\t\$SNsInCV{$thisCV}: >$SNsInCV{$thisCV}<\n\$text{$thisCV}: $text{$thisCV}";
|
||||
|
||||
$SNsInCV{$thisCV} =~ s/√+$//;
|
||||
$SNsInCV{$thisCV} =~ s/^ +//;
|
||||
$SNsInCV{$thisCV} =~ s/ +$//;
|
||||
$SNsInCV{$thisCV} =~ s/ {2,}/ /g;
|
||||
#say LOG "*\t\$SNsInCV{$thisCV}: >$SNsInCV{$thisCV}<";
|
||||
say LOG "*\t\$SNsInCV{$thisCV}: >$SNsInCV{$thisCV}<";
|
||||
if (exists $specifiedText{$thisCV}) {
|
||||
#say LOG "*\t\$SNsInCV{$thisCV}: $SNsInCV{$thisCV}";
|
||||
|
||||
|
|
@ -312,44 +314,63 @@ sub LinkSNsToULBtextViaEntries {
|
|||
$SNsInCV{$thisCV} =~ s/^ +(.*)/$1/;
|
||||
$SNsInCV{$thisCV} =~ s/(.*) +$/$1/;
|
||||
$SNsInCV{$thisCV} =~ s/ {2,}/ /g;
|
||||
$SNsInCV{$thisCV} =~ s/^√+//;
|
||||
$SNsInCV{$thisCV} =~ s/√{2,}/√/g;
|
||||
$SNsInCV{$thisCV} =~ s/√ /√/g;
|
||||
$SNsInCV{$thisCV} =~ s/√$//;
|
||||
say LOG "**\t\$SNsInCV{$thisCV}: >$SNsInCV{$thisCV}<";
|
||||
}
|
||||
#say LOG "<>\t<>\t\$SNsInCV{$thisCV}: |$SNsInCV{$thisCV}|";
|
||||
$SNsInCV{$thisCV} =~ s/ \.\.\. /.*?/g;
|
||||
say LOG "1\t\$SNsInCV{$thisCV}:$SNsInCV{$thisCV}";
|
||||
say LOG "*7*\t\$SNsInCV{$thisCV}:$SNsInCV{$thisCV}";
|
||||
#while ($SNsInCV{$thisCV} =~ s/(\[[^\]]*?) ([^\]]*?\] )/$1√$2/) {};
|
||||
$SNsInCV{$thisCV} =~ s/√{2,}/√/g;
|
||||
$SNsInCV{$thisCV} =~ s/^√+//g;
|
||||
say LOG "2\t\$SNsInCV{$thisCV}:$SNsInCV{$thisCV}";
|
||||
my @regArray = split /√/, $SNsInCV{$thisCV};
|
||||
say LOG "\@regArray: >@regArray<";
|
||||
say LOG "*8*\t\$SNsInCV{$thisCV}:$SNsInCV{$thisCV}";
|
||||
my @tempArray = split /√/, $SNsInCV{$thisCV};
|
||||
my %alreadyUsed;
|
||||
my @regArray;
|
||||
foreach my $slice (@tempArray) {
|
||||
if ($slice =~ /^(\d*)/) {
|
||||
my $number = "$1";
|
||||
push (@regArray, $slice) unless (exists $alreadyUsed{$number});
|
||||
$alreadyUsed{$number} = $number
|
||||
}
|
||||
}
|
||||
$" = "|\n";
|
||||
say LOG "*9*\t\$SNsInCV{$thisCV}:$SNsInCV{$thisCV}\n\@regArray: >@regArray<";
|
||||
foreach my $thisNum (@regArray) {
|
||||
say LOG "\$thisNum: $thisNum";
|
||||
my ($found, $specPage);
|
||||
if ($thisNum =~ /(\d+)\[(.*?)\]/) {
|
||||
($thisNum) = ($1);
|
||||
my ($forced_entry_for_display) = ($2);
|
||||
say LOG "\$forced_entry_for_display: $forced_entry_for_display, \$pageThisEntry{$forced_entry_for_display}: $pageThisEntry{$forced_entry_for_display}";
|
||||
#while ($forced_entry_for_display =~ s/([^ \]]*?)√([^ \]]*?)/$1 $2/) {}
|
||||
my $forced_entry_for_search = $forced_entry_for_display;
|
||||
$pageThisEntry{$forced_entry_for_search} = $pageThisEntry{$forced_entry_for_display};
|
||||
while ($forced_entry_for_display =~ s/\.\*\?/ ... /) {}
|
||||
say LOG "\n\n\$thisNum: >>$thisNum<<\t\$forced_entry_for_display: >$forced_entry_for_display<,
|
||||
say LOG "*A*\t\$thisNum: >>$thisNum<<\t\$forced_entry_for_display: >$forced_entry_for_display<,
|
||||
\$forced_entry_for_search: >>$forced_entry_for_search<<\n\t\$pageThisEntry{$forced_entry_for_display}: $pageThisEntry{$forced_entry_for_display}";
|
||||
$outString .= "[$forced_entry_for_display]($pageThisEntry{$forced_entry_for_display})\n";
|
||||
say LOG "\t\t$outString:\n$outString";
|
||||
if ($forced_entry_for_search =~ /([^,]*) \.\.\. ([^,]*) \.\.\. ([^,]*)/) {
|
||||
my ($first, $second, $third) = ($1, $2, $3);
|
||||
$text{$thisCV} =~ s/$first(.*?)$second(.*?)$third/$1 $2/;
|
||||
say LOG "\t*\t$text{$thisCV}";
|
||||
} elsif ($forced_entry_for_search =~ /([^,]*) \.\.\. ([^,]*)/) {
|
||||
my ($first, $second) = ($1, $2);
|
||||
$text{$thisCV} =~ s/$first(.*?)$second/$1/;
|
||||
say LOG "\t**\t$text{$thisCV}";
|
||||
} else {
|
||||
#say "\$text{$thisCV}:\n$text{$thisCV}\n\$forced_entry_for_search: |$forced_entry_for_search|";
|
||||
$text{$thisCV} =~ s/$forced_entry_for_search//;
|
||||
say LOG "\t***\t$text{$thisCV}";
|
||||
}
|
||||
next;
|
||||
} elsif ($thisNum =~ /\d+(\(([\w\/]+)\))/) {
|
||||
$specPage .= $2;
|
||||
say LOG "\t375\t\$specPage: $specPage";
|
||||
say LOG "*B*\t\$specPage: $specPage";
|
||||
} else {
|
||||
say LOG "*C*\t\$thisNum: $thisNum";
|
||||
}
|
||||
say LOG "\t\$specPage: $specPage";
|
||||
if ($specPage) {
|
||||
|
|
@ -388,7 +409,10 @@ sub LinkSNsToULBtextViaEntries {
|
|||
}
|
||||
}
|
||||
Breakout:
|
||||
say MISSING "$thisCV $thisNum" unless ($found);
|
||||
unless ($found) {
|
||||
say MISSING "$thisCV $thisNum";
|
||||
say LOG "\$thisCV: $thisCV\t\$thisNum: $thisNum"
|
||||
}
|
||||
next if $found;
|
||||
}
|
||||
say LOG "\t\$outString:\n$outString";
|
||||
|
|
@ -499,7 +523,7 @@ sub Output {
|
|||
foreach my $slice (@checkArray) {
|
||||
#say LOG "\$slice: $slice";
|
||||
unless (exists $donePages{$slice}) {
|
||||
#say LOG "\$thisRef: $thisRef\t\$slice:$slice";
|
||||
say LOG "\$thisRef: $thisRef\t\$slice:$slice";
|
||||
#say MISSING "$thisRef\t$slice\t||";
|
||||
say MISSING "$thisRef\t$slice";
|
||||
}
|
||||
|
|
|
|||
|
|
@ -278,6 +278,7 @@ sub ReadLinkedSNs {
|
|||
}
|
||||
foreach my $changedRef (sort keys %temp) {
|
||||
$SNsInCV{$changedRef} = $temp{$changedRef}
|
||||
say LOG "\$SNsInCV{$changedRef}: $SNsInCV{$changedRef}";
|
||||
}
|
||||
}
|
||||
|
||||
|
|
@ -285,7 +286,7 @@ sub LinkSNsToULBtextViaEntries {
|
|||
say "Linking Strong's numbers to ULB text via tW page entries";
|
||||
say LOG "sub LinkSNsToULBtextViaEntries called";
|
||||
foreach my $thisRef (sort keys %ref) {
|
||||
say LOG "\nLinkSNsToULBtextViaEntries: \$thisRef: $thisRef\t\$ref{$thisRef}: $ref{$thisRef}";
|
||||
say LOG "\nLinkSNsToULBtextViaEntries: \$thisRef: $thisRef\t\$ref{$thisRef}: $ref{$thisRef}, \$specifiedText{$ref{$thisRef}}: $specifiedText{$ref{$thisRef}}";
|
||||
(%workEntries, %ulbOrder) = ();
|
||||
my %workPage;
|
||||
my ($thisCV, $checkList, $tempString, $outString) = ($ref{$thisRef}, "", "", "");
|
||||
|
|
@ -293,6 +294,7 @@ sub LinkSNsToULBtextViaEntries {
|
|||
my (@allEntries);
|
||||
$listOfPages{$thisCV} = "";
|
||||
#say LOG "\$SNsInCV{$thisCV}: |$SNsInCV{$thisCV}|\n$text{$thisCV}";
|
||||
|
||||
say LOG "\t\$SNsInCV{$thisCV}: >$SNsInCV{$thisCV}<";
|
||||
$SNsInCV{$thisCV} =~ s/√+$//;
|
||||
$SNsInCV{$thisCV} =~ s/^ +//;
|
||||
|
|
@ -334,6 +336,7 @@ sub LinkSNsToULBtextViaEntries {
|
|||
($thisNum) = ($1);
|
||||
my ($forced_entry_for_display) = ($2);
|
||||
say LOG "\$forced_entry_for_display: $forced_entry_for_display, \$pageThisEntry{$forced_entry_for_display}: $pageThisEntry{$forced_entry_for_display}";
|
||||
|
||||
while ($forced_entry_for_display =~ s/([^ \]]*?)√([^ \]]*?)/$1 $2/) {}
|
||||
my $forced_entry_for_search = $forced_entry_for_display;
|
||||
$pageThisEntry{$forced_entry_for_search} = $pageThisEntry{$forced_entry_for_display};
|
||||
|
|
|
|||
Loading…
Reference in New Issue