forked from unfoldingWord/en_tw
11 lines
419 B
Perl
11 lines
419 B
Perl
# opens files with mismatched snippets
|
|
|
|
use 5.12.0;
|
|
use File::Slurp;
|
|
my $openString = "";
|
|
my $fileText = read_file("/Users/Henry/Google Drive/WA/tN instructions/mismatched_snippets.html", binmode => 'utf8');
|
|
while ($fileText =~ /<p><b>(.*)<\/b><\/p>/g) {
|
|
$openString .= "$1 " unless $openString =~ /$1/;
|
|
}
|
|
say "\n\nopen -a /Applications/BBEdit.app $openString\n";
|
|
system 'open -a /Applications/BBEdit.app $openString'; |