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

Porting tool

This commit is contained in:
Henry Whitney 2019-04-29 18:02:46 -04:00
parent 7865e751cc
commit d98535dade
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
MAST_tW_PDF_Updater/FilesForUpdates/tWs.from.OSHB.1.pl
View File

@ -180,6 +180,7 @@ sub PairtWEntriesTotWPageAndUniqSNs {
my (@filesToRun, @relevantSNs) = ();
my $filePattern = '*.md' ;
find (sub {push @filesToRun, $File::Find::name if (m/^(.*)$filePattern$/)}, $topTwDir) ;
@filesToRun = sort @filesToRun;
say LOG "\@filesToRun: @filesToRun";
foreach my $file (@filesToRun) {
$file =~ s/\//\\/g unless $^O eq "linux" || $^O eq "darwin";
@ -193,6 +194,7 @@ sub PairtWEntriesTotWPageAndUniqSNs {
my $fileText = read_file("$file", binmode => 'utf8');
if ($fileText =~ /^# ([^\n]*)\r?\n/) {
$thisList = $1;
say LOG "\$thisList = |$thisList|";
$thisList =~ s/ \([^\)]*\)//g;
$entriesThisPage{$shortFile} = $thisList;
my @ULBEntries = split /, /, $thisList;