diff options
| author | Mattias Andrée <maandree@operamail.com> | 2012-07-21 14:04:07 +0200 |
|---|---|---|
| committer | Mattias Andrée <maandree@operamail.com> | 2012-07-21 14:04:07 +0200 |
| commit | 7757e6e8454502335d3bd8a8b786d9043275c5db (patch) | |
| tree | ccd1ecf839c42b2f5b7c3408b1f49d5d89f5283d /ponysaylist.pl | |
| parent | 4ff170065c649a6f34da55c3e2a426f38259227a (diff) | |
| parent | 232fd2461ab2d53a22524c2771e7d1d71d57c37f (diff) | |
| download | ponysay-7757e6e8454502335d3bd8a8b786d9043275c5db.tar.gz ponysay-7757e6e8454502335d3bd8a8b786d9043275c5db.tar.bz2 ponysay-7757e6e8454502335d3bd8a8b786d9043275c5db.zip | |
Merge branch 'master' of github.com:erkin/ponysay
Diffstat (limited to 'ponysaylist.pl')
| -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; |