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 /ponysaylist.pl | |
parent | 8bf68d139ec78f6cd7a019b66f4ffad7045c27a4 (diff) | |
download | ponysay-04e2cf91c47344da39b75011802f088a0ca85d8b.tar.gz ponysay-04e2cf91c47344da39b75011802f088a0ca85d8b.tar.bz2 ponysay-04e2cf91c47344da39b75011802f088a0ca85d8b.zip |
perl scripts: removing name formating and adding author
Diffstat (limited to 'ponysaylist.pl')
-rwxr-xr-x | ponysaylist.pl | 11 |
1 files changed, 6 insertions, 5 deletions
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; |