From 04e2cf91c47344da39b75011802f088a0ca85d8b Mon Sep 17 00:00:00 2001 From: Mattias Andrée Date: Sat, 28 Jul 2012 14:24:37 +0200 Subject: perl scripts: removing name formating and adding author --- ponysaylinklist.pl | 1 + 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; -- cgit