Mirrors/ponysay
2
0
Fork 0
mirror of https://github.com/erkin/ponysay synced 2024-11-26 21:30:20 +00:00
Code Issues Projects Releases Packages Wiki Activity

perl scripts: removing name formating and adding author

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

1
ponysaylinklist.pl
View file

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

11
ponysaylist.pl
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;