16 lines
229 B
Perl
16 lines
229 B
Perl
|
#!/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;
|
||
|
|
}
|