aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorElis Axelsson <elis.axelsson@gmail.com>2012-07-21 09:36:33 +0200
committerElis Axelsson <elis.axelsson@gmail.com>2012-07-21 09:36:33 +0200
commit40164221fbae896ba14715fa0c01cbb56a426105 (patch)
treeb979834fcab854d8cfacc0df333dc822c83aed84
parent5889560704af5c17efef4f875c5c36790602a7a6 (diff)
downloadponysay-40164221fbae896ba14715fa0c01cbb56a426105.tar.gz
ponysay-40164221fbae896ba14715fa0c01cbb56a426105.tar.bz2
ponysay-40164221fbae896ba14715fa0c01cbb56a426105.zip
Updated perl-script to format the ponies names
-rwxr-xr-xponysaylist.pl4
1 files changed, 4 insertions, 0 deletions
diff --git a/ponysaylist.pl b/ponysaylist.pl
index 7a09376..72c0a92 100755
--- a/ponysaylist.pl
+++ b/ponysaylist.pl
@@ -15,6 +15,10 @@ $maxw = 1;
foreach $arg (@ARGV)
{
+ # Format names from ponyies names
+ $arg =~ s/([a-z])([A-Z])/\1 \2/;
+ $arg =~ s/_(.*)/\t(\1)/;
+
if ($first == 1)
{ $first = 0;
$scrw = $arg;