This is my piggy... ok ok, I cheated a bit, and I used some ideas
from
Camel Code, so shoot me :) This is my first honest attempt.
I could not get it to work under warnings without spending even
more time I don't have :(
But anyway, pass my piggie a file, or some text on STDIN,
and watch it go... whee! :)
#!/usr/bin/perl
use strict;
my$a='my@out;while(<>){s/
(\A|\n|[^\w-])([aeiou])?([\w\-]*(\\ \'\w
+)?)/$1.&convert($2,$3)/ggies;push@out,$_}prin
t("PigTalk\nV1.0\n\n",join"",@out);sub';my$b='co
nvert{my($a,$b)=@_;if($a){return"$a$b-ay";}unless($b
){return}if(length$b==1){return$b}my$uc=0;if($b=~s/^( [A-
Z])/lc($1)/e){$uc=1};$b=~s/^([^aeiou][^aeiouy]?)//; $a=
$1;$b=ucfirst($b)if$uc;return"$b-${a}ay";}print;';$ a=~
s/\s+//g;$b=~s/\s+//g;;;eval"$a $b"; __DATA__ my$a= '
my@out;while(<>){s/(\A|\n|[^\w-])([aeiou])?([\w\-]*(
\\\'\w+)?)/$1.&convert($2,$3)/ggies;push@out,$_}print("
PigTalk\nV1.0\n\n",join"",@out);sub';my$b='convert{my(
$a,$b)=@_;if($a){return"$a$b-ay";}unless($b){return}i
f(length$b==1){return$b}my$uc=0;if($b=~s/^([A-Z])/lc
($1)/e){$uc=1};$b=~s/^([^aeiou][^aeiouy]?)//
;$a=$1;$b=ucfirst($b)if$uc;return"$b-${a}
ay";}pri nt;'; $a=~s /\s+//
g;$b =~s/ \s+// g;;;e
val" $a $b "; _ _DAT
A__ my$ a='my @out
- Ant