perl scripts: removing name formating and adding author

This commit is contained in:
Mattias Andrée 2012-07-28 14:24:37 +02:00
parent 8bf68d139e
commit 04e2cf91c4
2 changed files with 7 additions and 5 deletions

View file

@ -7,6 +7,7 @@
# See COPYING for details
# Author: Mattias Andrée, maandree@kth.se
# spider-mario
use strict;

View file

@ -7,6 +7,7 @@
# See COPYING for details
# Author: Mattias Andrée, maandree@kth.se
# spider-mario
use strict;
@ -18,11 +19,11 @@ use List::Util qw(max);
my $scrw = shift @ARGV // 1;
for (@ARGV) {
# Format names from ponyies names
s/(?<=[a-z])(?=[A-Z])/ /;
s/_(.*)/\t($1)/;
}
#for (@ARGV) {
# # Format names from pony names
# s/(?<=[a-z])(?=[A-Z])/ /;
# s/_(.*)/\t($1)/;
#}
my $maxw = max 1, map {length} @ARGV;