diff options
| author | Elis Axelsson <elis.axelsson@gmail.com> | 2012-07-21 09:36:33 +0200 |
|---|---|---|
| committer | Elis Axelsson <elis.axelsson@gmail.com> | 2012-07-21 09:36:33 +0200 |
| commit | 40164221fbae896ba14715fa0c01cbb56a426105 (patch) | |
| tree | b979834fcab854d8cfacc0df333dc822c83aed84 | |
| parent | 5889560704af5c17efef4f875c5c36790602a7a6 (diff) | |
| download | ponysay-40164221fbae896ba14715fa0c01cbb56a426105.tar.gz ponysay-40164221fbae896ba14715fa0c01cbb56a426105.tar.bz2 ponysay-40164221fbae896ba14715fa0c01cbb56a426105.zip | |
Updated perl-script to format the ponies names
| -rwxr-xr-x | ponysaylist.pl | 4 |
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; |