diff options
Diffstat (limited to 'start/fzf/bin/tags.pl')
-rw-r--r-- | start/fzf/bin/tags.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/start/fzf/bin/tags.pl b/start/fzf/bin/tags.pl new file mode 100644 index 0000000..4208c16 --- /dev/null +++ b/start/fzf/bin/tags.pl @@ -0,0 +1,15 @@ +#!/usr/bin/env perl + +use strict; + +foreach my $file (@ARGV) { + open my $lines, $file; + while (<$lines>) { + unless (/^\!/) { + s/^[^\t]*/sprintf("%-24s", $&)/e; + s/$/\t$file/; + print; + } + } + close $lines; +} |