update

2 files changed, 18 insertions, 1 deletions

diff --git a/writing_tools/create_md_links_from_journal_urls.pl b/writing_tools/create_md_links_from_journal_urls.pl
index a03aa23..82f5830 100644
--- a/writing_tools/create_md_links_from_journal_urls.pl
+++ b/writing_tools/create_md_links_from_journal_urls.pl
@@ -7,7 +7,7 @@ use HTML::TreeBuilder 5 -weak;
 use HTML::HeadParser;
 use feature qw(say);
 
-$| = 1; # turn on autoflush for stdout (https://stackoverflow.com/questions/40608986/print-doesnt-work-while-iterations-are-going-inside-foreach-loop)
+# $| = 1; # turn on autoflush for stdout (https://stackoverflow.com/questions/40608986/print-doesnt-work-while-iterations-are-going-inside-foreach-loop)
 
 # How to read each file in a directory $dir
 
diff --git a/writing_tools/get_journal_tags.pl b/writing_tools/get_journal_tags.pl
new file mode 100644
index 0000000..2dbd2e7
--- /dev/null
+++ b/writing_tools/get_journal_tags.pl
@@ -0,0 +1,17 @@
+use strict;
+use warnings;
+
+my @tags;
+
+foreach my $fn (glob "~/Notes/journal/*.md") {
+    open my $FH, "<", $fn or die "Cannot open $fn";
+    while (<$FH>) {
+        if (/(\s:[A-Z]\w+)/) {
+            push @tags, $1;
+        }
+                
+    }
+}
+my %truetags = map { $_, 1 } @tags;
+my @trutags = keys %truetags;
+print @trutags, "\n";