start/fzf/bin/tags.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
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;
}