mirror of
https://github.com/erkin/ponysay
synced 2024-11-13 23:27:14 +00:00
perl scripts: removing name formating and adding author
This commit is contained in:
parent
8bf68d139e
commit
04e2cf91c4
2 changed files with 7 additions and 5 deletions
|
@ -7,6 +7,7 @@
|
|||
# See COPYING for details
|
||||
|
||||
# Author: Mattias Andrée, maandree@kth.se
|
||||
# spider-mario
|
||||
|
||||
|
||||
use strict;
|
||||
|
|
|
@ -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;
|
||||
|
||||
|
|
Loading…
Reference in a new issue