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

Merge pull request #50 from etu/master

Browse source 
Updated ponysay to support names like "Apple Jack" and list.pl to format those names
This commit is contained in:
Mattias Andrée 2012-07-21 03:12:23 -07:00
commit ca0fffcd61
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
ponysay
View file

@ -270,7 +270,7 @@ while getopts $opts OPT; do
case ${OPT} in case ${OPT} in
v) version; exit ;; v) version; exit ;;
h) usage; exit ;; h) usage; exit ;;
f) ponies+=( "$OPTARG" ) ;; f) ponies=($(echo $OPTARG | sed -e 's/ //g' -e 's/,/\n/')) ;;
l) list; exit ;; l) list; exit ;;
L) linklist; exit ;; L) linklist; exit ;;
W) wrap="$OPTARG" ;; W) wrap="$OPTARG" ;;

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;