forked from hmw3/Tips_and_Hacks
16 lines
416 B
Perl
16 lines
416 B
Perl
# Used in Windows tool to get book name and Strong's number
|
|
# for mine and obviate routines
|
|
|
|
use 5.12.0;
|
|
use utf8;
|
|
use Cwd;
|
|
use File::Slurp;
|
|
my ($book, $strong);
|
|
my $text = read_file ("../Temp/temp.tmp") or die;
|
|
if ($text =~ /([^:]*[a-z]) [0-9]*:[0-9]*.([0-9]*)/) {
|
|
($book, $strong) = ($1, $2)
|
|
}
|
|
print "\$text: $text; \$book = $book; \$strong = $strong\n";
|
|
system ("set book=$book");
|
|
system ("set strong=$strong");
|