54dfb194d9
subrepo: subdir: "dotfiles/.vim/plugged/fzf.vim" merged: "9ceac7180" upstream: origin: "https://github.com/junegunn/fzf.vim.git" branch: "master" commit: "9ceac7180" git-subrepo: version: "0.4.3" origin: "???" commit: "???"
15 lines
229 B
Perl
Executable file
15 lines
229 B
Perl
Executable file
#!/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;
|
|
}
|