diff options
| author | Mattias Andrée <maandree@operamail.com> | 2012-07-28 14:24:37 +0200 |
|---|---|---|
| committer | Mattias Andrée <maandree@operamail.com> | 2012-07-28 14:24:37 +0200 |
| commit | 04e2cf91c47344da39b75011802f088a0ca85d8b (patch) | |
| tree | 4fc1c735ee435ae5c47539ae81e01fd1aed6b982 | |
| parent | 8bf68d139ec78f6cd7a019b66f4ffad7045c27a4 (diff) | |
| download | ponysay-04e2cf91c47344da39b75011802f088a0ca85d8b.tar.gz ponysay-04e2cf91c47344da39b75011802f088a0ca85d8b.tar.bz2 ponysay-04e2cf91c47344da39b75011802f088a0ca85d8b.zip | |
perl scripts: removing name formating and adding author
| -rwxr-xr-x | ponysaylinklist.pl | 1 | ||||
| -rwxr-xr-x | ponysaylist.pl | 11 |
2 files changed, 7 insertions, 5 deletions
diff --git a/ponysaylinklist.pl b/ponysaylinklist.pl index 4d34928..8f3588f 100755 --- a/ponysaylinklist.pl +++ b/ponysaylinklist.pl @@ -7,6 +7,7 @@ # See COPYING for details # Author: Mattias Andrée, maandree@kth.se +# spider-mario use strict; diff --git a/ponysaylist.pl b/ponysaylist.pl index 0c0410c..2004484 100755 --- a/ponysaylist.pl +++ b/ponysaylist.pl @@ -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; |