diff options
-rw-r--r-- | main.pl | 7 | ||||
-rw-r--r-- | synopsis.pl | 5 | ||||
-rw-r--r-- | tokens-processed.txt | 0 |
3 files changed, 10 insertions, 2 deletions
@@ -0,0 +1,7 @@ +use Tk;
+
+my $mw = new MainWindow;
+my $bBrowse = $mw->Button(-text=>"Source folder...", -command=> sub{$src= $mw->chooseDirectory(-title=>"Source folder")})->pack();
+my $bBrowse2= $mw->Button(-text=>"Destination folder", -command=> sub{$dst=$mw->chooseDirectory(-title=>"Destination folder")})->pack();
+my $bt2 = $mw->Button(-text=>"Convert", -command=> sub{$myarg_1=$src; $myarg_2=$dst; require "synopsis.pl"})->pack();
+MainLoop;
\ No newline at end of file diff --git a/synopsis.pl b/synopsis.pl index f3aa9e1..57675e5 100644 --- a/synopsis.pl +++ b/synopsis.pl @@ -113,13 +113,13 @@ print $fH "----------bookmark----------\n"; local $/ = undef;
my $regex = join "\n", map $$_[0], @FORMAT;
-while(glob "TXT/**") {
+while(glob "$myarg_1/**") {
print "$_\n";
next if exists $HASH{$_};
open my $fh, "<:encoding(utf8)", $_;
my $text = <$fh>;
my $oName = $_;
- $oName =~ s/TXT/HTML/;
+ $oName =~ s/$myarg_1/$myarg_2/;
$oName =~ s/\.txt/.html/;
my @parse_tree;
eval {
@@ -164,3 +164,4 @@ $parse_text print $fH "$_\n";
}
+1;
\ No newline at end of file diff --git a/tokens-processed.txt b/tokens-processed.txt new file mode 100644 index 0000000..e69de29 --- /dev/null +++ b/tokens-processed.txt |