PonyMirrors/ponysay
1
0
Fork 0
mirror of https://github.com/erkin/ponysay.git synced 2024-11-25 22:07:58 +01:00
Code Issues Projects Releases Packages Wiki Activity

Updated perl-script to format the ponies names

Browse source
This commit is contained in:
Elis Axelsson 2012-07-21 09:36:33 +02:00
parent 5889560704
commit 40164221fb
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
ponysaylist.pl
View file

@ -15,6 +15,10 @@ $maxw = 1;
foreach $arg (@ARGV) foreach $arg (@ARGV)
{ {
# Format names from ponyies names
$arg =~ s/([a-z])([A-Z])/\1 \2/;
$arg =~ s/_(.*)/\t(\1)/;
if ($first == 1) if ($first == 1)
{ $first = 0; { $first = 0;
$scrw = $arg; $scrw = $arg;