forked from unfoldingWord/en_tw
19 lines
363 B
Perl
19 lines
363 B
Perl
use 5.12.0;
|
|
|
|
my $files = "open -a /Applications/BBEdit.app ";
|
|
|
|
open(IN, "/Users/Henry/Google Drive/WA/tN instructions/mismatched_snippets.html") or die "$!/Users/Henry/Google Drive/WA/tN instructions/mismatched_snippets.html";
|
|
|
|
while (<IN>) {
|
|
chomp;
|
|
# say $_;
|
|
if (/<p><b>(.*)<\/b><\/p>/) {
|
|
$files .= "$1 "
|
|
}
|
|
}
|
|
|
|
close IN;
|
|
|
|
say $files;
|
|
|
|
system ($files) |