aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--main.pl7
-rw-r--r--synopsis.pl5
-rw-r--r--tokens-processed.txt0
3 files changed, 10 insertions, 2 deletions
diff --git a/main.pl b/main.pl
new file mode 100644
index 0000000..df57cbc
--- /dev/null
+++ b/main.pl
@@ -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

Return to:

Send suggestions and report system problems to the System administrator.