diff options
| author | Matthew Lemon <matt@matthewlemon.com> | 2022-10-01 07:51:31 +0100 |
|---|---|---|
| committer | Matthew Lemon <matt@matthewlemon.com> | 2022-10-01 07:51:31 +0100 |
| commit | 3a6cbd0afc54951f71002b9ed38b0b2955ae905c (patch) | |
| tree | 377f459e804bc32f7384001cde4e673007092e5a | |
| parent | d09182da1c7c8c3b9cfd5f2bb9e86db54472c378 (diff) | |
| parent | d2fd7b7c83e57d36b9c28b005e22c60938424cc6 (diff) | |
Merge branch 'master' of github.com:yulqen/perlscripts
| -rw-r--r-- | journal/get_journal_tags.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/journal/get_journal_tags.pl b/journal/get_journal_tags.pl index 2dbd2e7..713babf 100644 --- a/journal/get_journal_tags.pl +++ b/journal/get_journal_tags.pl @@ -6,7 +6,7 @@ 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+)/) { + while (/(\s:[A-Z]\w+)/g) { push @tags, $1; } |