PonyMirrors/ponysay
1
0
Fork 0
mirror of https://github.com/erkin/ponysay.git synced 2025-02-07 05:26:43 +01: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 # See COPYING for details
# Author: Mattias Andrée, maandree@kth.se # Author: Mattias Andrée, maandree@kth.se
# spider-mario
use strict; use strict;

11
ponysaylist.pl
View file

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