hmw3
/
Tips_and_Hacks
1
0
Fork 1
Files Issues Pull Requests Releases Wiki Activity See in Reader

work on tagged ULB

This commit is contained in:
Henry Whitney 2020-08-07 17:32:38 -04:00
parent 8f217e59cd
commit cbc6424590
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
MAST_tW_PDF_Updater/FilesForUpdates/Build_MAST_OGNT_from_csv.pl
View File

@ -8,8 +8,6 @@ use utf8;
#use open IN => ":utf8", OUT => ":utf8";
use open IO => ":utf8";
binmode STDOUT, ":encoding(UTF-8)";
mkdir "OGNT_for_tagging";
mkdir "Logs";
open LOG, ">Logs/log.log";
@ -58,7 +56,7 @@ sub Separate {
say OUT " </verse>\n </chapter>\n </div>\n</xml>";
close OUT;
}
open OUT, ">:utf8", "OGNT_for_tagging/$bn-$bk{$bn}.xml" or die "$! $bn-$bk{$bn}.xml";
open OUT, ">:utf8", "/Users/Henry/Documents/WACS/OGNT/$bn-$bk{$bn}.xml" or die "$! $bn-$bk{$bn}.xml";
say OUT "<?xml version=\"1.0\" standalone=\"yes\" ?>\n<xml>\n <div type=\"book\" osisID=\"$bklc\">\n <chapter osisID=\"$bklc.$ch\">\n <verse osisID=\"$bklc.$ch.$vs\">";
($last_bn, $last_ch, $last_vs) = ($bn, $ch, $vs)
}